Check status db.Properties

[Stefan van der Hooft]

Hi!

I have a form with 2 keys, one to enable the SHIFT-key and one to disable
the SHIFT-key.
What I want is a text which tells me if the current SHIFT-key is on or off.
So I need to create something that checks the status.

--------------------------------------------------------------------------------------
The code behind the turn on button:
Public Sub Enable_Click()
Dim db As Database
Set db = CurrentDb
db.Properties.Delete "AllowByPassKey"
db.Properties.Refresh
End Sub

The code behind the turn off button:
Public Sub Disable_Click()
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prp
End Sub

 

[Sergey Poberezovskiy]

Why not put a value in a table and then have it updated depending on which
button is clicked?