訪問搜索子表單 + 更新查詢子表單？

Question

所以我是 Access 365 的新手，我正在為我教堂的墓地開發數據庫。 我有一個“主要”表單，其中包含搜索和所述搜索的結果 ( https://i.imgur.com/v6ZmDx2.png )。

所以我想在這個表單上放一個框，當我按下“運行查詢”按鈕時，更新所有符合條件的記錄。 我有查詢工作，如果我進入個人搜索表單並搜索，它工作正常。

如果我嘗試將查詢拖到主表單上，我會得到一個 SearchQuery 子表單，但是當我進入表單視圖時，我必須在表單加載之前填寫數據。 我需要它只在我點擊按鈕后更新，以便我可以輸入信息，然后搜索（ https://i.imgur.com/6jJ416o.png & https://i.imgur.com/XPPpg6S.png ） . 如果我單擊取消，它加載正常，但是當我在搜索中輸入數據然后按“運行查詢”時，它仍然提示我輸入信息（ https://i.imgur.com/FKbZ6WK.png ）。

提前致謝！

Answer 1

您的代碼正在使用控件名稱作為要搜索的數據構建條件，必須使用表字段名稱。 從每個表達式中刪除Result_ 。

Coffin 和 Cremation 單選按鈕位於 OptionGroup 控件中。 這意味着您必須測試 OptionGroup 的值，而不是組內的控件。 單擊單選按鈕設置 OptionGroup 控件的值。 以下是 OptionGroup 和復選框的修訂代碼。 注意刪除Result_ - 也修復其他條件表達式。 可能要重命名 OptionGroup 控件。

'Coffin/Cremation
If Not IsNull(Me.optGroup) Then strFilter = strFilter & "([Coffin/Cremation] = " & Me.optGroup & ") AND "

'Veteran
If Not IsNull(Me.Veteran) Then strFilter = strFilter & "([Veteran] = " & Me.Veteran & ") AND "

'Monument
If Not IsNull(Me.Monument) Then strFilter = strFilter & "([Monument] = " & Me.Monument & ") AND "

為什么清除搜索按鈕使用 EmbeddedMacro？ 清除搜索參數的代碼：

Private Sub cmdReset_Click()
    'Purpose:   Clear all the search boxes in the Form Header, and show all records again.
    Dim ctl As Control

    'Clear all the controls in the Form Header section.
    For Each ctl In Me.Section(acHeader).Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox, acCheckBox, acOptionGroup
            ctl.Value = Null
        End Select
    Next

    'Remove the form's filter.
    Me.FilterOn = False
End Sub

考慮使用組合框而不是文本框來幫助用戶輸入有效數據。 仍然可以允許任何輸入並使用 LIKE/通配符。 RowSource SQL 可能是這樣的：
SELECT DISTINCT [Last Name] FROM A ORDER BY [Last Name];

建議不要在命名約定中使用空格或標點符號/特殊字符（唯一的例外是下划線）。

Answer 2

您可以從subform訪問任何subform ，如下所示： MainForm：LOAN SETTLEMENT FORM

前任：

Forms![LOAN SETTLEMENT FORM]!txtEMP_ID.Value = Me.EMP_ID.Value

Forms![LOAN SETTLEMENT FORM]!txtEMP_NAME.Value = Me.EMP_NAME.Value