Discussion :

[ahcene34]

Bonjour,
j'ai créé une base de données Clients, qui contient ceux qui possèdent la CARTE CHIFA ( carte à puce ). puisque je suis nul en VBA, j'ai demandé à un ami de réaliser un formulaire de recherche qui filtre les enregistrements à l'aide de code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub Commande32_Click()
Dim strsearch As String
strsearch = " select * from client_h "
Me.recherch_chifa1.Form.RecordSource = strsearch
Me.recherch_chifa1.Form.Requery
End Sub
 
Private Sub n1_AfterUpdate()
Dim strsearch As String
Dim strtext As String
strtext = Me.n1.Value
strsearch = " select * from client_h where ((num_assure like ""*" & strtext & "*"" ) or (nom_assure like ""*" & strtext & "*"" ))"
Me.recherch_chifa1.Form.RecordSource = strsearch
End Sub
 
Private Sub n2_AfterUpdate()
Dim strsearch As String
Dim strtextn1 As String
Dim strtextn2 As String
strtextn1 = Me.n1.Value
strtextn2 = Me.n2.Value
strsearch = " select * from client_h where ((num_assure like ""*" & strtextn1 & "*"" ) and (nom_assure like ""*" & strtextn2 & "*"" ))"
Me.recherch_chifa1.Form.RecordSource = strsearch
Me.recherch_chifa1.Form.Requery
End Sub
 
Private Sub n3_AfterUpdate()
Dim strsearch As String
Dim strtextn1 As String
Dim strtextn3 As String
Dim strtextn2 As String
 
strtextn1 = Me.n1.Value
strtextn2 = Me.n2.Value
strtextn3 = Me.n3.Value
 
strsearch = " select * from client_h where ((num_assure like ""*" & strtextn1 & "*"" ) and (nom_assure like ""*" & strtextn2 & "*"" ) and (prenom_assure like ""*" & strtextn3 & "*"" ))"
Me.recherch_chifa1.Form.RecordSource = strsearch
Me.recherch_chifa1.Form.Requery
End Sub
 
Private Sub Texte18_AfterUpdate()
 
End Sub

je n'ai changé les noms des commandes et des zones de texte pour éviter tout conflit.
pour expliquer le contenu de code:
recherch_chifa1 : la table qui contient toutes les informations des clients dont: num_assure ( numéro assuré ), nom_assure, prenom_assure
commande32: permet l'annulation du filtre.
n1 : zone de texte qui filtre les données du champ num_assure
n2 : zone de texte qui filtre les données du champ nom_assure
n3 : zone de texte qui filtre les données du champ prenom_assure.

le filtre fonctionne bien, mais le message d'erreur suivant apparait si je ne saisie rien dan la zone de texte n1, " erreur d’exécution '94': utilisation incorrecte de Null.

je veux une solution qui permet le filtrage des données sans être obligé à saisir dans la zone de texte n1.

Merci Beaucoup.

[madefemere]

Bonsoir,

Il aurait été plus simple j'imagine de créer un module qui construit le filtre à partir des 3 valeurs des critères et appeler ce module sur les évènements Après mise à jour des 3 champs. Il faut tester les valeurs des critères et ne les prendre en compte que si elles sont différentes de NULL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub n1_AfterUpdate()
SourceFiltre
End Sub
 
Private Sub n2_AfterUpdate()
SourceFiltre
End Sub
Private Sub n3_AfterUpdate()
SourceFiltre
End Sub
'Construire la source en testant les valeurs des critères
Private Sub SourceFiltre()
Dim strsearch As String, strWhere As String
Dim strtextn1 As String
Dim strtextn3 As String
Dim strtextn2 As String
 
strtextn1 = Me.n1.Value
strtextn2 = Me.n2.Value
strtextn3 = Me.n3.Value
strWhere = " WHERE "
If Not IsNull(Me.n1) Then
strWhere = strWhere & " num_assure like ""*" & strtextn1 & "*"" "
End If
If Not IsNull(Me.n2) Then
    If strWhere <> " WHERE " Then
        strWhere = strWhere & " AND nom_assure like ""*" & strtextn2 & "*"" "
    Else
        strWhere = strWhere & " nom_assure like ""*" & strtextn2 & "*"" "
    End If
End If
If Not IsNull(Me.n3) Then
    If strWhere <> " WHERE " Then
        strWhere = strWhere & " AND prenom_assure like ""*" & strtextn3 & "*"" "
    Else
        strWhere = strWhere & " prenom_assure like ""*" & strtextn3 & "*"" "
    End If
End If
strsearch = " select * from client_h" & strWhere
Me.recherch_chifa1.Form.RecordSource = strsearch
Me.recherch_chifa1.Form.Requery
End Sub

Attention, code non testé !

Cordialement,

[ahcene34]

Merci Pour la réponse,
Mais ça n'a pas marché pour moi, le même message d'erreur s'affiche. comme je l'ai dit, je suis nul en VBA. peut-être que j'ai mal entré le code ?