アクセスで抽出方法をお教えください

質問

アクセスの文字検索において、例えば（あ・ぁ・ア・ア）の文字を含むデータを検索したいなら
Like "*ア*"で良いのですが、限定で半角の「ア」の文字が入力されているデータを抽出するにはどのような条件を入力する必要がございますか？
※あ・ぁ・アが含まれるデータはいらない
宜しくお願いします。

回答No.1

noname#140971

検索設定を利用する以外のやり方で・・・。

[イミディエイト]
? DBSELECT("SELECt * FROM tab1 WHERE fld1 LIKE '%ア%'",,vbcrlf)
1;あ;
3;ア;
4;ア;

と、LIKE文は失敗。

[イミディエイト]
? DBSELECT("SELECT * FROM tab1 WHERE CharCount(fld1, 'ア')>0")
4;ア;

と、半角カタカナを勘定させると成功。

Public Function CharCount(ByVal Text As String, ByVal C As String) As Integer
　　CharCount = Len(Text) - Len(Replace(StrConv(Text, vbFromUnicode), C, ""))
End Function

ただ、LIKE '%アイウ%' の代用として利用するには　CharsCount() を用意する必要があります。

お礼

連絡、遅くなりまして申し訳ございません。
問題なく、解決しました。
ありがとうございます。