Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' Only prompt if the user hits X If UnloadMode = 0 Then If Msgbox("Are you sure you want to quit?", vbYesNo Or vbQuestion) = vbNo Then Cancel = True End If
End Sub
_________________ "Failure is the key to success, so try and try until you succeed."
Users browsing this forum: No registered users and 0 guests
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot post attachments in this forum
