Problème de formulaire recherche multi-critères

**CTRUX** · 02/09/2008, 16h35

Bonjour,

Je tente de créer un formulaire de recherche multi-critères, je me suis basée sur un exemple et voici les codes :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
Option Compare Database
Private Sub chkRefEntreprise_Click()
 
If Me.chkRefEntreprise Then  Me.txtRechRefEntreprise.Visible = False
Else Me.txtRechRefEntreprise.Visible = True
End If 
RefreshQuery
End Sub
 
Private Sub chkFamilleProduit_Click()
If Me.chkFamilleProduit Then Me.cmbRechFamilleProduit.Visible = False
Else Me.cmbRechFamilleProduit.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkRefSAP_Click()
 
If Me.chkRefSAP Then Me.TxtRechRefSAP.Visible = False
Else Me.TxtRechRefSAP.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkN°Siret_Click()
If Me.chkN°Siret Then Me.txtRechN°Siret.Visible = False
Else Me.txtRechN°Siret.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkRegion_Click()
If Me.chkRegion Then Me.cmbRechRegion.Visible = False
Else Me.cmbRechRegion.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkNomEntreprise_Click()
If Me.chkNomEntreprise Then Me.txtRechNomEntreprise.Visible = False
Else Me.txtRechNomEntreprise.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkDepartement_Click()
If Me.chkDepartement Then Me.txtRechDepartement.Visible = False
Else Me.txtRechDepartement.Visible = True
End If
RefreshQuery
End Sub
Private Sub cmbRechFamilleProduit_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub cmbRechRegion_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub Détail_Click()
 
End Sub
 
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT [Réf Entreprise], [Réf Entreprise], [Réf SAP], Nom, [N°Siret], Département, Région, [Famille de produit], Type FROM Identité;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT [Réf Entreprise], [Réf Entreprise], [Réf SAP], Nom, [N°Siret], Département, Région, [Famille de produit], Type FROM Identité Where Identité![Réf Entreprise] <> 0 "
 
If Not Me.chkRefEntreprise Then
    SQL = SQL & "And Identité![Réf Entreprise] like '*" & Me.txtRechRefEntreprise & "*' "
End If
If Not Me.chkFamilleProduit Then
    SQL = SQL & "And Identité![Famille de produit] = '" & Me.cmbRechFamilleProduit & "' "
End If
If Not Me.chkRefSAP Then
    SQL = SQL & "And Identité![Réf SAP] like '*" & Me.TxtRechRefSAP & "*' "
End If
If Not Me.chkN°Siret Then
    SQL = SQL & "And Identité!N°Siret like '*" & Me.txtRechN°Siret & "*' "
End If
If Not Me.chkRegion Then
    SQL = SQL & "And Identité!Région = '" & Me.cmbRechRegion & "' "
End If
If Not Me.chkNomEntreprise Then
    SQL = SQL & "And Identité!Nom like '*" & Me.txtRechNomEntreprise & "*' "
End If
If Not Me.chkDepartement Then
    SQL = SQL & "And Identité!Département like '*" & Me.txtRechDepartement & "*' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
Me.lblStats.Caption = CStr(DCount("*", "Identité", SQLWhere) & " / " & DCount("*", "Identité"))
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
 
 
Private Sub lstResults_BeforeUpdate(Cancel As Integer)
End Sub
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmAutoIdentité", acNormal, , "[Réf Entreprise] = " & Me.lstResults
End Sub
 
Private Sub txtRechRefEntreprise_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
End Sub
 
Private Sub txtRechRefSAP_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
End Sub
 
Private Sub txtRechNomEntreprise_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
End Sub
 
Private Sub txtRechN°Siret_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub txtRechDepartement_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

A chaque fois que je désire ouvrir un champs ou le formulaire, une fenêtre demandant :"Entrer la valeur du paramètre. Type :...."
Comment faire disparaître cette fenêtre?

Lorsque je retire cette fenêtre le message d'erreur 3075 apparaît. Je ne comprends pas ou sont mes erreurs de syntaxe.

Je vous remercie par avance !!!!

**Ronaldinho** · 02/09/2008, 16h45

Me.lstResults.RowSource = "SELECT [Réf Entreprise], [Réf Entreprise], [Réf SAP], Nom, [N°Siret], Département, Région, [Famille de produit], Type FROM Identité;"

Est-ce normal que tu es deux fois le champ Réf Entreprise dans ta requête?

**CTRUX** · 02/09/2008, 16h50

Réf Entreprise est la clé de la table Identité.
En meme temps Réf Entreprise est un champs que j'aimerai utiliser pour un critère de recherche.

**Ronaldinho** · 02/09/2008, 17h06

J'avais déjà eu une erreur comme ça et cela venait juste de la syntaxe de ma requête.
Essaie de lancer ton formulaire avec des points d'arrêts pour vérifier ta requête à chaque étape car vu l'erreur cela viendrait de l'execution de ta requête.

**tAKAmAkA** · 02/09/2008, 21h16

Bonjour,

Tu n'as pas une erreur de syntaxe mais plutôt une erreur de champ.
Le champ "Type" n'est tout simplement pas trouvé par le SELECT dans ta table "Identité".

**CTRUX** · 03/09/2008, 10h12

Je ne comprends pas ce que tu veux dire, je n'ai pas de champs Type dans ma table.
Le messagebox :"Entrer la valeur du paramètre" s'affiche pour tous les champs.

**tAKAmAkA** · 03/09/2008, 13h25

Dans ce cas il se peut que ce ne soit pas la bonne table...
Vérifie, s'il te plait.

**CTRUX** · 03/09/2008, 16h44

Il n'y a plus le message d'erreur qui apparait, en effet le champs "Type" était en trop dans :

Me.lstResults.RowSource = "SELECT [Réf Entreprise], [Réf Entreprise], [Réf SAP], Nom, [N°Siret], Département, Région, [Famille de produit], FROM Identité;"

Pourtant il persiste des erreurs d'écriture car le message d'erreur 3075 apparait : erreur de syntaxe.