Access Object Model: Database.properties

option explicit

sub main() ' {

    dim db as database
    set db = currentDb()

    dim prop as property
    for each prop in db.properties

        if prop.name <> "Connection" then
           debug.print(rpad(prop.name, 42) & " = " & prop.value)
        end if

    next prop

end sub ' }

'
' https://renenyffenegger.ch/notes/development/languages/VBA/modules/Common/Text
'
function rpad(text as String, length as integer, optional padChar as string = " ") ' {
    rpad = text & string(length - len(text), padChar)
end function ' }

Name                                       = C:\Users\Rene\Documents\Database18.accdb
Connect                                    =
Transactions                               = True
Updatable                                  = True
CollatingOrder                             = 1033
QueryTimeout                               = 60
Version                                    = 12.0
RecordsAffected                            = 0
ReplicaID                                  =
DesignMasterID                             =
ANSI Query Mode                            = 0
Themed Form Controls                       = 1
Use Microsoft Access 2007 compatible cache = 0
Clear Cache on Close                       = 0
Never Cache                                = 0
AccessVersion                              = 09.50
NavPane Category                           = 0
Show Navigation Pane Search Bar            = 1
UseMDIMode                                 = 0
ShowDocumentTabs                           = True
Picture Property Storage Format            = 0
WebDesignMode                              = 0
CheckTruncatedNumFields                    = 1
Theme Resource Name                        = Office Theme
ProjVer                                    = 140
HasOfflineLists                            = 70