ACCESS97での全角日本語の判定について

質問

ACCESS97のVBAで、データ内に全角日本語が存在するかどうか
チェックしたいのですが、よい方法をご存知でしたら
教えていただけませんでしょうか？

回答No.1

Te-Sho · ベストアンサー

dim Str as String
String = 対象文字列
if len(Str) <> lenb(Strconv(Str,vbFromUnicode)) then
msgbox "漢字が含まれている"
end if

が一番オーソドックスでしょうか。
unicodeだと全てが2バイト文字ですがANSIだとASCII文字は1バイトになります。
StrをStrconvでANSI変換すると日本語コードは2バイト、ASCII文字は1バイトに変換されるので文字列全てがASCII文字なら文字列の長さとANSI変換されたバイト数は等しくなります。
日本語コードが入ると2バイトとなるために等しくなりません。
また、1文字ずつ区切って比較すればどの文字が漢字か分かるのでそこにカーソルを持っていくことも可能ですね。
詳しくはStrconv関数のヘルプを参照してください。
関連項目にも情報が有ると思います。

お礼

お礼のお返事が遅くなって本当に申し訳ありません！！！
質問した後から、客先に出っぱなしで、インターネットができなかったので
回答が見れませんでした。

わかりやすい解説で本当に助かりました。
ご回答ありがとうございました。