テーブルをリレーションして日付検索時にサブフォームのページが変わる問題

質問

• テーブルをリレーションして作成した単票フォームで、日付検索を行うと、同じ日付でも売上IDごとにサブフォームのページが変わってしまう問題に困っています。
• 具体的には、同じ会社で同じ日付の売上データが複数ある場合、リレーションの関係により日付で検索しても売上IDごとにフォームのページが変わってしまいます。
• この問題の解決策について、インターネットで検索しても適切な情報が得られず、質問させていただいています。ご教授いただけますと幸いです。

回答No.2

piroin654 · ベストアンサー

どうしても検索用フォームは作りたくない、と言うことなら以下でどうですか。
何をしたいのかわかりませんが。
コード中にメインフォームのレコードソースを変更したり、
元に戻したりします。サブフォームも行ないます。
元のレコードソースはこちらで設定しましたが、
実際に合わせて変更してください。一応メインフォームにも
日付でフィルタをかけるようにしました。
ただし、リンクをはずしているので親を移動させても
子は移動することはことはありません。もっとも
サブフォームにフィルタしたレコードがすべて
表示されています。

ボタンを二つ設定し、日付検索用のテキストボックスを
一つ設定します。それぞれ、
cmd検索設定
cmd売上入力設定
tx日付検索用
という名前にします。

次にクエリを三つ。SQL文中の「Fメイン」はメインフォームの
名前です。実際に合わせて変更してください。

「Q売上入力用」
SELECT T02.顧客ID, T01.会社名, T02.売上ID, T02.日付
FROM T01 INNER JOIN T02 ON T01.顧客ID = T02.顧客ID;

「Qメインフォーム検索用」
SELECT T02.顧客ID, T01.会社名, T02.売上ID, T02.日付
FROM T01 RIGHT JOIN T02 ON T01.顧客ID = T02.顧客ID;

「Q日付検索用」
SELECT T02.日付, T02.売上ID, T03.商品名, T03.単価, T03.数量, T03.合計
FROM T02 INNER JOIN T03 ON T02.売上ID = T03.売上ID
WHERE (((T02.日付)=[Forms]![Fメイン]![tx日付検索用]));

次に、ボタンクリック時のイベントで。
なお、「埋め込み0」はサブフォーム表示コントロール名です。
サブフォームそのもの名前ではありません。実際に合わせて
変更してください。

Private Sub cmd検索設定_Click()
Dim str As String

If IsNull(Me!tx日付検索用) Then
MsgBox "日付が入力されていません"
Exit Sub
End If

If Not IsDate(Me!tx日付検索用) Then
MsgBox "日付を正しく入力してください"
Exit Sub
End If

str = "[日付] = #" & Me!tx日付検索用 & "#"

'メインフォームのフィルタ
'メインフォームのレコードソースの変更も含む
Me.RecordSource = "Qメインフォーム検索用"
Me.Filter = str
Me.Requery

'サブフォームのフィルタ
'リンクフィールドの無効化
Me.埋め込み0.LinkChildFields = ""
Me.埋め込み0.LinkMasterFields = ""
Me.埋め込み0.Form.RecordSource = "Q日付検索用"
Me.Requery
Me.埋め込み0.Form.Filter = str
Me.埋め込み0.Form.FilterOn = True
Me.Requery
End Sub

Private Sub cmd売上入力設定_Click()
'メインフォームのレコードソースを基に戻す
Me.RecordSource = "Q売上入力用"
'リンクフィールドを元に戻す
Me.埋め込み0.Form.RecordSource = "T03"
Me.埋め込み0.LinkChildFields = "売上ID"
Me.埋め込み0.LinkMasterFields = "売上ID"
Me.Requery
End Sub

回答で、勘違い、間違い、不明な点があれば補足してください。