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

1122様、早速のご返信ありがとうございます。

atai = Strconv( FieldName, 8)
If atai Like "*[ヵヶｯヮｧ-ｫｬ-ｮ]*" Then
　<ErrorMessage>
End If

としていたのを、1122様ご指摘の通り変更すればうまくいきました。
ヘルプを参照して記述していたつもりなのですが、Like関数の記述が誤っていたのでしょうか？

促音なんて少ないから1122様のように1文字ずつ記述して確認すればよかったですね。
お手数をお掛けしました。お詫び申し上げます。