造梦西游3青龙超进化:ACCESS中如何禁用Shift键和启用Shift键...

来源：百度文库编辑：九乡新闻网时间：2024/04/26 03:08:38

ACCESS中如何禁用Shift键和启用Shift键

ACCESS中如何禁用Shift键和启用Shift键.../?
可以按以下代码建立一个窗体,,,
Function CloseBypassKey()
   Dim p
   On Error Resume Next
   Set p = CurrentDb.CreateProperty _
                   ("AllowBypassKey", DB_BOOLEAN, False)
   CurrentDb.Properties.Append p
   CurrentDb.Properties("AllowBypassKey") = False
End Function
Function OpenBypassKey()
   Dim p
   On Error Resume Next
   Set p = CurrentDb.CreateProperty _
                   ("AllowBypassKey", DB_BOOLEAN, True)
   CurrentDb.Properties.Append p
   CurrentDb.Properties("AllowBypassKey") = True
End Function
Private Sub Command0_Click()
If MsgBox("你要启用Shift键吗？", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
       OpenBypassKey
    End If
    End Sub
Private Sub Command1_Click()
If MsgBox("你要禁用Shift键吗？", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
       CloseBypassKey
    End If
End Sub

ACCESS中如何禁用Shift键和启用Shift键... Shift键 shift键妙用技巧 shift键的妙用！ shift键的妙用 shift键的妙用电脑shift键 shift键的妙用 shift键的十个妙用。。按shift键的妙用！ shift键的妙用123 shift键的十个妙用全面解读Word中Shift键的应用技巧全面解读Word中Shift键的使用技巧 shift键和Esc键的使用妙招！ shift键和Esc键的使用妙招实用：Shift键十大功能一键shift 轻松用电脑 shift键11个妙用技巧 shift键的11个妙用技巧 shift键的11个妙用 shift键使用技巧(绝对实用) shift键使用技巧(绝对实用) shift键的十一个妙用g