office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請(qǐng)用微信掃碼)

        

Access窗體使用 [Form].[Recalc] 時(shí)如何避免閃爍(Flickering )

2019-12-08 08:00:00
zstmtony
轉(zhuǎn)貼
5220
Access窗體使用 [Form].[Recalc] 時(shí)如何避免閃爍(Flickering )

我正在使用MS Access 2013,并且有一個(gè)計(jì)算,在每次更改基礎(chǔ)值時(shí)都需要更新?!坝涗洝北旧聿恍枰?,只需在保存記錄之前更新“監(jiān)視”值即可。

該表單有12個(gè)會(huì)計(jì)年度的月份(10月-9月),并且在每個(gè)文本框中輸入了“Currency”值。每次每次更改時(shí),所有文本框的總值都需要顯示在底部。目前可以,但是閃爍劇烈。

結(jié)構(gòu)如下

每個(gè)文件框在 AfterUpdate 事件有如下代碼  : =[Form].[Recalc]

 合計(jì) "Total" 文本框有如下公式:
=Nz([txtOCT_Nc],0)+Nz([txtNOV_NC],0)+Nz([txtDEC_NC],0)+Nz([txtJAN_NC],0)+Nz([txtFEB_NC],0)+Nz([txtMAR_NC],0)+Nz([txtAPR_NC],0)+Nz([txtMAY_NC],0)+Nz([txtJUN_NC],0)+Nz([txtJUL_NC],0)+Nz([txtAUG_NC],0)+Nz([txtSEP_NC],0)

如何使用VBA代碼來避免閃爍呢


解決方法:
在模塊中創(chuàng)建以下函數(shù)

Private Function MyRecalc()

    Application.Echo False
    Me.Recalc
    Application.Echo True

End Function

改變控件的更新后事件 AfterUpdate 為
=MyRecalc()
分享
文章分類
聯(lián)系我們
聯(lián)系人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問