[AC-2003] Recherche multi critères [Résolu]

[josi1986]

Bonjour,

j'ai le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CmdFiltre_Click()
Dim f As String
If Not IsNull(Me.RGIPA) And Me.RGIPA <> "" Then
    f = "Num_GIPA = " & Me.RGIPA
End If
 
If Not IsNull(Me.RnomPA) And Me.RnomPA <> "" Then
    f = "NomPointTransport = '" & Me.RnomPA & "'"
End If
 
Filter = f
FilterOn = True
 
End Sub

Cela me permet de faire la recherche en fonction de Num_GIPA "ou" NomPointTransport.
Mais je souhaite pouvoir faire une recherche en fontion de Num_GIPA "et" NomPointTransport

Que dois-je modifier?

merci d'avance pour vos réponses

[nico84]

Bonjour,

Dans le 2e if, si f a déjà un critère il faut écrire

Code :

f = f & " and " & ...

[micniv]

Bonjour, essaie :

Code :

1
2
3
4
5
6
 
 
If Not IsNull(Me.RGIPA) And Me.RGIPA <> "" Then
    Filter = "Num_GIPA = " & Me.RGIPA & " AND NomPointTransport = '" & Me.RnomPA & "'"
FilterOn = True
End If

[Dolphy35]

Bonjour,

Je partirais sur le principe de Nicolas comme ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CmdFiltre_Click()
    Dim f As String
    f = ""
    If Not IsNull(Me.RGIPA) And Me.RGIPA <> "" Then
        f = "Num_GIPA = " & Me.RGIPA
    End If
 
    If Not IsNull(Me.RnomPA) And Me.RnomPA <> "" Then
        If f <> "" Then
            f = f & "AND NomPointTransport = '" & Me.RnomPA & "'"
        Else
            f = "NomPointTransport = '" & Me.RnomPA & "'"
        End If
    End If
 
    Filter = f
    FilterOn = True
 
End Sub

Cela te permet de faire une recherche (Num_GIPA ou NomPointTransport) OU (Num_GIPA et NomPointTransport)

Par contre le code de Michel présente l'avantage de ne faire le filtre que si il y a une saisie.

Dans le code ci-dessus si rien est saisie dans les deux champs il y aura une erreur de levée par Access.

Dolphy

[josi1986]

Merci pour les réponses, j'ai opté pour la solution de Dolphy qui correspond bien à ce que je souhaitais