accessで、フォームの検索をしたいのです。
今ACCESSで、データ管理をしているのですが、どうしてもうまくいかなくて、困っています。
毎日の出来事を記述するテーブル用のフォームを作って、記述していて、そのデータがたまってきています。
他のフォームに、検索用のテキストボックスとコマンドボックスを作って検索したいのです。
コントロールウィザードを使うと、完全一致のデータしかでてこないのですが、部分一致のレコードを表示させるにはどうすればいいのですか? 教えていただけるとうれしいです。
コントロールウィザードを使うと以下のようになります。多分少しどこかを変えるといいのではないかと思うのです。どうか、よろしくお願いします。
Private Sub コマンド144_Click()
On Error GoTo Err_コマンド144_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(21839) & ChrW(12356) & ChrW(21512) & ChrW(12431) & ChrW(12379) & ChrW(12513) & ChrW(12514)
stLinkCriteria = "[内容]=" & "'" & Me![テキスト105] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_コマンド144_Click:
Exit Sub
Err_コマンド144_Click:
MsgBox Err.Description
Resume Exit_コマンド144_Click
End Sub
もしかして。。と思い、以下の部分、
stLinkCriteria = "[内容]=" & "'" & Me![テキスト105] & "'"
を次のように変えてみたけれど、やっぱりうまくいきませんでした。
stLinkCriteria = "[内容]=" & "'" & "*" & Me![テキスト105] & "*" & "'"
よろしくお願いします。
補足
現時点では検索キーは[いちご and メロン]で完全一致 [いちご メロン]で部分一致となるのが理想かなと思っていましたが、オプションボタンで、選択する方法の方がいいかもしれませんね。 ちなみに実は クエリで一度抽出したデータに対して さらに検索キーで検索をしたいと思っているのです。(同一フォーム上で) その際に、一度クエリで抽出したデータをフォーム上で表形式で表示し、さらに絞り込むような形にしたいのです。 いろいろ言ってしまってすみません。もし、こんなわがままを解決できたら、、教えてください。お願いします