Cancelling code in current event

[SimonPGreen]

Hi,

I have some code using the Dmax function in the current event of a form. I need to stop this code from running based on a user response on form load

If Me.NewRecord And Me.OpenArgs <> "" Then
        Select Case msgbox("No Packages found. Create new?", vbYesNo)
        Case Is = vbYes
            Me!FKContractRef = Me.OpenArgs
        Case Is = vbNo
            DoCmd.Close
            Exit Sub
        Case Else
            DoCmd.Close
            Exit Sub
        End Select
    End If

If the user clicks no the form still seems to go through its event sequence before the closing events - how can I stop this?

Appreciate any help.

Regards,

Simon

 

[Remou]

What is the line you are using to open this form?

PS Why not:

If Me.NewRecord And Me.OpenArgs <> "" Then
        If msgbox("No Packages found. Create new?", vbYesNo) = vbYes
            Me!FKContractRef = Me.OpenArgs
        Else
            DoCmd.Close
            Exit Sub
        End If
End If