Validation Rule Help (1 Viewer)

Is Null Or Not Like "*[!((a-z) or (Chr(32),Chr(45)))]*"
Is Null Or Not Like "*[!((a-z) or (Chr(32)) or (Chr(45)))]*"
Is Null Or Not Like "*[!((a-z) and (Chr(32)) and (Chr(45)))]*"
Is Null OR Not Like "*[!((a-z) or ((\ ),(\-)))]*"
Is Null OR Not Like "*[!((a-z) or (\ ) or (\-)))]*"
Is Null OR Not Like "*[!((a-z) and (\ ) and (\-)))]*"
Is Null Or Not Like "*[!((a-z),\ ,\-)]*"

Public Function myTest(myStr As String) As Boolean

Dim intX As Integer

Dim intY As Integer

intX = 1

Do While intX <= Len(myStr)

    myTest = False
    
    intY = Asc(Mid(myStr, intX, 1))

    If intY >= 65 And intY < 90 Then
        myTest = True
    End If

    If intY >= 97 And intY < 122 Then
        myTest = True
    End If

    If intY = 32 Then
        myTest = True
    End If

    If intY = 45 Then
        myTest = True
    End If

    If myTest = False Then
        Exit Do
    End If
    
    intX = intX + 1
    
Loop

End Function

Private Sub myField_BeforeUpdate(Cancel As Integer)
If myTest(Me.myField) = False Then
    MsgBox "Invalid Field Value"
    Me.Undo
End If
End Sub

If intY >= 65 And intY <= 90 Then
        myTest = True
    End If

    If intY >= 97 And intY <= 122 Then
        myTest = True
    End If

Function SaveAlpha(pstr As String) As String
'*******************************************
'Purpose:   Removes non-alpha characters from
'           a string
'Coded by:  raskew
'Calls:     Function IsAlpha()
'           Function OneSpace()
'Inputs:    ? SaveAlpha("THE / (QUICK)  %$$ 123 - 567 Brown/ FOX")
'Output:    THE QUICK - Brown FOX
'*******************************************

Dim strHold As String
Dim intLen As Integer
Dim n As Integer

    strHold = Trim(pstr)
    intLen = Len(strHold)
    n = 1
    Do
       If Mid(strHold, n, 1) <> " " And Mid(strHold, n, 1) <> "-" And Not IsAlpha(Mid(strHold, n, 1)) Then
          strHold = Left(strHold, n - 1) + Mid(strHold, n + 1)
          n = n - 1
       End If
       n = n + 1
    Loop Until Mid(strHold, n, 1) = ""
    SaveAlpha = OneSpace(strHold)
    
End Function

Function IsAlpha(strIn As String) As Boolean
'*******************************************
'Purpose:   Determine if a character is alpha
'           i.e. "a" - "z" or "A" - "Z"
'Coded by:  raskew
'Inputs:    ? IsAlpha("4"),
'Output:    False
'*******************************************

Dim i As Integer

    i = Switch(Asc(strIn) > 122 Or Asc(strIn) < 65, 1, _
        InStr("91 92 93 94 95 96", Asc(strIn)) > 0, 2, _
        True, 3)
    IsAlpha = IIf(i = 3, True, False)

End Function

Function OneSpace(pstr As String) As String

'*******************************************
'Purpose:   Removes excess spaces from a string
'Input:     ? onespace(" now    is  the  time for   all good men  ")
'Output:    "now is the time for all good men"
'*******************************************

Dim strHold As String
    strHold = RTrim(pstr)
    Do While InStr(strHold, "  ") > 0
      strHold = Left(strHold, InStr(strHold, "  ") - 1) & Mid(strHold, InStr(strHold, "  ") + 1)
    Loop
    OneSpace = Trim(strHold)
    
End Function