發生在將篩選套用至表單時。
語法
運算式。ApplyFilter (Cancel、ApplyType)
expression 代表 Form 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Cancel | 必要 | 整數 | 設定決定 ApplyFilter 事件會發生。 將 Cancel 引數設定為 True 會取消 ApplyFilter 事件，並且不會將篩選套用至表單。 |
| ApplyType | 必要 | 整數 | 會傳回已套用之篩選的類型。 |
註解
發生此事件時若要執行巨集或事件程序，請將 OnApplyFilter 屬性設定為巨集的名稱或 [事件程序]。
使用 ApplyFilter 事件來：
請確定所套用的篩選正確無誤。 例如，您可能需要確定套用至 [訂單 ] 表單的任何篩選條件都包含限制 [訂單日期 ] 欄位的準則。 若要這麼做，請檢查表單的 Filter 或 ServerFilter 屬性值，以確保此準則包含在 WHERE 子句運算式中。
在套用篩選之前，變更表單的顯示。 例如，套用特定篩選時，您可能會想要停用或隱藏此篩選所顯示之記錄不適用的部分欄位。
復原或變更您在 篩選 事件發生時所採取的動作。 例如，您可以在使用者建立篩選時停用或隱藏表單上的某些控制項，因為您不希望這些控制項包含在篩選準則中。 在套用篩選之後，您可以啟用或顯示這些控制項。
ApplyFilter 事件程序或巨集中的動作會在套用或移除篩選之前，或在 [進階篩選/排序]、[依表單篩選] 或 [伺服器依表單篩選] 視窗關閉之後，但表單重新顯示之前發生。 ApplyFilter 事件程序或巨集可以使用您在新建立篩選中輸入的準則，做為 Filter 或 ServerFilter 屬性的設定。
注意事項
使用者執行下列其中一項作業時，不會發生 ApplyFilter 事件：
- 使用巨集中的 ApplyFilter、OpenReport 或 ShowAllRecords 動作，或 Visual Basic 中 DoCmd 物件的對應方法，來套用或移除篩選。
- 使用 DoCmd 物件的 Close 動作或 Close 方法，關閉 [進階篩選/排序]、[依表單篩選] 或 [伺服器依表單篩選] 視窗。
- 設定 巨集 或 Visual Basic (中的 Filter 或 ServerFilter 屬性或 FilterOn 或 ServerFilterByForm 屬性，不過您可以在 ApplyFilter 事件程序或 巨集) 中設定這些屬性。
範例
下列範例顯示當套用的篩選條件將記錄限制為僅限已付款的訂單時，如何隱藏 Orders 表單上的 AmountDue、Tax 和 TotalDue 控制項。
若要嘗試此範例，請將下列事件程序新增至包含 AmountDue、Tax 和 TotalDue 控制項的 [訂單] 表單。 接著再執行只列出已付款之訂單的篩選。
Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
If Not IsNull(Me.Filter) And (InStr(Me.Filter, "Orders.Paid = -1")>0 _
Or InStr(Me.Filter, "Orders.Paid = True")>0)Then
If ApplyType = acApplyFilter Then
Forms!Orders!AmountDue.Visible = False
Forms!Orders!Tax.Visible = False
Forms!Orders!TotalDue.Visible = False
ElseIf ApplyType = acShowAllRecords Then
Forms!Orders!AmountDue.Visible = True
Forms!Orders!Tax.Visible = True
Forms!Orders!TotalDue.Visible = True
End If
End If
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。