如何在Access中屏蔽Shift键?[ACCESS中国/OFFICE中国(access技...

来源：百度文库编辑：神马文学网时间：2024/04/28 00:07:17

禁止用shift键
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer 　　Dim dbs As Object, prp As Variant 　　Const conPropNotFoundError = 3270 　　Set dbs = CurrentDb 　　On Error GoTo Change_Err 　　dbs.Properties(strPropName) = varPropvalue 　　ChangeProperty = True Change_Bye: 　　Exit Function Change_Err: 　　If Err = conPropNotFoundError Then　　' Property not found. 　　　　Set prp = dbs.CreateProperty(strPropName, _ 　　　　　　varPropType, varPropvalue) 　　　　dbs.Properties.Append prp 　　　　Resume Next 　　Else 　　　　' Unknown error. 　　　　ChangeProperty = False 　　　　Resume Change_Bye 　　End If End Function 调用方法：建一个窗体，在某一按钮的单击事件中写如下代码： ChangeProperty "AllowBypassKey", 1, False　'false为禁止SHIFT键，TRUE为恢复

如何在Access中屏蔽Shift键?[ACCESS中国/OFFICE中国(access技... ACCESS 禁用ACCESS全部菜单及Shift键后照样设回来 - Access 技术交流论坛 - A... 在Access数据库中重命名表在Access数据库中重命名表 excel间隔相同列或行的求和问题 - Access/Office中国 - Powered... Access表达式 Access表达式 ACCESS数据库在ACCESS中，"!"及"."符号之差别为何？在VB＋Access系统中实现多项条件查询 Access教程第一章 Access数据库基础 access转sqlserver注意事项 Google Secure Access Access 密码破解原理 JDBC连接Access ACCESS使用集锦 Access 密码破解原理 access asp 练习一 Access 密码破解原理 jsp连接ACCESS excel导入access方法 jsp连接ACCESS Access教程第二章