<<< 返回 access911.net 编程静态资料库索引页

ADP禁止SHIFT键

 

作者:  摘自:  录入:cg1  时间:2003-3-29  浏览人次:1001


专题地址:http://access911.net/fixhtm/73FAB21E10DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


Function DisableBypassADP(blnYesNo As Boolean)
    CurrentProject.Properties.Add "AllowByPassKey", blnYesNo
    '和mdb不同点在于这里要用 add  而不是 create...
End Function

然后在启动时调用 DisableBypassADP(false)

更详细的做法:

Function SetMyProperty(MyPropName As String, MyPropvalue As Variant) As Boolean
    On Error GoTo SetMyProperty_In_Err
    Dim Ix As Integer
    With CurrentProject.Properties
    If fn_PropertyExist(MyPropName) Then  'check if it already exists
        For Ix = 0 To .Count - 1
            If .Item(Ix).Name = MyPropName Then
                .Item(Ix).value = MyPropvalue
       .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB21E10DC.htm

 


上一篇:新手来看:在accessXP下如何隐藏菜单及右上角的帮助输入框?

下一篇:如何调用主菜单上的“压缩和修复数据库”命令?

2017年2月22日生成静态资料