ComboBox AfterUpdate事件触发后无需额外操作即可显示赋值内容

问题原因 #

该显示滞后问题是因为Access窗体控件完成赋值后，默认不会立即触发窗体重绘逻辑，系统会等到焦点切换到对应控件、或者记录提交时才刷新控件的显示内容。你担心Me.Refresh会提前保存记录是正确的，Me.Refresh会重新读取整个窗体绑定的记录源，未保存的修改会被隐式提交。

解决方案 #

你可以使用以下几种不会触发记录保存的方案替代Me.Refresh，按推荐优先级排序：

方案1：使用Me.Repaint重绘窗体 #

该方法只会刷新窗体所有控件的显示内容，不会对绑定的记录数据做任何提交、刷新操作，是最轻量化的解决方案。
修改后的代码如下：

Private Sub AppArch_AfterUpdate()
    Me.DATE_RCVD_ARCH = Date
    Me.Repaint
End Sub

方案2：单独刷新目标日期控件 #

如果只需要更新单个控件的显示，也可以单独调用该控件的Refresh方法，资源消耗比全局重绘更低：

Private Sub AppArch_AfterUpdate()
    Me.DATE_RCVD_ARCH = Date
    Me.DATE_RCVD_ARCH.Refresh
End Sub

方案3：使用DoEvents交出系统控制权 #

极少数场景下如果窗体内有未处理的消息队列阻塞，上述两种方案不生效时，可以加上DoEvents让系统优先处理控件更新的消息：

Private Sub AppArch_AfterUpdate()
    Me.DATE_RCVD_ARCH = Date
    DoEvents
End Sub

注意事项 #

• 上述三种方法都不会触发未完成记录的保存操作，不会影响用户后续的输入流程
• 如果你的日期控件设置了输入掩码、格式规则，确保赋值的Date类型符合控件的格式要求，避免出现显示异常

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