TopPicLogo TopPicText

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

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

Private Sub Print_In_Immediate_CurrentDB_Properties()
'es - 27.12.2012
'Вывод в Immadiate Window списка всех свойств (Properties) текущей БД
'   Показать Immadiate Window: [Ctrl + G]
'--------------------------------------------------------------------
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

Назад ToTop
L.E. 19.01.2013
Рейтинг@Mail.ru