作成者	カテゴリ	返答の対象		公開
1122 02/04/2004 03:40 PM		半角カナチェック

これは簡単にはいかないと思います。
とりあえず、HRNさんが最初にされていた方法で、
一応判断は出来ました。
これではダメでしょうか？（多分以下の文字だけですよね？）

atai = Strconv(FieldName,8)
If atai = FieldName Then
　　If atai Like "*[ｧ,ｨ,ｩ,ｪ,ｫ,ヵ,ヶ,ｯ,ｬ,ｭ,ｮ,ヮ]*" Then
　　　　Msgbox("Error＜小文字＞")
　　Else
　　　　Msgbox("OK")
　　End If
Else
　　Msgbox("Error＜全角＞")
End If

もっと良き方法があれば、識者の方フォローお願いします。