Access窗體的標(biāo)題控件內(nèi)容不刷新的問(wèn)題解決辦法

今天遇到一個(gè)非常奇怪的Access問(wèn)題，很普通的一個(gè)窗體界面，這個(gè)窗體是設(shè)置為啟動(dòng)窗體，即Access數(shù)據(jù)庫(kù)一打開(kāi)時(shí)就默認(rèn)啟動(dòng)

窗體上有一個(gè)狀態(tài)標(biāo)簽label , 程序在執(zhí)行過(guò)程中會(huì)更新這個(gè)label標(biāo)簽的標(biāo)題，以顯示程序分析處理的進(jìn)度，窗體界面大致如下所示：

現(xiàn)在遇到的問(wèn)題

1.如果按shift打開(kāi)Access數(shù)據(jù)庫(kù)，打開(kāi)這個(gè)窗體至窗體視圖，執(zhí)行分析，這個(gè)Label標(biāo)簽的標(biāo)題內(nèi)容顯示正常，即隨著程序的處理，標(biāo)題 會(huì)自動(dòng)刷新變化
2.但如果不按shift打開(kāi)這個(gè)Access數(shù)據(jù)庫(kù)，程序一打開(kāi)，就會(huì)自動(dòng)打開(kāi)這個(gè)窗體，這時(shí)執(zhí)行分析，這個(gè)Label標(biāo)簽的標(biāo)題內(nèi)容顯示不正常，即標(biāo)簽的標(biāo)題不變，但用程序或代碼查看過(guò)這個(gè)Label標(biāo)簽的標(biāo)題，的確是有變化的，只是窗體界面不刷新，不顯示出來(lái)
3.如果程序中設(shè)置斷點(diǎn)，則Label標(biāo)簽的標(biāo)題 就會(huì)正常。

最后嘗試了各種辦法
1.VBA代碼執(zhí)行過(guò)程中加入 Doevents
2.分析代碼中加入 me.repaint 強(qiáng)制刷新窗體
3.代碼中加入me.painting =true
4.代碼中加入Application.echo true

均無(wú)法解決問(wèn)題，后想到這個(gè)Access數(shù)據(jù)庫(kù)如果按住shift打開(kāi)，打開(kāi)窗體則正常的 現(xiàn)象

想到一個(gè)辦法

就是為Access數(shù)據(jù)庫(kù)添加一個(gè)Autoexec 自動(dòng)執(zhí)行宏

在宏中Runcode 執(zhí)行一個(gè)全局函數(shù) 如 gf_initSys()
這個(gè)函數(shù)再打開(kāi) 這個(gè)窗體

則一切都解決了。

寫(xiě)下給自己備份（tmtony)，也希望給Access興趣愛(ài)好者帶來(lái)幫助和啟動(dòng)