Access中如何停止屏幕更新？添加me.painting=false至按钮无效

我懂你现在的麻烦——表单上堆了一大堆按钮，挨个加Me.Painting = False不仅繁琐，还完全没效果，这确实挺闹心的。别着急，咱们换个更靠谱的思路来解决：

为什么Me.Painting = False没生效？ #

这个属性只能控制单个表单的绘制行为，但如果你的按钮操作涉及到控件状态变更、记录集读写、Access内部UI触发等操作，系统还是会强制触发屏幕重绘，所以单个控件/表单的Painting设置根本压不住全局的更新。

更高效的解决方案：全局控制屏幕更新 #

使用Application.Echo属性来全局关闭Access的屏幕刷新，这个方法比单个控件设置靠谱得多，而且能一次性搞定所有按钮的需求。

步骤1：封装一个通用的屏幕更新控制子程序 #

在你的表单模块里（或者标准模块里，方便全局调用）写一个复用的子程序：

Sub ToggleScreenUpdates(turnOff As Boolean)
    If turnOff Then
        Application.Echo False ' 关闭屏幕更新
        Screen.MousePointer = vbHourglass ' 可选：显示忙碌光标，提示用户操作中
    Else
        Application.Echo True ' 恢复屏幕更新
        Screen.MousePointer = vbDefault ' 恢复默认光标
        DoEvents ' 强制界面刷新，确保UI恢复正常
    End If
End Sub

步骤2：在按钮事件中调用这个子程序 #

每个按钮的点击事件里只需要写几行代码，不用重复写冻结逻辑：

Private Sub btnYourButton_Click()
    ' 先关闭屏幕更新
    ToggleScreenUpdates True
    ' 错误处理：确保无论操作成功/失败，都能恢复屏幕更新
    On Error GoTo Cleanup

    ' --------------------------
    ' 这里写你的按钮业务逻辑代码
    ' 比如数据查询、控件赋值、记录操作等
    ' --------------------------

Cleanup:
    ' 恢复屏幕更新
    ToggleScreenUpdates False
    ' 如果有错误，提示用户
    If Err.Number <> 0 Then
        MsgBox "操作出错：" & Err.Description, vbExclamation
        Err.Clear
    End If
End Sub

额外提醒 #

• 必须恢复Echo：如果忘记打开Application.Echo True，Access界面会变得无响应，所以错误处理是必不可少的——哪怕代码中途出错，也能通过Cleanup标签恢复屏幕更新。
• 表单加载/卸载时的控制：如果表单加载时就需要冻结更新，可以在Form_Load事件里调用ToggleScreenUpdates True，然后在Form_Unload事件里调用ToggleScreenUpdates False。

这样一来，你不用再给每个按钮重复写冻结代码，而且屏幕更新的控制会稳定很多。

内容的提问来源于stack exchange，提问作者Midovic