Microsoft Access VBA - テキストボックスに半角の日本語小文字を入力できないようにする方法
◆概要
このページは、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
▼ページトップに戻る