Private Sub FrequencyCheck()
Dim freq As String
Dim length As Integer
Dim ctrl As Control
Dim strSame
Set ctrl = Forms![Dispatches subform]!Frequency
If Not (IsNull(Forms![Dispatches subform]!Frequency)) Then
freq = Trim$(Forms![Dispatches subform]!Frequency)
If Len(freq) < 3 Then
chuckOut: MsgBox ("Months must be specified by their first 3 letters and seperated by spaces only")
DoCmd.CancelEvent
Exit Sub
ElseIf Len(freq) = 3 Then
checkLine: If ((freq Like "Jan") Or (freq Like "Feb") Or (freq Like "Mar") Or _
(freq Like "Apr") Or (freq Like "May") Or (freq Like "Jun") Or _
(freq Like "Jul") Or (freq Like "Aug") Or (freq Like "Sep") Or _
(freq Like "Oct") Or (freq Like "Nov") Or (freq Like "Dec")) Then
Exit Sub
Else
GoTo chuckOut
End If
End If
ifLine: If ((Left(freq, 4) Like "Jan ") Or (Left(freq, 4) Like "Feb ") _
Or (Left(freq, 4) Like "Mar ") Or (Left(freq, 4) Like "Apr ") _
Or (Left(freq, 4) Like "May ") Or (Left(freq, 4) Like "Jun ") _
Or (Left(freq, 4) Like "Jul ") Or (Left(freq, 4) Like "Aug ") _
Or (Left(freq, 4) Like "Sep ") Or (Left(freq, 4) Like "Oct ") _
Or (Left(freq, 4) Like "Nov ") Or (Left(freq, 4) Like "Dec ")) Then
length = Len(freq) - 4
freq = Trim(Right(freq, length))
If IsNull(freq) Then
Exit Sub
ElseIf Len(freq) < 3 Then
GoTo chuckOut
ElseIf Len(freq) = 3 Then
GoTo checkLine
Else
GoTo ifLine
End If
Else
GoTo chuckOut
End If
End If
End Sub