Private Sub FilterMe()
Dim strFilter As String
If Not IsNull(Me![TDebut]) And Not IsNull(Me![TFin]) Then
strFilter = strFilter & " And [Date_Operation] between #" & Me.TDebut & "# And #" & Me.TFin & "#"
Else
strFilter = strFilter
End If
If Not IsNull(Me.cbooperateur) Then
strFilter = strFilter & " And [Operateur] = """ & Me.cbooperateur & """"
Else
strFilter = strFilter
End If
If Not IsNull(Me.cbotache) Then
strFilter = strFilter & " And [Tache_effectuee] = """ & Me.cbotache & """"
Else
strFilter = strFilter
End If
If Not IsNull(Me.cbocharge) Then
strFilter = strFilter & " And [Centre_de_charge] =""" & Me.cbocharge & """"
Else
strFilter = strFilter
End If
If Not IsNull(Me.cboclient) Then
strFilter = strFilter & " And [Client] = """ & Me.cboclient & """"
Else
strFilter = strFilter
End If
If Nz(strFilter, "") <> "" Then
strFilter = Mid(strFilter, 5)
Else
strFilter = strFilter
End If
Debug.Print strFilter
Me.Base_sous_formulaire.Form.Filter = strFilter
Me.Base_sous_formulaire.Form.FilterOn = True
End Sub