Since we changed Shift from 1 to 4 to A, B,C,D,E and F, the Calendar that belong to the respective shift is not Open up any more. No Error message either.. Doe anyone have any suggestion why? This code is behind the Dropdown combo button..
Please advise.. Thank You..
Private Sub SHIFT_SELECTION_Click()
Dim A, B, C, D, E, F As String
If IsNull(Me.SHIFT_SELECTION.Value) = True Then
MsgBox ("Select a Shift!")
Else
If Me.SHIFT_SELECTION.Value = A Then
DoCmd.OpenForm "CLONECAL1st"
End If
If Me.SHIFT_SELECTION.Value = B Then
DoCmd.OpenForm "CLONECAL2nd"
End If
If Me.SHIFT_SELECTION.Value = C Then
DoCmd.OpenForm "CLONECAL3rd"
End If
If Me.SHIFT_SELECTION.Value = D Then
DoCmd.OpenForm "CLONECAL4th"
End If
If Me.SHIFT_SELECTION.Value = E Then
DoCmd.OpenForm "CLONECAL4th"
End If
If Me.SHIFT_SELECTION.Value = F Then
DoCmd.OpenForm "CLONECAL4th"
End If
End Sub
Please advise.. Thank You..
Private Sub SHIFT_SELECTION_Click()
Dim A, B, C, D, E, F As String
If IsNull(Me.SHIFT_SELECTION.Value) = True Then
MsgBox ("Select a Shift!")
Else
If Me.SHIFT_SELECTION.Value = A Then
DoCmd.OpenForm "CLONECAL1st"
End If
If Me.SHIFT_SELECTION.Value = B Then
DoCmd.OpenForm "CLONECAL2nd"
End If
If Me.SHIFT_SELECTION.Value = C Then
DoCmd.OpenForm "CLONECAL3rd"
End If
If Me.SHIFT_SELECTION.Value = D Then
DoCmd.OpenForm "CLONECAL4th"
End If
If Me.SHIFT_SELECTION.Value = E Then
DoCmd.OpenForm "CLONECAL4th"
End If
If Me.SHIFT_SELECTION.Value = F Then
DoCmd.OpenForm "CLONECAL4th"
End If
End Sub