Microsoft Access 掲示板

サブフォームの中が一致したフォームを開く

8 コメント

views

4 フォロー

Office2016

下記の記事が参考になると思います。

サブフォームのフィールドを対象にメインフォームにフィルタをかける - hatena chips

上記はメインフォームのFilterに抽出条件を設定していますが、今回はOpenFormメソッドの第4引数に抽出条件を設定すればいいだけです。

上記を読んでも、どうしたらいいか分からない場合は、
メインフォームのレコードソースのテーブル名（orクエリ名）と、それの主キーと主なフィールド名、
サブフォームのレコードソースのテーブル名（prクエリ名）と、それの主キーと主なフィールド名、
また、サブフォームコントロールのリンク親フィールド、リンク子フィールドの設定を教えてください。

ありがとうございます！やってみてうまくいかなかったらまた質問させていただきます。
ところで、こういったことをきちんと理解するにはSQLの勉強をすべきなのでしょうか…

Accessではたいていのことはクエリのデザインビューでできますが、サブクエリとかユニオンクエリなどを使えるようになるにはSQLの理解は必要ですね。

少し前の質問になりますが、うまくいかないため改めて質問です。

すみません、間違って投稿してしまいました…
下記のコードを作りましたがうまく作動しません。

Private Sub btn物件_Click()
    If Not IsNull([txt物件ID]) Then
    DoCmd.OpenForm "F_物件管理", acNormal, "", "物件管理ID In (SELECT 物件管理ID FROM Q_サブ物件 WHERE 区分NO = " & Me.txt区分NO & ")", , acDialog
    Else
    DoCmd.OpenForm "F_物件管理", acNormal, , , acFormAdd
    End If

メインフォームのレコードソースのテーブル名（orクエリ名）Q_物件管理
それの主キーと主なフィールド名、　物件管理ID（主キー）、オーナー情報など
サブフォームのレコードソースのテーブル名（prクエリ名）　Q_サブ物件
それの主キーと主なフィールド名　物件ID（主キー）、区分NO、住所など
また、サブフォームコントロールのリンク親フィールド、リンク子フィールドの設定　物件管理ID
区分NO（短いテキスト）で検索したい。

何が間違っているのか、教えていただけると助かります。

ちなみに「btn物件」を配置しているフォームは、また全然別のフォームです。

とりあえず

区分NO（短いテキスト）で検索したい。

ならSQLでも文字列が指定されている必要があります

区分NO = " & Me.txt区分NO & ")"
↓
区分NO = '" & Me.txt区分NO & "')"

やはりそこでしたか…助かりました。ありがとうございました。

タグリスト

VBA (389) Office2016 (294) フォーム (243) Office2021 or 2019 (224) クエリ SQL (220) テーブル (139) レポート (130) Office2013 (57) Office2010 (52) Microsoft365 (49)

Markdown テーブル生成

Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。

Markdown Tables generator

Microsoft Access 掲示板

サブフォームの中が一致したフォームを開く

最新トピック

タグリスト

Markdown テーブル生成