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.