Disable shift(bypass) key

  • Thread starter Thread starter Martin
  • Start date Start date
Hello Martin:
You wrote in conference microsoft.public.access.adp.sqlserver on Mon, 22
Mar 2004 11:06:17 -0300:

M> How can I disable the shift(bypass) key for adp?

compile into ADE.

Vadim
 
Hi Everyone,

How can I disable the shift(bypass) key for adp?

Regards,

Martin.
Click to expand...

Public Sub ToggleKeys(Optional ByVal KeyState As Boolean = True)
With CurrentProject
With .Properties
.Add "AllowByPassKey", KeyState
.Item("AllowByPassKey").Value = KeyState
.Add "AllowSpecialKeys", KeyState
.Item("AllowSpecialKeys").Value = KeyState
End With
End With
End Sub

Private Sub Test()
ToggleKeys False
End Sub
 
Thank you very much.

It worked great!

Martin.


Lyle Fairfield said:
Public Sub ToggleKeys(Optional ByVal KeyState As Boolean = True)
With CurrentProject
With .Properties
.Add "AllowByPassKey", KeyState
.Item("AllowByPassKey").Value = KeyState
.Add "AllowSpecialKeys", KeyState
.Item("AllowSpecialKeys").Value = KeyState
End With
End With
End Sub

Private Sub Test()
ToggleKeys False
End Sub
Click to expand...
 
Back
Top