I hope this is a good place to ask this.
I've posted before about how I'm converting an Access 97 db to Access 2013. It's progressing, but with fits and starts. Today's question centers around the following statement:
Set prpUserDefined = db.Properties("glbOpsPersonnel")
It's part of this function (some lines eliminated for clarity):
Public Function glbOpsPersonnel(Optional SetglbOpsPersonnel As Variant) As String
Dim db As Database
Dim prpUserDefined As Property
Set db = CurrentDb
Set prpUserDefined = db.Properties("glbOpsPersonnel") ' User-defined property.
If IsMissing(SetglbOpsPersonnel) Then ' If no value sent the return value of property
glbOpsPersonnel = prpUserDefined.Value
Else ' Else set property to new value
prpUserDefined.Value = SetglbOpsPersonnel
db.Properties.Refresh
glbOpsPersonnel = prpUserDefined.Value
End If
db.Close
Set db = Nothing
End Function
The line in question leads me to believe that there is a db property named "glbOpsPersonnel" and it has a value (or maybe it doesn't) that is set somewhere (or isn't). I've not been able to find where this property is set. I've been looking for something along the lines of "dim glbOpsPersonnel as Property", etc., but there's nothing like that anywhere in the DB code.
Failing that, I searched through the registry for the value (since it was installed as a MSI package, there are some rudimentary db.properties set) but it's not there either.
This all works perfectly well in the Access 97 version, but porting over to Access 2016 I get an error along the lines of "Value not found" when execution encounters the line in question. I want to start by listing all of the DB's properties and see if that's in there. Can anyone suggest a way to cycle through them in a VBA immediate window? Sorry for the formatting. I can't seem to retain the indentations.
Thanks for looking.