Access97：漢字を除いて全角文字の入力を禁止するには

> 正規表現ってアクセスの標準機能で無くREGSVR32でレジストリ登録が必要な機能ですか？ 別にREGSVR32を使う必要はありません。system32フォルダにbregexp.dllを放り込む（コピーする）だけです。 あとは、「標準モジュール」をひとつ作ってそこに Public Declare Function bregMatch Lib "D:\asahi\bregexp.dll" Alias "Match" (szRegstr As String, szTarget As String) As String Public Declare Function bregMatchEx Lib "D:\asahi\bregexp.dll" Alias "MatchEx" (szRegstr As String, szTarget As String, mode As Long) As Variant Public Declare Function bregReplace Lib "D:\asahi\bregexp.dll" Alias "Replace" (szRegstr As String, szTarget As String) As String Public Declare Function bregTranslate Lib "D:\asahi\bregexp.dll" Alias "Translate" (szRegstr As String, szTarget As String, ret As String) As Long Public Declare Function bregSplit Lib "D:\asahi\bregexp.dll" Alias "Split" (szRegstr As String, szTarget As String, limit As Long) As Variant を書いておきます。 こうしておけば、 全角英数、全角カタカナ、ひらがなをチェックするなら、 チェックする文字列を「strCheckString」とすると、 If bregMatch("/[０-９Ａ-Ｚａ-ｚあ-んァ-ヶ]/gk",strCheckString) = "1" then でトラップ出来ます。 If bregMatch("/[０-ヶ]/gk",strCheckString) = "1" then でも可です。 見つからなければ"0"（文字のゼロ）が返ります。