1

親フォーム内にサブフォームがあります。サブフォームは、親フォーム内のデータシートとして表示されます。親フォームに 2 つのコンボボックスがあります。ユーザーがコンボボックスから値を選択すると、サブフォームはそれらの 2 つの値に従ってフィルタリングされます。

以下は私が使用したコードです。別のウィンドウを開き、親サブフォーム内に表示する代わりに、フィルター処理された値を表示します。

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "3_Properties"

stLinkCriteria = "[Program_Name]=" & "'" & Me![Combo2] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ありがとう

4

1 に答える 1

1

リンクの子フィールドとマスター フィールドを利用して、コードを使用せずにサブフォームをフィルター処理できます。サブフォームのリンク マスター フィールドをコンボボックス コントロールの名前に設定し、子フィールドを関連する関連列 (フィールド) に設定できます。各エントリはセミコロンで区切ります。

実行時にサブフォームのレコード ソースを設定することもできます。

 sSQL = "SELECT BText FROM Table WHERE AText = '" & Me.MyCombo & "'"
 Me.MySubformControlName.Form.Recordsource = sSQL
于 2012-06-13T18:35:54.923 に答える