AccessVBAでIBM特殊文字を調査

質問

Access2000でテーブルにある氏名から特殊文字が使用されているか調査したいのです。
テーブルやVBAは下記の通りです。

顧客テーブルがあり、内容はキー番号(半角10バイト)、漢字氏名(全角50バイト)、カナ氏名(半角50バイト)です。
漢字氏名フィールドを調査して特殊文字コードが存在した場合エラーメッセージを表示したいのです。ロジックを以下の通り作成したのですが、すべての漢字氏名がエラーとなってしまいます。
なぜでしょうか？教えていただけますでしょうか。お願いいたします。

Public Sub 調査()
　　Dim DB As DAO.Database
　　Dim RS As DAO.Recordset
　　Dim Moji As String

　　Set DB = CurrentDb()
　　Set RS = DB.OpenRecordset("顧客テーブル", dbOpenDynaset)

Do Until RS.EOF
　 If RS!漢字氏名 Like "*[" & Chr("&hFA40") & "-" & Chr("&hFC4B") & "]*"
　 Then
　　　Msgbox RS!漢字氏名
　 End If
　 RS.MoveNext
Loop
　 RS.Close: Set RS = Nothing
　 DB.Close: Set DB = Nothing
End Sub

回答No.1

yorozu_ya · ベストアンサー

問題の特殊文字はシフトJISの「漢字３」に属するものですね。
シフトJISコードでは確かに「FA40～FC４B」の連続した範囲なのですが、
残念ながらデータベース自体がユニーコードになっており、
0x2170～0x2179、0x2160～0x2169、0xffe2、0xffe4、0xff07、0xff02、0x3231、0x2116、...
ってな具合にバラバラで連続していないのです。
ですから、単純には判定できません。
やるとすれば、別テーブルに特殊文字を１文字ずつ格納して
それと漢字氏名を比較するなんてのがよろしいかと。
さもなくば、VBAで読み込んだ漢字氏名を１文字ずつ検査するとか。

お礼

ありがとうございました。
ユニーコードになっていたとは知りませんでした。
大変参考になりました。