※ ChatGPTを利用し、要約された質問です(原文:Access フォームで検索した結果をフォームで表示するときにあいまい検索をしたい)
Accessフォームであいまい検索をする方法
このQ&Aのポイント
Access2003を使用して、検索フォームをつくり、検索結果を別フォームへ表示させるプログラムを組みました。
しかし、かな検索をするとかなが完全一致でないと検索されません。
あいまい検索にてかな検索をする方法はありませんでしょうか?
Access フォームで検索した結果をフォームで表示するときにあいまい検索をしたい
Access2003を使用して、検索フォームをつくり、検索結果を別フォームへ表示させるプログラムを組みました。
その際に、かな検索をするとかなが完全一致でないと検索されません。
あいまい検索にてかな検索をする方法はありませんでしょうか?
ソースは以下の通りです。
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(70) & ChrW(95)
stLinkCriteria = "[カナ氏名]=" & "'" & Me![カナ氏名] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdSearch_Click:
Exit Sub
Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click
End Sub
お礼
ありがとうございました! 無事動きました。