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

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

专题地址：http://access911.net/index.asp?u1=a&u2=73FAB21E10DC 如果需要更详细的评论或说明，请点击该地址。

简述：

然后在启动时调用 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
       .....................
...........