为什么出“对象关闭时，不允许操作”的错误？

刘小建　发表于：2015-02-08 10:55:40 　

窗体打开时，有这样的句子：

Dim rsSearch As ADODB.Recordset

Private Sub Form_Load()
'create new recordset
Set rsSearch = New ADODB.Recordset
End Sub

在退出窗体时，有这样的句子：

Private Sub Form_Unload(Cancel As Integer)
    If Not rsSearch Is Nothing Then
        'close recordset
        rsSearch.Close
        Set rsSearch = Nothing
    End If
End Sub

结果在退出窗体时出错：3704，对象关闭时，不允许操作。

如果打开窗体后，执行其他命令，给rsSearch加载个记录集，就没事了。这是怎么回事呢？怎样消除呢？我现在是把退出窗体时的操作取消，好像也没什么不好。

谢谢指教！

Top

刘小建发表于：2015-02-08 10:57:11

Private Sub Form_Unload(Cancel As Integer)

    On Error GoTo HandleError

    'reset lookup id to 0
    intCustomerLookupId = 0

'    If Not rsSearch Is Nothing Then
'        'close recordset
'        rsSearch.Close
'        Set rsSearch = Nothing
'    End If

    Exit Sub

HandleError:
    GeneralErrorHandler Err.Number, Err.Description, SEARCH_FORM, "Form_Unload"
    Exit Sub

End Sub

Top

刘小建发表于：2015-02-08 11:28:38

我担心退出时不关闭记录集有什么不好，就在错误处理的地方加上这个！也挺好

HandleError:
    If Err.Number = 3704 Then Exit Sub
    GeneralErrorHandler Err.Number, Err.Description, SEARCH_FORM, "Form_Unload"
    Exit Sub

Top

刘小建发表于：2015-02-08 11:57:17

好了！我现在觉得是窗体加载时没必要增加记录集实例，在需要时再写这句，就行了

Set rsSearch = New ADODB.Recordset
Set rsSearch = ProcessRecordset(strSQL)

记录集不能关闭，就是这句造成的：

Set rsSearch = New ADODB.Recordset

如果没有它，窗体关闭时就可以有

rsSearch.Close

有了它，就不行了

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]为什么出“对象关闭时，不允许操作”的错误？