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

今天遇到一个非常奇怪的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兴趣爱好者带来帮助和启动