如何通过VBA代码实现Access主窗体数据刷新以替代手动点击「全部刷新」？

你的核心问题在于没有正确引用已经打开的主窗体实例，而且混淆了Refresh和Requery的作用。我们可以通过直接操作已打开的主窗体对象来实现自动刷新，不需要重新打开窗体，具体调整如下：

正确的子窗体关闭按钮代码 #

替换你当前的Cancel_Click事件代码为：

Private Sub Cancel_Click()
    ' 检查主窗体是否处于打开状态
    If CurrentProject.AllForms("Main_Form").IsLoaded Then
        ' 直接引用已打开的主窗体实例，执行重新查询获取最新数据
        Forms("Main_Form").Requery
    End If
    ' 关闭当前子窗体
    DoCmd.Close acForm, Me.Name
End Sub

为什么之前的方法无效？ #

1. 重新打开主窗体的错误：你之前用DoCmd.OpenForm "Main_Form"会打开一个新的主窗体实例，而不是操作原来已经显示的那个，所以原来的主窗体自然不会刷新。
2. Refresh vs Requery的区别：
   • Refresh只是刷新当前显示的记录，不会重新从数据源（你的Query）获取最新数据；
   • Requery会重新执行窗体的数据源查询，能获取到子窗体修改后的最新数据，这才是你需要的操作。
3. CommandBars.ExecuteMso的局限性：这个命令依赖于Office界面的状态，比如是否有焦点、命令是否可用，稳定性远不如直接调用窗体的Requery方法。

额外优化建议 #

• 可以在子窗体关闭时清理TempVars，避免残留旧值：在子窗体的Form_Close事件中添加TempVars.Remove "currentRec"
• 如果主窗体的数据源是Query，确保Query的设计是直接关联底层表的，没有设置固定缓存或者筛选导致数据不更新的情况

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