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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
Private Sub WFILTRE_Click()
NEW_FILTRE = "SELECT T_ALLOCATAIRE.NO_ALLOCATAIRE, T_ALLOCATAIRE.NO_ALLOCATAIRE_REEL, T_ALLOCATAIRE.CAF, T_ALLOCATAIRE.MSA, T_ALLOCATAIRE.AUTRE, T_ALLOCATAIRE.ASSISTANTE_MATERNELLE, T_ALLOCATAIRE.[ACTIF], T_ALLOCATAIRE.A_GENRE, T_ALLOCATAIRE.A_NOM, T_ALLOCATAIRE.A_PRENOM, T_ALLOCATAIRE.A_ADR1, T_ALLOCATAIRE.A_ADR2, T_ALLOCATAIRE.A_CP, T_ALLOCATAIRE.A_VILLE, T_ALLOCATAIRE.A_TEL, T_ALLOCATAIRE.A_MOBILE, T_ALLOCATAIRE.A_EMAIL, T_ALLOCATAIRE.DATE_INSCRIPTION FROM T_ALLOCATAIRE"
WAND = " WHERE"
CPTE = 0
If Not IsNull(fW_NOM) And fW_NOM <> "" Then
NEW_FILTRE = NEW_FILTRE + WAND
NEW_FILTRE = NEW_FILTRE + " "
NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_NOM Like '" & fW_NOM & "'"
WAND = " AND"
CPTE = 1
End If
If Not IsNull(fW_PRENOM) And fW_PRENOM <> "" Then
NEW_FILTRE = NEW_FILTRE + WAND
NEW_FILTRE = NEW_FILTRE + " "
NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_PRENOM Like '" & fW_PRENOM & "'"
WAND = " AND"
CPTE = 1
End If
If Not IsNull(fW_CP) And fW_CP <> "" Then
NEW_FILTRE = NEW_FILTRE + WAND
NEW_FILTRE = NEW_FILTRE + " "
NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_CP Like '" & fW_CP & "'"
WAND = " AND"
CPTE = 1
End If
If Not IsNull(fW_VILLE) And fW_VILLE <> "" Then
NEW_FILTRE = NEW_FILTRE + WAND
NEW_FILTRE = NEW_FILTRE + " "
NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_VILLE Like '" & fW_VILLE & "'"
WAND = " AND"
CPTE = 1
End If
If CPTE = 1 Then
NEW_FILTRE = NEW_FILTRE
Else
NEW_FILTRE = "SELECT T_ALLOCATAIRE.NO_ALLOCATAIRE, T_ALLOCATAIRE.NO_ALLOCATAIRE_REEL, T_ALLOCATAIRE.CAF, T_ALLOCATAIRE.MSA, T_ALLOCATAIRE.AUTRE, T_ALLOCATAIRE.ASSISTANTE_MATERNELLE, T_ALLOCATAIRE.[ACTIF], T_ALLOCATAIRE.A_GENRE, T_ALLOCATAIRE.A_NOM, T_ALLOCATAIRE.A_PRENOM, T_ALLOCATAIRE.A_ADR1, T_ALLOCATAIRE.A_ADR2, T_ALLOCATAIRE.A_CP, T_ALLOCATAIRE.A_VILLE, T_ALLOCATAIRE.A_TEL, T_ALLOCATAIRE.A_MOBILE, T_ALLOCATAIRE.A_EMAIL, T_ALLOCATAIRE.DATE_INSCRIPTION FROM T_ALLOCATAIRE"
End If
Me.RecordSource = NEW_FILTRE + ";"
Me.Requery
End Sub |
Partager