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...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Disabling the Bypass Key on Startup 6
Access Shift By Pass 3
Shift ByPass 4
Disabled Shift Key 2
Deploying A2K .adp 2
Shift key button 1
suppress SHIFT key 13
bypass key not working 2

Back
Top