What is the correct code command to keep a form open after selecting close control box button?

[RLehrbass]

Ok, I am at my Login Screen, I want it to return to the Login Screen if you select "NO" and Close the DB if "YES"

Here is my current code:

Private Sub Form_Close()

If MsgBox("Would you like to EXIT the Database?", vbYesNo, "Quiting Database") = vbYes Then
Application.Quit

Else


???

End If

End Sub

[DrGUI]

Try this:

Private Sub Form_Close()

If MsgBox("Would you like to EXIT the Database?", vbYesNo, "Quiting Database") = vbYes Then
Application.Quit
End If

End Sub

You will want to put this code in the Click event of the button not the Close event.

[pbaldy]

I suspect you're looking for

Cancel = True

but I don't think the close event can be cancelled. Try the unload event.

[ItsMe]

...
but I don't think the close event can be cancelled. Try the unload event.

That is what I am thinking.

[RLehrbass]

It needed to be in the event unload not the event cancel.

Private Sub Form_Unload(Cancel As Integer)

If MsgBox("Would you like to EXIT the Database?", vbYesNo, "Quiting Database") = vbYes Then
Application.Quit

Else
Cancel = True

End If
End Sub

[pbaldy]

I wish I'd have thought of that.