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] & "*" & "'"

よろしくお願いします。

No.2 ベストアンサー 回答者： sanbit 回答日時： 2005/11/01 15:13

>部分一致のレコードを表示させるにはどうすればいいのですか？

検索用のフォームをデザインビューで開き、
プロパティ→データタブ→レコードソースの「…」→ＳＱＬクエリビルダの画面がでます
→抽出条件を下記のように
Like "*" & [Forms]![検索フォーム名]![テキスト105] & "*"
としてください。
コマンドボタンは今のままでＯＫです。
お試しください。

この回答へのお礼

ありがとうございます。
クエリの抽出条件、そのように入れればよかったのですね。おかげさまでできましたーー。

ほんとに、ありがとうございました。m(__)m

お礼日時：2005/11/02 10:17

No.3 回答者： arare2005 回答日時： 2005/11/01 20:51

ごめんなさいm(_ _)m

複数のデータ別のフォームを、テキストで指定した名称のフォームを部分検索して開くのかと思っていました（普通そんな事しませんよネ）

No.２さんの通り行って下さい。
勘違いしてました。紛らわしい事を記載しまして申し訳ありませんでした(^^;

この回答へのお礼

いえいえーー。そんな。。謝らないでくださいね。No.2さんのおかげでうまくいきました。

また、いろいろ教えてくださいませ。

ありがとーー。(^-^)

お礼日時：2005/11/02 10:18

No.1 回答者： arare2005 回答日時： 2005/11/01 13:44

DoCmd.OpenForm　はそのフォームを開く命令ですので、一旦、Me![テキスト105] 　の部分一致する内容をリストｂｏｘかコンボにでも表示をかけ、その後、そのフォーム名をクリックした場合に、DoCmd.OpenForm　で表示しましょう

っで良いと思いますが、試してないのさだかではありませんが．．．（＾＾；