Accessのテキストボックスの入力文字制限

テキストボックス（半角カナ）で次のようなコードを書きました。

Private Sub 半角カナ_AfterUpdate()
Me.半角カナ = StrConv(Me.半角カナ, 8 + 16)
Me.半角カナ = Replace(Me.半角カナ, "ｯ", "ﾂ")
Me.半角カナ = Replace(Me.半角カナ, "ｬ", "ﾔ")
Me.半角カナ = Replace(Me.半角カナ, "ｭ", "ﾕ")
Me.半角カナ = Replace(Me.半角カナ, "ｮ", "ﾖ")
Me.半角カナ = Replace(Me.半角カナ, "ｧ", "ｱ")
Me.半角カナ = Replace(Me.半角カナ, "ｨ", "ｲ")
Me.半角カナ = Replace(Me.半角カナ, "ｩ", "ｳ")
Me.半角カナ = Replace(Me.半角カナ, "ｪ", "ｴ")
Me.半角カナ = Replace(Me.半角カナ, "ｫ", "ｵ")
End Sub

Private Sub 半角カナ_BeforeUpdate(Cancel As Integer)
If Me.半角カナ Like "*[!-0-9ｱ-ﾝA-Zﾞﾟ()./]*" Then
Cancel = True
MsgBox "半角カタカナと英数字のみ入力可能です。"
End If
End Sub

これにより、
ひらがな⇒半角カナ　に変換
小文字の半角カナ⇒大文字の半角カナ　に変換
数字、半角カナ、アルファベット、濁点、半濁点、()./　の文字以外
は入力できなくしました。

そこでもう一つ工夫したいのが、やまだ　たろう　や　ﾔﾏﾀﾞ ﾀﾛｳ
などを入力しても、半角、全角スペースでエラーが生じてしまい
ます。

あと、どう改善すればよろしいですか？

No.1 ベストアンサー 回答者： bonaron 回答日時： 2023/01/18 21:44

If Me.半角カナ Like "*[!-0-9ｱ-ﾝA-Zﾞﾟ()./]*" Then

　↓
If Me.半角カナ Like "*[!-0-9ｱ-ﾝ A-Zﾞﾟ()./]*" Then

とか。

この回答へのお礼

半角スペースを入れる位置はそこだったんですね。
ありがとうございました！

お礼日時：2023/01/19 04:32