フォーム：ユーザーがフィルタを削除した場合、フィルタのコンボをクリアします

Question

連続フォームとのコンボボックスをヘッダに作成して、ユーザが定義済みのフィルタの1つを簡単に適用できるようにしました。
ユーザーがフィルターを設定し、フォームの下部にある組み込みのFilteredの矩形をクリックしてフィルターを削除した場合は、そのコンボを空にします。
この場合、Filterイベントは発生せず、FilterOnが変更される前にApplyFilterイベントが実行されるため、私はそれらに頼ることができません。

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) 
    Debug.Print Now, "Apply", Me.FilterOn, Me.Filter 'returns the OLD values :-(
End Sub 

このパズルを解決するための提案はありますか？私は慎重にあらゆるフォームイベントを成功裏に通過したと思う。
それ以外の場合は、組み込みのナビゲーションボタンを非表示にする必要があります。できるだけ多くの組み込みツールを使用したいと考えています。

Answer 1

イベントではApplyTypeをチェックすることができます（0 =フィルタがクリア、1 =フィルタが適用または変更されています）。

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) 
    If ApplyType = 0 Then 
     'Clear that combobox 
    End If 
End Sub