数据录入表单触发Run-time error '424'错误的解决请求

错误根源 #

Run-time error '424'是对象引用错误，你的代码中Records对象在AfterInsert触发时已无法正常访问：插入新记录后，原Records实例可能已与当前表单的记录集脱节，或是未正确初始化。

具体修复方法 #

方法1：直接使用表单内置记录集 #

放弃自定义Records变量，直接调用表单的Recordset对象，这是最稳妥的方式：

Private Sub Form_AfterInsert()
    If Not Me.Recordset Is Nothing Then
        Me.Recordset.MoveLast
        TotalRecords = Me.Recordset.RecordCount
    End If
    Exit Sub
End Sub

方法2：重新初始化自定义记录集 #

如果必须保留Records变量，需在事件内重新绑定表单的记录集克隆（避免干扰当前表单显示）：

Private Sub Form_AfterInsert()
    Dim Records As DAO.Recordset
    Set Records = Me.RecordsetClone
    
    Records.MoveLast
    TotalRecords = Records.RecordCount
    
    ' 用完后释放资源
    Records.Close
    Set Records = Nothing
    Exit Sub
End Sub

方法3：用DCount直接统计总记录数 #

如果仅需获取总记录数，可跳过记录集操作，直接查询数据源：

Private Sub Form_AfterInsert()
    ' 替换"YourDataSourceName"为表单绑定的表/查询名
    TotalRecords = DCount("*", "YourDataSourceName")
    Exit Sub
End Sub

额外提示 #

• 确认TotalRecords是模块级/全局变量，避免事件内未声明引发隐性错误
• 若搜索框设置了表单筛选，需确保获取的是完整数据源的记录数，而非过滤后的子集

内容的提问来源于stack exchange，提问作者Noel de la Rosa