MyTetra Share
Делитесь знаниями!
Свойства (Properties) - Вывод в Immediate Window списка всех свойств БД
19.07.2018
19:17
Раздел: VBA - Access - msa.polarcom.ru - 10 Приложение MSA


Свойства (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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования