帶按鈕的MS-ACCESS過濾器子窗體

Question

我正在嘗試做一些我認為非常瑣碎的事情。 我能夠使用ComboBox做到這一點，但是由於條件格式的易用性，我切換到了SubForms。

表格=即將到期

子表格= CORE2

字段= [核心]，[有效]

按鈕= CoreSearch

Option Compare Database

Private Sub CoreSearch_Click()

Dim Task As String

Me.Refresh

Task = "SELECT * FROM CORE2.Expiring WHERE DateDiff('m', [Core RS], Date()) > 36 And [Active] = True"

DoCmd.ApplyFilter Task

End Sub

我不斷收到The action of method is invalid because the form or report isn't bound to a table or query 。 這是因為我沒有指定在哪里應用過濾器？

Answer 1

我找不到任何使用FilterName參數的示例，它們都使用WHERE Con​​dition參數。

ApplyFilter可以執行任何形式的代碼。

假設按鈕在表格CORE2上。

DoCmd.ApplyFilter , "DateDiff('m', [Core RS], Date()) > 36 And [Active] = True"

或者：

Me.Filter = "DateDiff('m', [Core RS], Date()) > 36 And [Active] = True"
Me.FilterOn = True

建議命名子窗體/子報表容器控件的名稱與其所持有的對象不同，例如ctrCore。 如果按鈕位於主窗體上，並且您想將過濾器應用於子窗體：

Me.ctrCore.Form.Filter = "DateDiff('m', [Core RS], Date()) > 36 And [Active] = True"
Me.ctrCore.Form.FilterOn = True