How can I get the information displayed in the database properties dialog
contents using VBA code?

Here is some code I use to return the value of a "user defined database
property" I named "Appversion"

PS: sorry for not applying standard naming conventions I can't get used to
it and too old to adapt.

Const VersionPropertyName = "AppVersion"
Const PropertyNotFound = 3270

Function GetAppVersion(dbs As Database) As Integer
2240 Dim Cnt As Container, Doc As Document, prp As Property, AppVersion
As Single
2250 On Local Error GoTo GetSummary_Err
2255 Set Cnt = dbs.Containers!Databases
2260 Set Doc = Cnt.Documents!Userdefined
2265 Doc.Properties.Refresh
2270 AppVersion = Doc.Properties(VersionPropertyName)
GetSummary_Bye:
2280 Set Cnt = Nothing
2285 Set Doc = Nothing
2290 GetAppVersion = Round(AppVersion, 2)
2300 Exit Function
GetSummary_Err:
2305 AppVersion = 0
2310 If Err = PropertyNotFound Then
2315 Set prp = Doc.CreateProperty(VersionPropertyName, dbDouble, 0)
2320 Doc.Properties.Append prp
2325 Set prp = Nothing
2330 Resume
2335 Else
2340 If Error_message() Then Resume 0
2345 Resume GetSummary_Bye
2350 End If
End Function

Function SetAppVersion(dbs As Database, AppVersion As Integer) As Boolean
2355 Dim Cnt As Container, Doc As Document, prp As Property
2360 On Local Error GoTo SetCustom_Err
2370 Set Cnt = dbs.Containers!Databases
2375 Set Doc = Cnt.Documents!Userdefined
2380 Doc.Properties.Refresh
2385 Set prp = Doc.Properties(VersionPropertyName)
2390 prp = AppVersion
2395 SetAppVersion = True
SetCustom_Bye:
2400 Set Cnt = Nothing: Set Doc = Nothing: Set prp = Nothing
2410 Exit Function
SetCustom_Err:
2415 If Err = PropertyNotFound Then
2420 Set prp = Doc.CreateProperty(VersionPropertyName, dbDouble,
AppVersion)
2425 Doc.Properties.Append prp
2430 Resume Next
2435 Else
2440 If Error_message() Then Resume 0
2445 SetAppVersion = False
2450 Resume SetCustom_Bye
2455 End If
End Function

rgds
AndreG

"Robert" wrote:

> How can I get the information displayed in the database properties dialog
> contents using VBA code?
>

This is fine but it does not get me the data in the contents tab of the
database properties dialog box. The document properties contain some of the
information but not all of it.

"AndréG" wrote:

> Here is some code I use to return the value of a "user defined database
> property" I named "Appversion"
>
> PS: sorry for not applying standard naming conventions I can't get used to
> it and too old to adapt.
>
> Const VersionPropertyName = "AppVersion"
> Const PropertyNotFound = 3270
>
> Function GetAppVersion(dbs As Database) As Integer
> 2240 Dim Cnt As Container, Doc As Document, prp As Property, AppVersion
> As Single
> 2250 On Local Error GoTo GetSummary_Err
> 2255 Set Cnt = dbs.Containers!Databases
> 2260 Set Doc = Cnt.Documents!Userdefined
> 2265 Doc.Properties.Refresh
> 2270 AppVersion = Doc.Properties(VersionPropertyName)
> GetSummary_Bye:
> 2280 Set Cnt = Nothing
> 2285 Set Doc = Nothing
> 2290 GetAppVersion = Round(AppVersion, 2)
> 2300 Exit Function
> GetSummary_Err:
> 2305 AppVersion = 0
> 2310 If Err = PropertyNotFound Then
> 2315 Set prp = Doc.CreateProperty(VersionPropertyName, dbDouble, 0)
> 2320 Doc.Properties.Append prp
> 2325 Set prp = Nothing
> 2330 Resume
> 2335 Else
> 2340 If Error_message() Then Resume 0
> 2345 Resume GetSummary_Bye
> 2350 End If
> End Function
>
> Function SetAppVersion(dbs As Database, AppVersion As Integer) As Boolean
> 2355 Dim Cnt As Container, Doc As Document, prp As Property
> 2360 On Local Error GoTo SetCustom_Err
> 2370 Set Cnt = dbs.Containers!Databases
> 2375 Set Doc = Cnt.Documents!Userdefined
> 2380 Doc.Properties.Refresh
> 2385 Set prp = Doc.Properties(VersionPropertyName)
> 2390 prp = AppVersion
> 2395 SetAppVersion = True
> SetCustom_Bye:
> 2400 Set Cnt = Nothing: Set Doc = Nothing: Set prp = Nothing
> 2410 Exit Function
> SetCustom_Err:
> 2415 If Err = PropertyNotFound Then
> 2420 Set prp = Doc.CreateProperty(VersionPropertyName, dbDouble,
> AppVersion)
> 2425 Doc.Properties.Append prp
> 2430 Resume Next
> 2435 Else
> 2440 If Error_message() Then Resume 0
> 2445 SetAppVersion = False
> 2450 Resume SetCustom_Bye
> 2455 End If
> End Function
>
> rgds
> AndreG
>
> "Robert" wrote:
>
> > How can I get the information displayed in the database properties dialog
> > contents using VBA code?
> >

Dim db As Database
Dim prpLoop As Property

Set db= OpenDatabase(".......")

For Each prpLoop In db.Properties
If prpLoop <> "" Then Debug.Print " " & prpLoop.Name & " = " &
prpLoop
Next prpLoop
db.Close



"Robert" wrote:

> This is fine but it does not get me the data in the contents tab of the
> database properties dialog box. The document properties contain some of the
> information but not all of it.
>