Exiting subroutines

[Marcus]

I have the following script but am getting a compile error on the "If
CheckComboInput() Then" line. Any ideas what this problem might be?
Private Function CheckComboInput() As Integer
If IsNull(cboCountry) Then
MsgBox "You must choose a Country." & vbCrLf & _
"Please try again.", vbExclamation, "More information
required."
Me.cboCountry.SetFocus
CheckComboInput = False
Exit Sub
End If
CheckComboInput = True
End Sub
Private Sub cmdDateSheet_Click()
If CheckComboInput() Then
DoCmd.OpenQuery "qryStudentList_Country"
End If
End Sub
Marcus
******

[bruce]

Marcus wrote:

I have the following script but am getting a compile error on the "If
CheckComboInput() Then" line. Any ideas what this problem might be?
Private Function CheckComboInput() As Integer
If IsNull(cboCountry) Then
MsgBox "You must choose a Country." & vbCrLf & _
"Please try again.", vbExclamation, "More information
required."
Me.cboCountry.SetFocus
CheckComboInput = False
Exit Sub
End If
CheckComboInput = True
End Sub
Private Sub cmdDateSheet_Click()
If CheckComboInput() Then
DoCmd.OpenQuery "qryStudentList_Country"
End If
End Sub

It's not going to compile with the "Exit Sub" or "End Sub" lines in
your CheckComboInput() function. Change those "Sub"'s to "Function"
and see if that fixes things.

Bruce

[Salad]

Marcus wrote:

I have the following script but am getting a compile error on the "If
CheckComboInput() Then" line. Any ideas what this problem might be?
Private Function CheckComboInput() As Integer
If IsNull(cboCountry) Then
MsgBox "You must choose a Country." & vbCrLf & _
"Please try again.", vbExclamation, "More information
required."
Me.cboCountry.SetFocus
CheckComboInput = False
Exit Sub
End If
CheckComboInput = True
End Sub
Private Sub cmdDateSheet_Click()
If CheckComboInput() Then
DoCmd.OpenQuery "qryStudentList_Country"
End If
End Sub
Marcus
******

See if changing the line
Private Function CheckComboInput() As Integer
to
Private Function CheckComboInput() As Boolean
works.