Save Reminder before exiting 1

[klornpallier]

I have a exit button with the code:

Private Sub CmdExit_Click()
Dim ExitQuestion As String
ExitQuestion = MsgBox("Have you saved your Schedule before Exiting?", vbYesNo, "Exit Scheduling Form")
If vbYes Then
End
Else
Exit Sub
End If
End Sub

If vbNo is selected I want the load to stay loaded but this code doesnt seem to work. Help

 

[bjd4jc]

You should be using

If ExitQuestion = vbYes Then
    End
End If

 

[richf007]

Sorry to have responded so late.

Another option would be to ask if the client wants to save the data in the form's QueryUnload event. Here's a rough code sample.

'*****************************************************'
'DESCRIPTION:  (generated by VB)
' Before exiting, see if the client wants to save 
' their Schedule.
'*****************************************************'
Private Sub Form_QueryUnload(Cancel As Integer, _
    UnloadMode As Integer)

    Dim intNeedToSave As Integer

    NeedToSave = MsgBox("Do you want to save your Schedule?", _
            vbQuestion + vbYesNoCancel, "Save Schedule?")

    Select Case NeedToSave

        Case vbCancel   ' Return to original state and 
                        ' do not unload form.
            Cancel = vbYes

        Case vbYes      ' Client wants to save the Schedule

            'Call -your save Schedule procedure/logic here-

        Case vbNo       ' Client doesn't want to save the Schedule

    End Select

End Sub

 

[strongm]

As a general point, I'd tend to steer clear of 'End' if possible.