Свойства (Properties) - Вывод в Immediate Window списка всех свойств БД

Полезно иногода посмотреть на все свойства "оптом"
Показать Immediate Window: [Ctrl + G]

Private Sub Print_In_Immediate_CurrentDB_Properties()

'es - 27.12.2012

'Вывод в Immediate Window списка всех свойств (Properties) текущей БД

'--------------------------------------------------------------------

Dim dbs As Database, prp As Property

Dim v As Variant

Debug.Print "---------------------------------------------------"

Set dbs = CurrentDb

For Each prp In dbs.Properties

v = Null

On Error Resume Next

v = prp.Value

Err.Clear

Debug.Print prp.Name & " = " & v

Next

Debug.Print "---------------------------------------------------"

Set prp = Nothing

Set dbs = Nothing

End Sub