G
Guest
How can I get the BuiltIn or Custom Properties in ms access with VBA
(dsofile.dll does not work with it)
(dsofile.dll does not work with it)
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A
Andi Mayer
How can I get the BuiltIn or Custom Properties in ms access with VBA
(dsofile.dll does not work with it)
msgbox currentdb.properties("MyPropName")
G
Guest
"Andi Mayer" пишет:
(in ms word i'we got it with activedocument.customproperties...etc)
msgbox currentdb.properties("MyPropName")
(in ms word i'we got it with activedocument.customproperties...etc)
A
Andi Mayer
"Andi Mayer" ?????:
(in ms word i'we got it with activedocument.customproperties...etc)
I had to look also where they are, run this and choose what you like,
but watch for line breaks
Sub test_abdgsjksjksdkj()
Dim i As Long, z As Long
On Error Resume Next
For z = 0 To CurrentDb.Containers("Databases").Documents.Count - 1
For i = 0 To _
CurrentDb.Containers("Databases").Documents(z).Properties.Count - 1
Debug.Print _
CurrentDb.Containers("Databases").Documents(z).Properties(i).name, _
CurrentDb.Containers("Databases").Documents(z).Properties(i).Value
Next i
Next z
End Sub
End Sub
G
Guest
I'we got it with some modifing:Thank you,
'Custom property
CurrentDb().Containers!Databases.Documents("UserDefined").Properties("MyProperty").Value
'BuiltIn property (TITLE)
CurrentDb().Containers!Databases.Documents("SummaryInfo").Properties("Title").Value