Bonjour,
J'ai utilisé un de vos codes pour faire le filtre de mon formulaire dans access.
http://www.pcastuce.com/pratique/windows/fiches/filtre.htm
et voici ma version selon mon formulaire et les champs ky a dedans.
Apparement, j'ai tout fait comme vous avez indiqué mais les données qu'affichent le formulaire sint statiques et le filtre ne marche po.
Qui peut svp me dire ce ki ne va po? merci bien.[boom]
Option Compare Database
Private Sub Commande26_Click()
Dim f As String
f = ""
If Not IsNull(Me.txtdesign) And Me.txtdesign <> "" Then
f = "designation LIKE '*" & Me.txtdesign & "*' "
End If
If Not IsNull(Me.cmbsecteur) And Me.cmbsecteur <> "" Then
If f <> "" Then
f = f & " AND id_secteur = '" & Me.cmbsecteur & "' "
Else
f = "id_secteur = '" & Me.cmbsecteur & "' "
End If
End If
If Not IsNull(Me.txtdu) And Me.txtdu <> "" And Not IsNull(Me.txtau) And Me.txtau <> "" Then
If f <> "" Then
f = f & " AND clng([daty]) BETWEEN " & CLng(Me.txtdu) & " AND " & CLng(Me.txtau) & ""
Else
f = "clng([daty]) BETWEEN " & CLng(Me.txtdu) & " AND " & CLng(Me.txtau) & " "
End If
End If
Me.Filter = f
Me.FilterOn = True
End Sub