Kod:
Sub DisableShiftKey()
Dim db As DAO.Database
Dim prp As DAO.Property
Set db = CurrentDb
db.Properties.Delete "AllowBypassKey"
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
db.Properties.Append prp
db.Properties.Refresh
Set prp = Nothing
Set db = Nothing
End Subdb.Properties.Delete "AllowBypassKey"
sarı renkte hata burada diyor
teşekkürler
