Accessでシステムを作ってます

質問

AccessとVBAでシステムを作成してます。初心者です。
検索結果を非連結のテキストボックスに表示させる方法を教えてください。
条件(1)
フォームのレコードはどのテーブルとも紐づいていない
条件(2)
２つのテーブルから１つの検索ボタンで検索できるようにしたい
テーブルA；案件マスタ
テーブルB：リソースマスタ
・検索テキストボックス（１つ）
・検索ボタン（１つ）
条件(3)
案件ID、リソースIDはともに数値型です。

検索結果表示テキストボックス（非連結）
・案件IDテキストボックス：案件マスタより検索した案件IDを表示する
・リソースIDテキストボックス：リソースマスタより検索したリソースIDを表示する

下記のように考えていますが
・非連結のテキストボックスに検索結果を表示させる
・１つの検索ボタンで２つのテーブルから検索ができるようにする
方法がわかりません。

どのようなコードを追記したらいいのか教えていただけないでしょうか。
よろしくお願いいたします。

Private Sub btn検索ID_Click()
Dim strFilter As String

Me![案件マスタ].SetFocus
If Me!案件IDテキスト = Me![案件マスタ]![案件ID] Then

strFilter = " AND 案件ID= " & Me!案件IDテキスト

End If

If Me!テキストリソースID = Me![リソースマスタ]![リソースID] Then

strFilter = strFilter & " AND リソースID= " & Me!リソースIDテキスト

End If

'Forms!ID検索.Filter = Mid(strFilter, 6)

Forms!ID検索.FilterOn = True

Me.案件IDテキストボックス= Null
Me.リソースIDテキストボックス = Null

回答No.7

hatena1989 · ベストアンサー

> ループじゃなくてフィルターで大丈夫ですよね

Filterプロパティはテーブルと紐づいた連結フォームで有効です。
非連結フォーム、非連結テキストボックスでは無意味です。

> 条件(1)
> フォームのレコードはどのテーブルとも紐づいていない

ということなので、非連結フォームですので、フィルターではダメですよ。

kkkkkmさんの回答であってます。

> sql使うならDAOいりませんか？

DAOはインストールした時点で参照設定されていますので、
特に設定はいりません。
古いバージョンだったり、あとから参照設定を外したりした場合、は参照設定をやり直す必要はあります。

補足

sql使うならDAOはいります。
フィルターはセットフォーカスで持ってくれば大丈夫です。

回答No.4

kkkkkm

> ループはそもそも要らないですよ

いらないなら外せばいいだけですが…。

回答No.3

kkkkkm

参照設定はやって試してください。

http://dxr165.blog.fc2.com/blog-entry-115.html

回答No.2

kkkkkm

> →どこにいれればいいかわかりません。

とりあえずそれだけで試してみて駄目なら先に進むこともありません。

補足

すみませんが
ループじゃなくてフィルターで大丈夫ですよね

回答No.1

kkkkkm

https://www.feedsoft.net/access/sql/sql106.html

このサイトを参考にして

以下は案件マスタだけですが、リソースマスタも Set rs = Nothing の後にSQLからLoopまでを変更したものを追加して試してみてください。

Private Sub btn検索ID_Click()
Dim SQL As String
Dim rs As Recordset

Me!検索結果 = Null

SQL = "SELECT * FROM 案件マスタ WHERE 検索データフィールド =" & "'" & Me.検索テキストボックス.Value & "';"

Set rs = CurrentDb.OpenRecordset(SQL)
Do Until rs.EOF
Me!検索結果 = Me!検索結果 & rs!案件ID & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
End Sub

お礼

Set rs = Nothing の後にSQLからLoopまでを変更したものを追加して試してみてください。
→どこにいれればいいかわかりません。
どっからどこまでのループですか？
ループはそもそも要らないですよ

補足

sql使うならDAOいりませんか？
一つのボタンで2つのテーブル検索ができてない気がします。