1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Private Sub Filtrer()
' procédure appelée par chaque saisie d'une donnée de filtre
Dim f As String
f = ""
If sel_code > "" Then
If f > "" Then f = f & " and (code = '" & sel_code & "')" Else f = "(code = '" & sel_code & "')"
End If
If sel_desi > "" Then
If f > "" Then f = f & " and (designation like '*" & sel_desi & "*')" Else f = "(designation like '*" & sel_desi & "*')"
End If
If Len(f) > 1 Then
Me.Filter = "(" & f & ")"
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
Private Sub voir_tout_Click()
sel_code = ""
sel_desi = ""
Call Filtrer
End Sub
Private Sub sel_code_AfterUpdate()
Call Filtrer
End Sub
... |