Access窗體的標題控件內容不刷新的問題解決辦法

2019-12-03 08:00:00
zstmtony
原創
91

今天遇到一個非常奇怪的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興趣愛好者帶來幫助和啟動

    分享
    北京十一选五基本走势