アクセスでフリガナ検索をしたいのですが

フリガナが濁点の場合はどうやって検索したらよいのでしょうか？

※状況※
従業員名簿があります。
名前・フリガナ・住所です。
【た】というコマンドを作成しました。
このコマンドを押す事によってフリガナが【タ】【ダ】で始まる人のみ表示
をさせたいのです。

No.2 ベストアンサー 回答者： noname#22222 回答日時： 2006/12/20 11:22

＜住所録＞

ID　　名前　　ふりがな
1　　　田中　　タナカ
2　　　山中　　ヤマナカ
3　　　大和　　ダイワ

Private Sub コマンド0_Click()
　　Me.リスト1.RowSource = "SELECT ID, 名前 FROM 住所録 WHERE ふりがな LIKE '" & Me.読み先頭 & "*'"
　　Me.リスト1.Requery
End Sub

タだけで始まる検索ですとこれでOKです。
が、タとダを検索させるには、少し、工夫が必要です。

Private Sub コマンド0_Click()
　　Me.リスト1.RowSource = "SELECT ID, 名前 FROM 住所録 WHERE ふりがな LIKE '[タダ]*'"
　　Me.リスト1.Requery
End Sub

と、<タ>を<[タダ]>に置換する必要があります。

Private Sub コマンド0_Click()
　　Me.読み先頭 = Replace(Me.読み先頭, "カ", "[カガ]")
　　Me.読み先頭 = Replace(Me.読み先頭, "タ", "[タダ]")
　　Me.リスト1.RowSource = "SELECT ID, 名前 FROM 住所録 WHERE ふりがな LIKE '" & Me.読み先頭 & "*'"
　　Me.リスト1.Requery
End Sub

こんな感じで目的は達成できると思います。

この回答へのお礼

きちんと理解はできませんでしたが、言ってることはわかりました。

長々と丁寧・詳細に教えていただきありがとうございました。

お礼日時：2006/12/20 16:26

No.1 回答者： bonaron 回答日時： 2006/12/20 11:19

どういう方法で検索しているか不明ですが、

例えばフィルタなら
　Me.Filter="フリガナ Like '[タダ]*'"
とか。

この回答への補足

アクセス初心者の為フィルタで検索してました。
難しい言語とかさっぱりわからないもので・・・

上記の要領でやってできました。

ありがとうございます★☆

補足日時：2006/12/20 16:23