Originally Posted by
Monty51
There is a "SetAppVersion" routine, but I didn't post it because I didn't want to go TOO far down the rabbit hole.
Thanks for looking. I'm going to stop this thread because it's obvious I need to read a whole lot more. I have books coming that will help...I hope.
You gonna leave us hanging?
I'm almost certain what I posted is the reason.
Did you run the procedure GasMan posted or the 2 debug.prints I posted? I'm positive you wont see appVersion listed as a property until you add it back.
Here's what the database properties look like:
Code:
Name C:\Users\...\Desktop\Working Databases\CodeRepo.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
Build 720
ProjVer 119
HasOfflineLists 70
UseMDIMode 0
ShowDocumentTabs True
Picture Property Storage Format 0
WebDesignMode 0
CheckTruncatedNumFields 1
Theme Resource Name Office Theme
StartUpShowDBWindow True
StartUpShowStatusBar True
AllowShortcutMenus True
AllowFullMenus True
AllowBuiltInToolbars True
AllowToolbarChanges True
AllowSpecialKeys True
UseAppIconForFrmRpt False
AllowDatasheetSchema True
DesignWithData True
Show Values Limit 1000
Show Values in Indexed 1
Show Values in Non-Indexed 1
Show Values in Remote 0
Auto Compact 0
NavPane Closed 0
NavPane Width 215
NavPane View By 0
NavPane Sort By 1
StartUpForm Form1
appVersion appVersion 2.0 2021
I ran a slightly different version of Gasman's code. You'll notice that i added an "appVersion" property at the end with the value "appVersion 2.0 2021."
here's my version to list properties, the difference from G'Man's being mine shows the properties value also.
Code:
Sub ListDBProperties()
Dim db As DAO.Database
Dim P As Property
Set db = CurrentDb()
For Each P In db.Properties
On Error Resume Next
Debug.Print P.Name, P.Value
Next
Set db = Nothing
End Sub
Welshgasman
I would not get despondent.
And think of it this way, You just learned a whole lot about database properties.