Display Current State of AllowBypassKey

[Sprinks]

I'm using Michael Kaplan's ChangePropertyDDL function to toggle off the state
of AllowBypassKey. When working on the database, however, I will want to
toggle it back on. After making changes, before posting the new front-end to
the network, I'll toggle it back off. To make this more fool-proof, I'd like
to display the current state of the property on my form.

Can anyone tell me how to refer to the property using the DAO hierarchy?

Thank you.
Sprinks


' *********** Code Start ***********
'This code was originally written by Michael Kaplan.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Michael Kaplan
'
Function ChangePropertyDdl(stPropName As String, _
PropType As DAO.DataTypeEnum, vPropVal As Variant) _
As Boolean
' Uses the DDL argument to create a property
' that only Admins can change.
'
' Current CreateProperty listing in Access help
' is flawed in that anyone who can open the db
' can reset properties, such as AllowBypassKey
'
On Error GoTo ChangePropertyDdl_Err

Dim db As DAO.Database
Dim prp As DAO.Property

Const conPropNotFoundError = 3270

Set db = CurrentDb
' Assuming the current property was created without
' using the DDL argument. Delete it so we can
' recreate it properly

db.Properties.Delete stPropName
Set prp = db.CreateProperty(stPropName, _
PropType, vPropVal, True)
db.Properties.Append prp

' If we made it this far, it worked!
ChangePropertyDdl = True

ChangePropertyDdl_Exit:
Set prp = Nothing
Set db = Nothing
Exit Function

ChangePropertyDdl_Err:
If Err.Number = conPropNotFoundError Then
' We can ignore when the prop does not exist
Resume Next
End If
Resume ChangePropertyDdl_Exit
End Function

 

[Douglas J. Steele]

CurrentDb().Properties("AllowBypassKey").

Note than an error 3270 ("Property not found") will be returned if you
haven't actually set the property.

 

[Sprinks]

Thanks, Doug.

CurrentDb().Properties("AllowBypassKey").

Note than an error 3270 ("Property not found") will be returned if you
haven't actually set the property.

 

[Klatuu]

Here is a FREE (I like that part) utility I found recently that allows you to
see and modify that and all the other start up options in a database. I am
finding it very useful. What I like best is that to get into a database that
has AllowBypassKey turned off, I used to have to have to open the database,
use a "back door" trick to turn it back on, exit the database then use Shift
to get back in. This does everything externally

http://www.jamiessoftware.tk/

 

[Sprinks]

Cool. Thanks.

Sprinks

Here is a FREE (I like that part) utility I found recently that allows you to
see and modify that and all the other start up options in a database. I am
finding it very useful. What I like best is that to get into a database that
has AllowBypassKey turned off, I used to have to have to open the database,
use a "back door" trick to turn it back on, exit the database then use Shift
to get back in. This does everything externally

http://www.jamiessoftware.tk/