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)貼
5222
Access窗體使用 [Form].[Recalc] 時(shí)如何避免閃爍(Flickering )

我正在使用MS Access 2013,併且有一箇計(jì)祘,在每次更改基礎(chǔ)值時(shí)都需要更新?!坝涘h”本身不需要更新,隻需在保存記録之前更新“監(jiān)視”值卽可。

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

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

每箇文件框在 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 爲(wèi)
=MyRecalc()
分享
文章分類
聯(lián)繫我們
聯(lián)繫人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問