Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Enumerate the properties of current database

Sub EnumDBProperties()     Dim pty As Property     Dim strTemp As String          On Error Resume Next     For Each pty In CurrentDb.Properties         strTemp = pty.Name & ": "         strTemp = strTemp & pty.Value         Debug.Print strTemp     Next      End Sub