• 袁家军:坚定不移打赢新时代禁毒人民战争 2019-10-15
  • 微软 Build 大会开幕;比尔盖茨大赞苹果;Drive.AI 自动驾驶服务落地 雷锋早报 2019-10-15
  • 荷兰音乐节巴士冲撞人群事件致1死3伤 肇事者自首 2019-10-03
  • 互联网新闻信息服务许可证 2019-09-20
  • 谈具体的吧,别装模作样了。客观事实与观察事实、科学事实有什么不同? 2019-09-13
  • 中国女排7小花争艳!谁能制造惊喜 一位置别拖后腿 2019-09-10
  • 女子车上突然发病 公交车长现场急救 2019-08-29
  • 英才聚神州 奋斗正当时 2019-08-29
  • 纪录电影《盲行者》入围第21届上海电影节金爵奖 2019-08-22
  • 高清:江西南昌志愿者爱心陪伴特殊儿童 2019-08-15
  • “新时代 新梦想”网络媒体新春走基层 2019-08-15
  • 国内 —频道 春城壹网 七彩云南 一网天下 2019-08-13
  • 阿呆,那是你家远祖啊,还不跪拜?[哈哈] 2019-08-11
  • 本帖关键部分已被残酷删除。 2019-08-11
  • 换一种方式吃鸡肉 美味又易做-美食资讯 2019-08-07
  • 白小姐资料一肖中特马133期

    有关ADP禁止SHIFT键的方法代码概述

    时间:2012-02-18 01:03来源:Office教程学习网 白小姐资料一肖中特马133期 www.yzzcc.tw编辑:麦田守望者

    白小姐资料一肖中特马133期 www.yzzcc.tw Function DisableBypassADP(blnYesNo As Boolean)
    CurrentProject.Properties.Add "AllowByPassKey", blnYesNo
    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
    End If
    Next Ix
    Else
    .Add MyPropName, MyPropvalue
    End If
    End With
    SetMyProperty = True

    SetMyProperty_Exit:
    Exit Function

    SetMyProperty_In_Err:

    MsgBox "设置属性出错:", Err, Error$
    SetMyProperty = False
    Resume SetMyProperty_Exit

    End Function
    '--------检查属性是否存在---
    Private Function fn_PropertyExist(MyPropName As String) As Boolean
    fn_PropertyExist = False
    Dim Ix As Integer
    With CurrentProject.Properties
    For Ix = 0 To .Count - 1
    If .Item(Ix).Name = MyPropName Then
    fn_PropertyExist = True
    Exit For
    End If
    Next Ix
    End With
    End Function
     

    Public Function setByPass()
    SetMyProperty "AllowBypassKey", True
    End Function

    ------分隔线----------------------------
    标签(Tag):access access数据库 数据库 access视频教程 access教程 access技巧 access下载
    ------分隔线----------------------------
    推荐内容
    猜你感兴趣
  • 袁家军:坚定不移打赢新时代禁毒人民战争 2019-10-15
  • 微软 Build 大会开幕;比尔盖茨大赞苹果;Drive.AI 自动驾驶服务落地 雷锋早报 2019-10-15
  • 荷兰音乐节巴士冲撞人群事件致1死3伤 肇事者自首 2019-10-03
  • 互联网新闻信息服务许可证 2019-09-20
  • 谈具体的吧,别装模作样了。客观事实与观察事实、科学事实有什么不同? 2019-09-13
  • 中国女排7小花争艳!谁能制造惊喜 一位置别拖后腿 2019-09-10
  • 女子车上突然发病 公交车长现场急救 2019-08-29
  • 英才聚神州 奋斗正当时 2019-08-29
  • 纪录电影《盲行者》入围第21届上海电影节金爵奖 2019-08-22
  • 高清:江西南昌志愿者爱心陪伴特殊儿童 2019-08-15
  • “新时代 新梦想”网络媒体新春走基层 2019-08-15
  • 国内 —频道 春城壹网 七彩云南 一网天下 2019-08-13
  • 阿呆,那是你家远祖啊,还不跪拜?[哈哈] 2019-08-11
  • 本帖关键部分已被残酷删除。 2019-08-11
  • 换一种方式吃鸡肉 美味又易做-美食资讯 2019-08-07
  • pk10看走势图教程 北京pk10计划50期连中 赛车北京pk10官网冷热 彩票赚赔差率是违法的吗 红包龙虎和玩法介绍 时时彩定位胆个位杀 网赌坚持一年每天赢600 篮球比分直播 福彩快三玩法介绍 百变qq多功能软件