Ik heb geprobeerd om de shifttoets aan en uit te schakelen met behulp van de volgende code:
Private Sub Knop1_Click()
Dim db As Database
Set db = CurrentDb
db.Properties.Delete "AllowByPassKey"
db.Properties.Refresh
MsgBox ("Database is niet beveiligd, bypasskey is ingeschakeld")
End Sub
Private Sub Knop0_Click()
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prp
MsgBox ("Database is beveiligd, bypasskey is uitgeschakeld")
End Sub
Ik krijg echter steeds de melding:
Compileerfout:
Een door de gebuiker gedefineerd gegevenstype is niet gedefineerd.
Het gekke is dat het bij een andere database wel werkt.
Kan iemand mij helpen ???
Private Sub Knop1_Click()
Dim db As Database
Set db = CurrentDb
db.Properties.Delete "AllowByPassKey"
db.Properties.Refresh
MsgBox ("Database is niet beveiligd, bypasskey is ingeschakeld")
End Sub
Private Sub Knop0_Click()
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prp
MsgBox ("Database is beveiligd, bypasskey is uitgeschakeld")
End Sub
Ik krijg echter steeds de melding:
Compileerfout:
Een door de gebuiker gedefineerd gegevenstype is niet gedefineerd.
Het gekke is dat het bij een andere database wel werkt.
Kan iemand mij helpen ???
