vba - 关闭打开的记录集会产生运行时错误

Question

我有一个在用户窗体的类模块中声明的 ADO 记录集变量。记录集在表单的激活事件中打开，我尝试使用如下代码在表单的终止事件中关闭它:

Private Sub UserForm_Terminate()

If VersionIsReleased Then
    ThisWorkbook.Parent.Quit
Else

    If Not m_rs Is Nothing Then

        If m_rs.State = adStateOpen Then
            m_rs.Close
        End If

        Set m_rs = Nothing
    End If

    Close_CN g_cn
    ThisWorkbook.Application.Visible = True
End If

End Sub

行m_rs.Close 产生运行时错误:“在此上下文中不允许操作。”。有什么想法为什么会发生这种情况吗？

Answer 1

如果在尝试关闭记录集时正在编辑该记录集，则可能会发生该错误。如果您使用 AddNew 或更改任何 Fields().Value，请确保在关闭之前使用 Update 保存编辑内容。您可以检查 EditMode 属性来查看记录集处于什么状态。