Basically I have three buttons which is liked to a calendar and these three buttons are linked to the textboxes...All i have to do is that enter this code... the code does work but there is a compile error saying SELECT CASE WITHOUT CASE

this is my code:

Private Sub cmdSet_Click()

    'Set date in source object
        Select Case GCalSource

        Case "date_on_call_1"
            Form_frmStaffDetails.date_on_call_1 = CalObject.Value
            If ((CalObject.Value = Form_frmStaffDetails.date_on_call_2) Or (CalObject.Value = Form_frmStaffDetails.date_on_call_3)) Then
                MsgBox ("Invalid Date! Doctor cannot be on call at same times.")
            Else
             If (CalObject.Value < date) Then
                    MsgBox ("Invalid Date! The doctor cannot be on call on a previous date.")
                Else
                    DoCmd.Close acForm, "FrmCalendar2"
             End If
        
     Case "date_on_call_2"
            Form_frmStaffDetails.date_on_call_2 = CalObject.Value
            If ((CalObject.Value = Form_frmStaffDetails.date_on_call_1) Or (CalObject.Value = Form_frmStaffDetails.date_on_call_3)) Then
                MsgBox ("Invalid Date! Doctor cannot be on call at same times.")
            Else
             If (CalObject.Value < date) Then
                 MsgBox ("Invalid Date! The doctor cannot be on call on a previous date.")
         Else
            DoCmd.Close acForm, "FrmCalendar2"
         End If
        
     Case "date_on_call_3"
            Form_frmStaffDetails.date_on_call_3 = CalObject.Value
            If ((CalObject.Value = Form_frmStaffDetails.date_on_call_1) Or (CalObject.Value = Form_frmStaffDetails.date_on_call_2)) Then
                MsgBox ("Invalid Date! Doctor cannot be on call at same times.")
            Else
            If (CalObject.Value < date) Then
                 MsgBox ("Invalid Date! The doctor cannot be on call on a previous date.")
         Else
            DoCmd.Close acForm, "FrmCalendar2"
         End If
    
     Case Else
            DoCmd.Close acForm, "frmCalendar2"
        
     End Select

End Sub

But when i run this code it comes up with an error saying Select case Without Case.... What does that mean and what do i have to?
Can anyone tell me?

Thanx

Junaid

Hi Junaid,

You are using nested If...Then statements with out using End If at the end of the outer If...Then block. Should be:

Select Case Value
    Case 1
        If contdition1 Then
            'dosomething...
        Else
            If condition2 Then
                'dosomething...
            End If
        'terminate the outer If...Then block
        End If
    Case Else
        'dosomethingelse...
End Select

If you leave out the End If for the outer condition then the Case statement isn't included in the Select Case block (hence the error), it's part of the unterminated If...Then block, which ain't legal.

HTH,

Bob