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

Access快速开发平台(2.5.1.462版本)在accdb\mdb格式下,VBA密码保护时错误提示无法消除的解决方法

时 间:2020-10-22 13:46:29
作 者:易勋   ID:35404  城市:上海
摘 要:Access快速开发平台(2.5.1.462版本)在accdb\mdb格式下,VBA密码保护时错误提示无法消除的解决方法
正 文:

      Access快速开发平台最近的版本新增了一个功能,就是在VBA代码可读的情况下,如果出错,按F8可以跳转到出错代码行。

    If RDPErrorHandler(Me.Name & ": Sub btnSave_Click()") Then
        Resume
    Else
        Resume ExitHere
    End If
Resume就是调整到出错代码行,Resume ExitHere是结束该事件、过程。


但是最近使用,发现VBA密码未输入的情况下,由于对于VBA代码是否可读判断异常,导致出错后错误提示无法消除的问题。

经过调试,确定是CanViewVBACode()函数的判定出现了问题:

Public Function CanViewVBACode() As Boolean
    If IsRuntime() or IsMDE() Then
        CanViewVBACode = False
    Else
        CanViewVBACode = True
    End If
End Function

测试发现,在accdb格式下,不管是否输入了VBA密码,CanViewVBACode都是返回True,这样就会导致用户虽然看不到VBA代码,但是函数判定他可以看到,从而执行Resume操作,但是用户此时又是无法看到代码的,就会陷入无限循环弹出错误提示的现象。


临时解决方法

打开basRDPRef模块,找到CanViewVBACode函数,将其改为如下:

Public Function CanViewVBACode() As Boolean
    CanViewVBACode = False
End Function
最终解决方案请等待Access快速开发平台发布新版本。



Access快速开发平台QQ群 (群号:239158550)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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