P
(PeteCresswell)
In Form_Open, I'm creating a recordset.
That recordset is used successfully in various event functions
while the form is open.
In Form_Close, however, it seems like it does not exist when I go
to Close/Nothing it.
viz:
-------------------------------------------------------------------
Private Sub Form_Close()
debugStackPush Me.Name & ": Form_Close"
On Error GoTo Form_Close_err
' PURPOSE: - To clean up after ourselves table-wise
' - To save form's location so we can restore it next
' time
' Trapping out w/"3420: Object invalid or no longer set."
mIndexTableRS.Close
Set mIndexTableRS = Nothing
FormDimensions_Save Me, CurrentUserGet()
Form_Close_xit:
DebugStackPop
On Error Resume Next
Exit Sub
Form_Close_err:
BugAlert True, ""
Resume Form_Close_xit
End Sub
-------------------------------------------------------------------
That recordset is used successfully in various event functions
while the form is open.
In Form_Close, however, it seems like it does not exist when I go
to Close/Nothing it.
viz:
-------------------------------------------------------------------
Private Sub Form_Close()
debugStackPush Me.Name & ": Form_Close"
On Error GoTo Form_Close_err
' PURPOSE: - To clean up after ourselves table-wise
' - To save form's location so we can restore it next
' time
' Trapping out w/"3420: Object invalid or no longer set."
mIndexTableRS.Close
Set mIndexTableRS = Nothing
FormDimensions_Save Me, CurrentUserGet()
Form_Close_xit:
DebugStackPop
On Error Resume Next
Exit Sub
Form_Close_err:
BugAlert True, ""
Resume Form_Close_xit
End Sub
-------------------------------------------------------------------