Office中国论坛/Access中国论坛

标题: 版主:如何屏蔽shift键 [打印本页]

作者: liubin_fwlb 时间: 2004-11-3 20:50
标题: 版主:如何屏蔽shift键
我的程序设计好了登录和用户管理窗体,但仍可用shift键来跳过,请问如何解决?

[此贴子已经被作者于2004-11-3 12:50:52编辑过]

作者: wzhy_521 时间: 2004-11-3 21:33
在模块中新建一个写下以下代码

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

再在一个窗体中做一个按钮在它的click事件中或在窗体的Load事件中写下

Const DB_Boolean As Long = 1

ChangeProperty "AllowBypassKey", DB_Boolean, False

把false改成true则解除刚才的shit

作者: liubin_fwlb 时间: 2004-11-4 19:01
我先试试,多谢!

作者: tszysun 时间: 2005-2-17 23:42
OK

作者: jpj123123 时间: 2008-2-21 12:54
好用，谢谢了

作者: goodboy040 时间: 2008-2-22 22:42
谢谢分享。。。。。。。。。。。。。。。。

作者: meiweiyuan 时间: 2008-4-18 10:57
恩，又学一招，多谢！

作者: rcylbx 时间: 2008-7-10 17:43
[:50] [:50]

作者: nxjswt 时间: 2008-7-10 19:54
[:22] 学习

作者: yangzhesheng 时间: 2009-6-12 23:13
收藏

作者: ruanjy 时间: 2010-8-12 14:19
那里行,我按住SHIFT 打开跟本就调不到函数

作者: liuxiangyucdpc 时间: 2012-7-26 16:41
正需要，多谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)