'데이터베이스 속성 출력
Sub EnumDBProperties()
Dim pty As Property
On Error Resume Next
For Each pty In CurrentDb.Properties
Debug.Print pty.Name & ": " & pty.Value
Next
End Sub
******** Sample Output shown below ** Note the Property
' ******* name is shown preceding the quote *** highlighted important ones
Name: C:\TEMP\WHISKY2000.MDB
Connect:
Transactions: True
Updatable: True
CollatingOrder: 1033
QueryTimeout: 60
Version: 4.0
RecordsAffected: 0
ReplicaID:
DesignMasterID:
AccessVersion: 08.50
Build: 3822
AllowBypassKey: True
Show Values Limit: 1000
Show Values In Indexed: 1
Show Values In Non-Indexed: 1
Show Values In Remote: 0
AppTitle: The Malt Whisky Store
StartUpShowDBWindow: True
StartUpShowStatusBar: True
AllowShortcutMenus: True
AllowFullMenus: True
AllowBuiltInToolbars: True
AllowToolbarChanges: True
AllowBreakIntoCode: True
AllowSpecialKeys: True
LastCompiled: 8/19/1997 9:05:04 AM
TimesOpened: 1/23/1900
Track Name AutoCorrect Info: 0
Perform Name AutoCorrect: 0
CpgConversion: 1252
