Access窗体的标题控件内容不刷新的问题解决办法

2019-12-03 08:00:00
zstmtony
原创
39

今天遇到一个非常奇怪的Access问题,很普通的一个窗体界面,这个窗体是设置为启动窗体,即Access数据库一打开时就默认启动

窗体上有一个状态标签label , 程序在执行过程中会更新这个label标签的标题,以显示程序分析处理的进度,窗体界面大致如下所示:


现在遇到的问题

1.如果按shift打开Access数据库,打开这个窗体至窗体视图,执行分析,这个Label标签的标题内容显示正常,即随着程序的处理,标题 会自动刷新变化
2.但如果不按shift打开这个Access数据库,程序一打开,就会自动打开这个窗体,这时执行分析,这个Label标签的标题内容显示不正常,即标签的标题不变,但用程序或代码查看过这个Label标签的标题,的确是有变化的,只是窗体界面不刷新,不显示出来
3.如果程序中设置断点,则Label标签的标题 就会正常。

最后尝试了各种办法
1.VBA代码执行过程中加入 Doevents
2.分析代码中加入 me.repaint 强制刷新窗体
3.代码中加入me.painting =true
4.代码中加入Application.echo true

均无法解决问题,后想到这个Access数据库如果按住shift打开,打开窗体则正常的 现象

想到一个办法

就是为Access数据库添加一个Autoexec 自动执行宏

在宏中Runcode 执行一个全局函数 如 gf_initSys()
这个函数再打开 这个窗体


则一切都解决了。


写下给自己备份(tmtony),也希望给Access兴趣爱好者带来帮助和启动

    分享