◆概要
　このページは、Microsoft Access でテキストボックスに半角の日本語小文字を入力できないようにする方法を記載しています。

◆内容

　半角の日本語小文字には、「ァィゥェォャュョ」などがあり、これを拗音といいます。また、「アップ」「やっぱり」の「ッ」「っ」にあたる音を促音といい、拗音とあわせて拗促音ということがあります。


　テキストボックスに半角カタカナで入力させ、しかもｼﾞｭﾝｺの「ｭ」など、拗促音を入力させたくないときは、次のようにします。

Private Sub 口座名義_BeforeUpdate(Cancel As Integer)
    Dim textLen As Integer
    Dim i As Integer

    If Len(Me![口座名義]) <> LenB(StrConv(Me![口座名義], vbFromUnicode)) Then
        Beep '音を鳴らす
        MsgBox "口座名義（ｶﾅ）には、全角の空白や全角文字を入力できません。", _
                vbOKOnly + vbExclamation
        Cancel = True
    End If

    If IsNull(Me!口座名義) Then Exit Sub

    textLen = Len(Me!口座名義)

    For i = 1 To textLen
        '文字に半角小文字が含まれたいたら
        If AscB(Mid(Me!口座名義, i)) >= AscB("ｧ") And _
                        AscB(Mid(Me!口座名義, i)) <= AscB("ｯ") Then
            MsgBox "メっ！小文字が含まれています。", vbOKOnly + vbExclamation
            Cancel = True
               Exit Sub       '処理を抜ける
        End If
    Next

End Sub