Error when closing form

[School Boy Error]

Hi,



I have created a form but when the user clicks the x button I want it just to unload and not save anything. I have included this code in the VBA module but if I click close and some of the combo boxes are empty it still comes up with an error.

Private Sub close_form_Click()

On Error Resume Next


Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then ctl = Null
Next
Set ctl = Nothing
DoCmd.Close


End Sub

[davegri]

Private Sub close_form_Click()    
    'On Error Resume Next
    Dim ctl As Control
    Me.Undo
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then ctl = Null
    Next
    Set ctl = Nothing
    DoCmd.Close
End Sub

[moke123]

It's often easier to set the forms Close button and/or Control box to no and include a cancel button to undo and close without saving.

[davegri]

Need a bit more information from OP.
Notice that if the red x is clicked, the close_form_click event is not executed.
Also, the OP might want to differentiate the action taken for an existing record vs a new record?

[School Boy Error]

Private Sub Form_Close()

    Me.Undo


End Sub

This fixed it!! So simple when you know how - really difficult when you don't know what to look for! Thank you for the pointers!