G
Guest
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
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