郑爽和许晴怎么回事:如何在启动时禁用/启用SHIFT键[ACCESS中国/OFFICE中国(access技巧/...

来源:百度文库 编辑:偶看新闻 时间:2024/05/06 10:30:27
如何在启动时禁用/启用SHIFT键 大家都知道,对于ACCESS 文件来说,只要在启动时按住SHIFT键,都可以进入内部查看到所有的表、查询、窗体等,对于这一点,其实可以很简单的解决。
1、首先在模块里建立两个函数
Public Function LockShift()’禁用
    CurrentProject.Properties.Add "AllowBypassKey", 0
End Function
Public Function UnLockShift()'启用
    CurrentProject.Properties.Add "AllowBypassKey", -1
End Function
2、新建宏,点击工具条上的“视图”-宏名,按照下面建立
宏名{F11},操作RunCode,函数名称LockShift()
宏名{F12},操作RunCode,函数名称UnLockShift()
保存宏的名称为autokeys
3、保存退出,重新进入。按下F11键就可在下次启动时使Shift键失效,如果想再次启用,在进入后按F12键即可