Access如何禁止用户使用Shift键跳过启动窗体.docVIP

如何禁止用户使用Shift键跳过启动窗体 作者：日期：2005年月 适用版本：Access 97、Access 2000、Access 2002、Access 2003 难度系数：**** 问题详述 如果程序设置了启动窗体，程序在打开时都会自动进入启动窗体界面，而不会显示Access的数据库窗体，但有些好奇的用户可能知道按住Shift键来打开程序，然后进入到数据库窗体，修改表或其他Access对象的内容，从而导致程序出错或者数据丢失，有什么办法禁止用户使用Shift键跳过启动窗体呢？ 解答 可以通过设置“AllowBypassKey”属性来达到禁止使用Shift键的目的，而在Access数据库和Access项目中禁止Shift键需要使用不同的方法。 1．在Access数据库（MDB）中禁止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 如果错误是数据库没有这个属性 Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropvalue) 创建新的属性,并设置它的默认值 dbs.Properties.Append prp 将新的属性对象绑定到数据库 Resume Next 继续执行后面的代码 Else ChangeProperty = False 如果是其它错误,则函数值返回假 Resume Change_Bye 转到函数退出处理 End If End Function 然后调用这个通用函数来设置“AllowBypassKey”属性值为False，代码如下。 ChangeProperty AllowBypassKey, 1, False　False为禁止Shift键，True为恢复 如果想允许使用Shift键，则同样设置ChangeProperty AllowBypassKey, 1, True就可以了。 2．在Access项目（ADP）中禁止Shift键的方法 首先创建一个检测项目的属性是否存在的函数，如果函数值返回真，则表示属性已经存在。 Private Function PropertyIsExist(MyPropName As String) As Boolean PropertyIsExist = False 首先初始化返回值为假 Dim i As Integer With CurrentProject.Properties 循环当前工程项目的所有属性 For i = 0 To .Count - 1 如果项目属性已经存在,则返回真,否则返回假 If .Item(i).Name = MyPropName Then PropertyIsExist = True Exit For End If Next i End With End Function 然后创建一个设置项目属性的通用函数，根据属性值是否存在而进行不同的处理。 Function SetMyProperty(MyPropName As String, MyPropvalue As Variant) As Boolean On Error GoTo SetMyProperty_In_Err 如果出错则转到错误处理程序 Dim i As Integer With CurrentProject.Properties 循环当前工程项目的所有属性 If PropertyIsExist(MyPropName) Then 调用PropertyIsExist函数检查要设置的属性是否已经存在 For i = 0 To .Count - 1 If .Item(i).Name = MyPropName Then .Item(i).Value = MyProp