Can't figure out how to end a procedure on meet condition fail

[thekruser]

I have a form with a checkbox and a comand button. When I have the following:

Private Sub cmdContinue_Click()
 
If Me.chkCertify = False Then MsgBox "You must check the cetification box indicating you have read the warning and certifty the accuracy of the entered information."
 
DoCmd.OpenForm "frmTrainingMultInput"
 
DoCmd.Close acForm, "frmSchoolNomMultiple"
 
DoCmd.Close acForm, "frmTrainingMultInputCertify"
 
End Sub

This is the first VBA code I have ever written entirely on my own. If the user clicks the button without the check box selected, the message displays, but when they click 'Ok', it continues the code and opens/closes the forms without the check box ever being selected.

I am not sure what to put where to get the code to stop and go back to frmTrainingMultInputCertify.

Thank you in advance for your time and help. Have a great day!

[weekend00]

Private Sub cmdContinue_Click()
 
If Me.chkCertify = False Then 
    MsgBox "You must check the cetification box indicating you have read the warning and certifty the accuracy of the entered information."
 else 
    DoCmd.OpenForm "frmTrainingMultInput"
 
    DoCmd.Close acForm, "frmSchoolNomMultiple"
 
    DoCmd.Close acForm, "frmTrainingMultInputCertify"
end if
End Sub

[thekruser]

Thank you...worked like a charm!

[thekruser]

A related issue. I have the following. What am I doing wrong:

Private Sub cmdContinue_Click()
    If Me.cboCourseName Is Null Then
        MsgBox "'Course' is a required field."
    ElseIf Me.cboCourseStatus Is Null Then
        MsgBox "'Course Status' is a required field."
    ElseIf Me.FROM_DT Is Null Then
        MsgBox "'From date' is a required field.  From and To dates can be the same for one day evolutions."
    ElseIf Me.TO_DT Is Null Then
        MsgBox "'To date' is a required field"
    ElseIf Me.cboFundingStatus Is Null Then
        MsgBox "'Funding Status' is a required field"
    
    Else
    
    DoCmd.OpenForm "frmTrainingMultInputCertify"
    
    End If
    
End Sub

Thanks again for your help.

[michaeljohnh]

I believe you need 4 more End IF, one for each IF. I havent run the code but I believe they can all go after the current End IF. There may be other problems, but thats the first I see.

[thekruser]

Figured it out. Here is what worked:

Private Sub cmdContinue_Click()
If IsNull(Me.cboCourseName) Then
    MsgBox "'Course Name' is a required field."
    cboCourseName.SetFocus
    Exit Sub
End If
If IsNull(Me.cboCourseStatus) Then
    MsgBox "'Course Status' is a required field."
    cboCourseStatus.SetFocus
    Exit Sub
End If
If IsNull(Me.FROM_DT) Then
    MsgBox "'From date' is a required field.  From and To dates can be the same for one day evolutions."
    FROM_DT.SetFocus
    Exit Sub
End If
If IsNull(Me.TO_DT) Then
    MsgBox "'To date' is a required field."
    TO_DT.SetFocus
    Exit Sub
End If
If IsNull(Me.cboFundingStatus) Then
    MsgBox "'Funding Status' is a required field."
    cboFundingStatus.SetFocus
    Exit Sub
End If
DoCmd.OpenForm "frmTrainingMultInputCertify"
End Sub