How to read Database Properties

[ysrini]

Hi, in the MS Access 2007, under menu File -> Database Properties -> Custom tab, i added some custom properties (say 'Source')

How can i read these custom property values via Macro?
The following didn't work:
MsgBox (db.Properties("Source").Value)

It says "Property not found"

I am trying to create custom property for data source and out, so i use these to dynamically change when file path changes too

Thanks
-srinivas y.

 

[KenHigg]

I would suggest you don't use a macro and instead use VBA. Or if you have to use a marco, call a vba routine that does the msgbox.

 

[ysrini]

Thanks Ken, i was doing in a VBA, i didn't mean 'macro' literally

How to accomplish in VBA? It says property not found

 

[KenHigg]

Not being familiar with the property in the example you posted I would suggest you tinker around in the immediate window looking at properties until you find the property and proper syntax -

 

[boblarson]

Here's some code which I use to Set Custom Properties and then to get the value back. Paste these into a STANDARD module and then save the module like basDbProps. Then if available you should be able to use

MsgBox GetCustomProperty("Source")

    Function GetCustomProperty(strPropertyName As String) As String
        Dim db As Database
        Set db = DBEngine(0)(0)
        GetCustomProperty = db.Properties(strPropertyName)
    End Function

    Function CreateCustomProperty(strPropertyName As String, strValue As String)
        Dim db As Database
        Dim P As Property
        Set db = DBEngine(0)(0)
        Set P = db.CreateProperty(strPropertyName, DB_TEXT, strValue)
        db.Properties.Append P
    End Function

 

[ysrini]

Thanks Bob,
for a Custom Property that is already defined (and value set) in the Database Properties -> Custom tab, the following doesn't seem to work

Dim db As Database
Set db = DBEngine(0)(0)
GetCustomProperty = db.Properties("Source")

Can you try this and let me know if it works for you for same scenario?

Meanwhile, i found this help online that's working

Dim cnt As Container
Dim doc As Document

Set cnt = DBEngine(0)(0).Containers!Databases
Set doc = cnt.Documents!userDefined

doc.Properties.Refresh
MsgBox (doc.Properties!Source)

Thanks
-srinivas y.

 

[MarkK]

From Access Developer Reference, Application.CurrentDB Method

Note
In previous versions of Microsoft Access, you may have used the syntax

DBEngine.Workspaces(0).Databases(0) 
or 
DBEngine(0)(0)

to return a pointer to the current database. In Microsoft Access 2000, you should use the CurrentDb method instead. The CurrentDb method creates another instance of the current database, while the

DBEngine(0)(0)

syntax refers to the open copy of the current database. The CurrentDb method enables you to create more than one variable of type Database that refers to the current database. Microsoft Access still supports the

DBEngine(0)(0)

syntax, but you should consider making this modification to your code in order to avoid possible conflicts in a multiuser database.

Just for reference ...

MsgBox CurrentDB.Properties(PropertyName), vbInformation