office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

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

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

我正在使用MS Access 2013,併且有一箇計祘,在每次更改基礎值時都需要更新。“記録”本身不需要更新,隻需在保存記録之前更新“監視”值卽可。

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

結構如下

每箇文件框在 AfterUpdate 事件有如下代碼  : =[Form].[Recalc]

 閤計 "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代碼來避免閃爍呢


解決方法:
在模塊中創建以下函數

Private Function MyRecalc()

    Application.Echo False
    Me.Recalc
    Application.Echo True

End Function

改變控件的更新後事件 AfterUpdate 爲
=MyRecalc()
分享