Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

如何解决禁止用SHIFT键打开MDB/MDE文件

时 间:2003-12-14 09:25:24
作 者:未知   ID:-1  城市:
摘 要:禁用SHIFT键打开MDB/MDE文件的函数
正 文:

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软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助