如何通过VBA强制刷新Access窗体以显示新增记录？

这个问题在Access窗体开发里太常见了——不用每次关闭重开窗体1，几行VBA代码就能让它实时显示刚从表2导入的新记录，甚至还能自动定位到这条新记录，具体实现方法如下：

核心思路：重新查询窗体数据源 #

Access里的Refresh方法只能更新现有记录的显示值，不会加载新插入的记录，所以我们需要用Requery方法——它会重新执行窗体的记录源查询，直接从表1获取最新数据。

具体代码实现 #

把这段代码加在你窗体2「导入」按钮的Click事件过程末尾（也就是插入记录的代码之后）：

Private Sub cmdImport_Click()
    ' --- 你的原有插入记录代码（示例，根据你的实际字段调整）---
    CurrentDb.Execute _
        "INSERT INTO 表1 (字段名1, 字段名2, 字段名3) " & _
        "VALUES ('" & Me.字段名1 & "', '" & Me.字段名2 & "', " & Me.字段名3 & ")", _
        dbFailOnError ' 确保插入失败时抛出错误，方便调试
    
    ' --- 刷新窗体1的核心代码 ---
    ' 先判断窗体1是否已经打开
    If CurrentProject.AllForms("窗体1").IsLoaded Then
        ' 重新查询窗体1的数据源，加载新记录
        Forms("窗体1").Requery
        
        ' 可选：自动定位到刚插入的新记录（如果表1有自动编号主键，比如ID）
        Dim newRecordID As Long
        newRecordID = DMax("ID", "表1") ' 获取表1最新的主键ID
        Forms("窗体1").FindFirst "ID = " & newRecordID
    Else
        ' 如果窗体1没打开，可选择直接打开它（按需启用）
        DoCmd.OpenForm "窗体1", acNormal
    End If
End Sub

关键细节说明 #

• Requery vs Refresh：一定要用Requery，它会完全重新加载窗体的记录集，包括新插入的记录；而Refresh只是刷新现有记录的显示，对新记录无效。
• 错误处理：dbFailOnError参数能确保如果插入记录时出错（比如字段不匹配、主键重复），代码会立刻报错，避免数据不一致。
• 定位新记录：如果需要让窗体1自动跳转到刚导入的记录，用DMax获取表1的最新主键值，再用FindFirst定位即可（注意主键字段类型要匹配，比如文本字段要加引号）。

特殊情况：如果窗体1是子窗体 #

要是窗体1是某个主窗体的子窗体，刷新代码要改成这样：

Forms("主窗体名称").子窗体控件名称.Form.Requery

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