ACCESS VBA 正規表現チェック

access vba で正規表現チェックをするサンプルコードです。

下記のコードでは引数で渡された文字列が数字とアルファベットで構成されているかチェックして、数字とアルファベットの場合にTRUEを返却、それ以外の文字が含まれる場合にFALSEを返却します。

Function CheckAlphanumeric(ByVal str As String)
    Dim i As Long
    Dim result As Boolean: result = True
    
    If Len(str) > 0 Then
        For i = 1 To Len(str)
            If Not Mid(str, i, 1) Like "[0-9a-Z]" Then
                result = False
                Exit For
            End If
        Next i
    End If

    CheckAlphanumeric = result
End Function