アクセスで外字を探す方法

質問

アクセスを使って名前や住所を管理しています。外字が含まれていることがあり、今は、クエリで？や・を探していますが、・でもクエリで検出できるものとできないものがあるみたいで、100％見つけることができず、結局目でチェックしています。
何か簡単に探す方法はないでしょうか？

回答No.4

tarodaro · ベストアンサー

フォーム＞挿入＞標準モジュールで、VBA の編集画面(VBE)が
開きます
そこに、先ほどのコードをコピペしてください
これで、外字を★に変換する test という関数がクエリ等で
利用できるようになります

新規にクエリを作り、例えば「住所」のフィールドを
表示させます
隣のフィールドの「フィールド」欄に
test([住所])
「抽出条件」欄を
Like "*★*"
としてデータシートビューに変更します

外字を含むレコードのみ、外字が含まれた箇所が
★に置換されて表示される筈です（多分）
上手く説明できませんので、尚不明な点があれば教えてください

>何か、文字以外は探すとか、記号を探すとかは無理なんでしょうか？
一旦 CSV などテキスト形式に変換して正規表現をつかう、とか？

＃３さん、フォロー有難うございます
調べた限りでは unicode では E000～F8FF までの6400文字が
私用領域に充てられているようです。

お礼

できした。ありがとうございます。
できました。まさしく私がやりたかったことです。
モジュールの詳しい事は分からないですが参考になりました。これから、勉強します。

回答No.3

imogasi

外字とは、ユーザーが独自に作った文字フォントを伴い、文字コード付けがされているものです。ここが文字画像と違うところです。そして文字コードの入力により、IME（フロントエンドプロセッサ）で文字コードを文書にセットできるものです。
そしてその文字コードは、（１）一般の文字コードとぶっつからないようにしなくてはならず、（２）また通常は決まった限定された領域に作る事を認めている場合が多い。
この（２）の性質に注目して（外字コード領域の文字を）、プログラム化して探しているのが、＃２のご回答と思う。
（間違ってたら＃２さんすみません）
未経験で、今時間がなくて調べてませんが、その外字コードのFrom
TOのコードを調べてください（一筋縄では行かないようだが）。
WEBで「外字　文字コード　領域」で照会してください。
＃２の質問者の補足振りから、質問者が内容を理解されてないのではと思い、私も未熟ながら、書いております。
なお＃２はユーザー関数化されているのですが、クエリでの使い方等
お分かりですか。

お礼

ありがとうございます。
できました。
私の勉強不足ですみませんでした。これからもっと勉強します。

回答No.2

tarodaro

標準モジュールにコピペして、クエリで使ってみてください
抽出条件を Like "*★*" にして目視の上変更するのが
無難かと思います

Function test(aa) As String
Dim tmp As String

tmp = Nz(aa, "")
Dim i As Integer
Dim a As String
For i = 1 To Len(tmp)
a = Mid(tmp, i, 1)
If AscW(a) >= &HE000 And AscW(a) <= &HF8FF Then
Mid(tmp, i, 1) = "★"
End If
Next

test = tmp
End Function

補足

★が外字で文字化けしているものってことでしょうか？（ごめんなさい、知識なくてモジュール分からなくて）★を探すのができなくて、、、、見た目には同じ★でも、クエリで検索すると抽出できるものとできな物だあるんです。何か、文字以外は探すとか、記号を探すとかは無理なんでしょうか？

回答No.1

noname#111227

テーブルを開いて　編集→検索　じゃダメ？

補足

化けてる物が分かれば検索できるのですが、同じ"・"でも検索できるものとできないものが出ていまします。（どうやら同じJISコードしか検索できないみたいです）