Access) (Form.ApplyFilter 事件

發生在將篩選套用至表單時。

語法

運算式。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 支援與意見反應。

  • Last updated on