Access) (Form.ApplyFilter 事件
發生在將篩選套用至表單時。
語法
運算式。ApplyFilter (Cancel、 ApplyType)
expression 代表 Form 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Cancel | 必要 | 整數 | 設定決定 ApplyFilter 事件會發生。 將 Cancel 引數設定為 True 會取消 ApplyFilter 事件，並且不會將篩選套用至表單。 |
| ApplyType | 必要 | 整數 | 會傳回已套用之篩選的類型。 |
註解
發生此事件時若要執行巨集或事件程序，請將 OnApplyFilter 屬性設定為巨集的名稱或 [事件程序]。
使用 ApplyFilter 事件來：
請確定正在套用的篩選準則正確無誤。 例如，您可能想要確定任何套用至 Orders 窗 體的篩選都包含限制 OrderDate 字 段的準則。 若要這樣做，請檢查表單的 Filter 或 ServerFilter 屬性值，以確定 WHERE 子句運算式中包含此準則。
在套用篩選之前，變更表單的顯示。 例如，套用特定篩選時，您可能會想要停用或隱藏此篩選所顯示之記錄不適用的部分欄位。
復原或變更您在 Filter 事件發生時 所採取的動作。 例如，當使用者建立篩選準則時，您可以停用或隱藏表單上的某些控制項，因為您不希望這些控制項包含在篩選準則中。 在套用篩選之後，您可以啟用或顯示這些控制項。
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 控制項的 Orders 表單。 接著再執行只列出已付款之訂單的篩選。
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 支援與意見反應。