Requête n°2 ds une requête n°1=>Moteur de recherche

**SpyesX** · 22/02/2006, 17h06

Bonjour à tous et à toutes

J'aimerais savoir comment utiliser une requète comme source d'une autre requète, tout cela en vba...

En gros normalement un requète intérroge une ou plusieurs table. Ben moi je voudrais interroger une requète.

Je sais que s'est fesable mais je n'arrive pas à trouver comment. Et à moins d'être bigleu... je ne l'ai pas trouvé dans la FAQ.

Je remerci d'avance celui ou celle qui pourra m'éclairer.

**yoyopi** · 22/02/2006, 17h12

Il faut que tu sticke le résultat de ta requête dans un recordset ou dans un tableau et ensuite tu interoge ton tableau ou ton recordset en VBA et pas en SQL.

Si tu veux faire un requête sql qui interroge le résultat d'une autre, il faut que tu stocke le resultat de celle ci dans une table.

Ou tu veux peut être parler d'une sous requête?donne nous ton code pour qu'on comprenne mieux ce que tu veux faire

**SpyesX** · 22/02/2006, 17h20

En fait je suis débutant sur access et je cherche à faire un "moteur de recherche" multitable pour mon appli.

Or j'ai bien commencé deux ou trois tests mais rien ne marche. Par contre j'ai trouvé le tutorial de Cafeine ici:
http://cafeine.developpez.com/access...echerchemulti/

Je me suis rendu compte que je n'arrivais pas à l'adapter à ma bdd. Surement pas assez de connaissances vu que je n'arrive pas à le mettre en multitables. Alors j'ai eu l'idée d'interroger une requète au lieu d'une table.

Histoire de ne garder qu'UN "élément".

Pour le moment j'ai tout effacé tellement ça m'a énervé du coup j'ai tout recommencé à zéro...

Pourrais tu m'aider ou me conseiller afin de réaliser cela?
(j'ai très peu de connaissance vba)

SpyesX

**cafeine** · 22/02/2006, 19h06

Envoyé par SpyesX

En fait je suis débutant sur access et je cherche à faire un "moteur de recherche" multitable pour mon appli.

Or j'ai bien commencé deux ou trois tests mais rien ne marche. Par contre j'ai trouvé le tutorial de Cafeine ici:
http://cafeine.developpez.com/access...echerchemulti/

Je me suis rendu compte que je n'arrivais pas à l'adapter à ma bdd. Surement pas assez de connaissances vu que je n'arrive pas à le mettre en multitables. Alors j'ai eu l'idée d'interroger une requète au lieu d'une table.

Histoire de ne garder qu'UN "élément".

Pour le moment j'ai tout effacé tellement ça m'a énervé du coup j'ai tout recommencé à zéro...

Pourrais tu m'aider ou me conseiller afin de réaliser cela?
(j'ai très peu de connaissance vba)

SpyesX

Hello,

c'était bien la bonne méthode ...

1- faire ta requête multitables
2- adapter le code en remplaçant la table par ta requête ...
3- déboguer et pour ça : http://cafeine.developpez.com/access/tutoriel/debugprint/

**SpyesX** · 23/02/2006, 00h11

Carrément l'auteur du tuto qui me remet sur les rails.

C'est pas beau ça?
Merci Cafeine, je vais tester ça

**SpyesX** · 25/02/2006, 15h13

J'ai bien ré-essayé d'adapter ton tuto à mon appli mais j'y arrive toutjours pas.

Le forulaire est composé de:
3 zones de listes déroulantes -> Produit; Marque; Taille
3 zones de texte -> Immatriculation; Nom; Prénom

A l'ouverture du forulaire un message d'erreur apparait et me dit:

L'expression Sur chargement entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de même nom.

Et il me met ce message à chanque fois que je rentre qqchose dans une zone de liste ou une zone de texte.

Voici mon code... Est-ce que qq'un pourrait m'aider SVP? J'y comprend plus rien la...

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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
Option Compare Database
 
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Adresses"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande1_Click:
    Exit Sub
 
Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
 
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub FListe_DblClick(Cancel As Integer)
    DoCmd.OpenForm "ProduitsClient"
    Forms!ProduitsClient.Filter = "id_ProduitsClient = " & FListe
    Forms!ProduitsClient.FilterOn = True
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub OuvrirProduitClient_Click()
    DoCmd.OpenForm "ProduitsClient"
    Forms!ProduitsClient.Filter = "id_ProduitsClient = " & FListe
    Forms!ProduitsClient.FilterOn = True
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub chkImmatriculation_Click()
If Me!chkImmatriculation Then
    Me!cmbImmatriculation.Visible = False
Else
    Me!cmbImmatriculation.Visible = True
End If
 
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub chkMarque_Click()
If Me!chkMarque Then
    Me!cmbMarque.Visible = False
Else
    Me!cmbMarque.Visible = True
End If
 
RefreshQuery
End Sub
__________________________________________________________________________________________________________________________
 
Private Sub chkNom_Click()
If Me!chkNom Then
    Me!txtNom.Visible = False
Else
    Me!txtNom.Visible = True
End If
 
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub chkPrenom_Click()
If Me!chkPrenom Then
    Me!txtPrenom.Visible = False
Else
    Me!txtPrenom.Visible = True
End If
 
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub chkTaille_Click()
If Me!chkTaille Then
    Me!cmbTaille.Visible = False
Else
    Me!cmbTaille.Visible = True
End If
 
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub cmbMarque_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
 
Private Sub cmbProduit_AfterUpdate()
Dim StrSQL As String, SQLFinal As String
Dim LeWHERE As String, LORDRE As String
 
StrSQL = "SELECT ProduitsClient.id_ProduitsClient, TypesProduitsClient.TypeProduits, ProduitsClient.Immatriculation, ProduitsClient.Marque, ProduitsClient.Taille, ProduitsClient.Couleur, Clients.Nom, Clients.Prénom " & _
         "FROM TypesProduitsClient " & _
         "INNER JOIN (Clients INNER JOIN ProduitsClient ON Clients.CodeClient=ProduitsClient.CodeClient) ON TypesProduitsClient.id_TypesProduitsClient=ProduitsClient.id_TypesProduitsClient " & _
          ""
LeWHERE = "WHERE TypesProduitsClient.TypeProduits= " & Me!cmbProduit
 
SQLFinal = StrSQL & LeWHERE & ";"
 
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub cmbProduit_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub chkProduit_Click()
If Me!chkProduit Then
    Me!cmbProduit.Visible = False
Else
    Me!cmbProduit.Visible = True
End If
 
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub cmbTaille_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT * " & _
      "FROM TailleProduitClient " & _
      "INNER JOIN (Marques " & _
      "INNER JOIN (Clients " & _
      "INNER JOIN (TypesProduitsClient " & _
      "INNER JOIN ProduitsClient " & _
      "ON TypesProduitsClient.id_TypesProduitsClient = ProduitsClient.id_TypesProduitsClient) " & _
      "ON Clients.CodeClient = ProduitsClient.CodeClient) " & _
      "ON (TypesProduitsClient.id_TypesProduitsClient = Marques.id_TypesProduitsClient) " & _
      "AND (Marques.id_marque = ProduitsClient.id_marque)) " & _
      "ON TailleProduitClient.id_taille = ProduitsClient.id_taille;"
 
If Not Me!chkProduit Then
    SQL = SQL & "And ProduitsClient!id_TypesProduitsClient like '*" & Me!cmbProduit & "*' "
End If
If Not Me!chkImmatriculation Then
    SQL = SQL & "And ProduitsClient!Immatriculation = '" & Me!txtImmatriculation & "' "
End If
If Not Me!chkMarque Then
    SQL = SQL & "And ProduitsClient!id_Marque like '*" & Me!cmbMarque & "*' "
End If
If Not Me!chkTaille Then
    SQL = SQL & "And ProduitsClient!id_Taille like '*" & Me!cmbTaille & "*' "
End If
If Not Me!chkNom Then
    SQL = SQL & "And Clients!Nom = '" & Me!txtNom & "' "
End If
If Not Me!chkPrenom Then
    SQL = SQL & "And Clients!Prénom = '" & Me!txtPrenom & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me!lblStats.Caption = DCount("*", "ProduitsClient", SQLWhere) & " / " & DCount("*", "ProduitsClient")
Me!lstResults.RowSource = SQL
Me!lstResults.Requery
 
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 id_ProduitsClient, TypeProduits, Immatriculation, Couleur, Nom, Prénom, Marque, Taille" & _
                          "FROM TailleProduitClient " & _
                          "INNER JOIN (Marques " & _
                          "INNER JOIN (Clients " & _
                          "INNER JOIN (TypesProduitsClient " & _
                          "INNER JOIN ProduitsClient " & _
                          "ON TypesProduitsClient.id_TypesProduitsClient = ProduitsClient.id_TypesProduitsClient) " & _
                          "ON Clients.CodeClient = ProduitsClient.CodeClient) " & _
                          "ON (TypesProduitsClient.id_TypesProduitsClient = Marques.id_TypesProduitsClient) " & _
                          "AND (Marques.id_marque = ProduitsClient.id_marque)) " & _
                          "ON TailleProduitClient.id_taille = ProduitsClient.id_taille;"
 
Me!lstResults.Requery
 
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub txtImmatriculation_AfterUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub txtNom_AfterUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
__________________________________________________________________________________________________________________________
 
Private Sub txtPrenom_AfterUpdate(Cancel As Integer)
RefreshQuery
End Sub

**Arkham46** · 25/02/2006, 15h22

slt,

les événéments afterupdate n'ont pas de paramètre Cancel

**SpyesX** · 25/02/2006, 15h32

OUha super c'était ça

Merci Arkham46

En fait j'avais mis AfterUpdate car je omprend pas pourquoi l'évènement doit se passer avant qu'on choisisse qqchose. Mais bon c'est pas grave, ça marche maintenant. Enfin presque car j'ai une autre erreur qui est venue et qui n'était pas la avant.

j'ai ce message:

Erreur d'exeution '3075'
Erreur de syntaxe (opérateur absent) dans l'expression:

SQL = "SELECT * " & _
"FROM TailleProduitClient " & _
"INNER JOIN (Marques " & _
"INNER JOIN (Clients " & _
"INNER JOIN (TypesProduitsClient " & _
"INNER JOIN ProduitsClient " & _
"ON TypesProduitsClient.id_TypesProduitsClient = ProduitsClient.id_TypesProduitsClient) " & _
"ON Clients.CodeClient = ProduitsClient.CodeClient) " & _
"ON (TypesProduitsClient.id_TypesProduitsClient = Marques.id_TypesProduitsClient) " & _
"AND (Marques.id_marque = ProduitsClient.id_marque)) " & _
"ON TailleProduitClient.id_taille = ProduitsClient.id_taille;"

C'est donc ma requète qui foire... et lorsque je clique sur DEBOGUER la ligne ou se situe l'erreur est:

Code :

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

Me!lblStats.Caption = DCount("*", "ProduitsClient", SQLWhere) & " / " & DCount("*", "ProduitsClient")

Dois-je mettre ici aussi une requète?

**SpyesX** · 25/02/2006, 16h27

J'ai essayé de mettre une requète mais alors la... c'est l'horreur. Il y a des erreurs de partout, il ne comprend pas mon code et bla bla bla... Help please

**SpyesX** · 25/02/2006, 18h20

Lorsque je fais un

Code :

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

1
2
 
Debug.Print SQL

il me donne:

SELECT * FROM TailleProduitClient INNER JOIN (Marques INNER JOIN (Clients INNER JOIN (TypesProduitsClient INNER JOIN ProduitsClient ON TypesProduitsClient.id_TypesProduitsClient = ProduitsClient.id_TypesProduitsClient) ON Clients.CodeClient = ProduitsClient.CodeClient) ON (TypesProduitsClient.id_TypesProduitsClient = Marques.id_TypesProduitsClient) AND (Marques.id_marque = ProduitsClient.id_marque)) ON TailleProduitClient.id_taille = ProduitsClient.id_taille;And ProduitsClient!id_TypesProduitsClient like '**' ;

Ce qui est bien ma requête. Or lorsque je la place das une requête comme le suggère le tuto de cafeine, j'ai une belle erreur du style:

Caractère trouvé après la fin de l'instruction SQL

En locurence mon AND...

And ProduitsClient!id_TypesProduitsClient like '**' ;

**Arkham46** · 25/02/2006, 22h27

le point virgule marque la fin de la requête

remplace le premier ; par un espace pour voir

**SpyesX** · 26/02/2006, 19h28

J'ai beau essayer de mettre un "espace" à la place d'un ";" ou de refaire et refaire encore ma requête, j'ai toujours le même problème. Ma requête n'as pas de ";AND" lorsque je la met en vba par contre le Debug.print me sort autre chose. Ce qui fait une requête fausse...

Lorsque j'entre:

SELECT Clients.*, TailleProduitClient.*, ProduitsClient.*, Marques.*, TypesProduitsClient.*, *
FROM TailleProduitClient INNER JOIN (Clients INNER JOIN (Marques INNER JOIN (TypesProduitsClient INNER JOIN ProduitsClient ON TypesProduitsClient.id_TypesProduitsClient = ProduitsClient.id_TypesProduitsClient) ON (Marques.id_marque = ProduitsClient.id_marque) AND (Marques.id_TypesProduitsClient = TypesProduitsClient.id_TypesProduitsClient)) ON Clients.CodeClient = ProduitsClient.CodeClient) ON TailleProduitClient.id_taille = ProduitsClient.id_taille;

dans mon code VBA qui donne à son tour:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
SQL = "SELECT * " & _
      "FROM TailleProduitClient " & _
      "INNER JOIN (Marques " & _
      "INNER JOIN (Clients " & _
      "INNER JOIN (TypesProduitsClient " & _
      "INNER JOIN ProduitsClient " & _
      "ON TypesProduitsClient!id_TypesProduitsClient = ProduitsClient!id_TypesProduitsClient) " & _
      "ON Clients!CodeClient = ProduitsClient.CodeClient) " & _
      "ON (TypesProduitsClient!id_TypesProduitsClient = Marques!id_TypesProduitsClient) " & _
      "AND (Marques!id_marque = ProduitsClient.id_marque)) " & _
      "ON TailleProduitClient!id_taille = ProduitsClient!id_taille;"

Le Debug.print lui me resort ça:

SELECT * FROM TailleProduitClient INNER JOIN (Marques INNER JOIN (Clients INNER JOIN (TypesProduitsClient INNER JOIN ProduitsClient ON TypesProduitsClient!id_TypesProduitsClient = ProduitsClient!id_TypesProduitsClient) ON Clients!CodeClient = ProduitsClient.CodeClient) ON (TypesProduitsClient!id_TypesProduitsClient = Marques!id_TypesProduitsClient) AND (Marques!id_marque = ProduitsClient.id_marque)) ON TailleProduitClient!id_taille = ProduitsClient!id_taille;And ProduitsClient!id_TypesProduitsClient like '**' ;

En gros, totalement autre chose... Puis lorsque je rentre mon résutat de Debug.print dans une requête normale, forcément il me sort:

Caractère trouvé après la fin de l'instruction SQL

et c'est toujours mon

;And ProduitsClient!id_TypesProduitsClient like '**' ;

Qu'il surligne... J'ai encore relu le tuto de cafeine et j'arrive pas a deboguer ma requête... Jvous remerci encore pour votre aide

**electrosat03** · 27/02/2006, 09h16

Salut Spyesx,

Je pense que tu as un * de trop dans

Code :

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

;And ProduitsClient!id_TypesProduitsClient like '**' ;

essaies ,
A+

**SpyesX** · 27/02/2006, 12h02

salut electrosat03!

J'ai essayé de l'enlever bien sur mais rien n'y change. Le problème c'est que ce n'est pas requête originale. En fait, j'ai créé ma requête avec le QBE, je l'ai mis ds mon code vba c'est lui qui plante. Lorsque je fais un "Debug.Print SQL" il ne me envoit pas la requête originale... D'où les "**". Du coup lorsque je rentre le résultat du "Debug.Print SQL" dans le QBE il me resort la même erreur.

Caractère trouvé après la fin de l'instruction SQL

**Arkham46** · 27/02/2006, 12h10

slt,

c'est toujours ton point-virgule....

tu as :

Code :

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

 SQL = "blablabla;"

puis

Code :

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

SQL = SQL & "where blabla;

ce qui donne :

Code :

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

blablabla;where blabla;

le point virgule marquant la fin de la requête il n'attend plus rien derrière ce premier point-virgule

d'où ma première remarque de changer le premier point virgule en espace

**SpyesX** · 27/02/2006, 13h04

Excuse moi Arkham46 je n'avais pas compris ta remarque dans ce sens. J'ai cru que tu parlais de ma requête dans le QBE... désolé.

Cependant tu avais raison

. Après avoir remplacé mon ";" par un espace dans le code vba, le "Debug.print" me donne une requête qui une fois dans le QBE me dit:

Expression de jointure non supportée

Ce qui veut donc dire que mon AND est bien dans ma reqête. Mais que cette fois ci, c'est une joiture qui ne va pas.

Est-il possible qu'un ON ou un AND soit composé de trop de tables?

J'ai remarqué une autre chose, peut-être indispensable. C'est que Access me propose de deboguer mais que lorsque je déchoce une checkbox. C'est à dire lorsque je veux afficher un parammètre. C'est alors que le Debug.print SQL me revoit ma requête et le AND correspond à la jointure relative au paramètre sélectionné.

C'est à dire, si je cherche une immatriculation, j'affiche donc la zone de texte pour taper mon immatriculation, la proposition de debogage, j'entre et le Debug.print SQL me donne ma requête juste mais en plus le AND de jointure à la fin qui fais que ma requête est fausse.

Cela viendrait-il donc de tout les

Code :

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

1
2
3
If Not Me!chkProduit Then
    SQL = SQL & "And ProduitsClient!id_TypesProduitsClient like '*" & Me!cmbProduit & "*' "
End If

à la suite de ma requête?

Mon code après toutes les modifs resemble maintenant à ça...

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT * " & _
      "FROM TailleProduitClient " & _
      "INNER JOIN (Marques " & _
      "INNER JOIN (Clients " & _
      "INNER JOIN (TypesProduitsClient " & _
      "INNER JOIN ProduitsClient " & _
      "ON TypesProduitsClient.id_TypesProduitsClient = ProduitsClient.id_TypesProduitsClient) " & _
      "ON Clients.CodeClient = ProduitsClient.CodeClient) " & _
      "ON (TypesProduitsClient.id_TypesProduitsClient = Marques.id_TypesProduitsClient) " & _
      "AND (Marques.id_marque = ProduitsClient.id_marque)) " & _
      "ON TailleProduitClient.id_taille = ProduitsClient.id_taille "
 
 
 
If Not Me!chkProduit Then
    SQL = SQL & "And ProduitsClient!id_TypesProduitsClient like '*" & Me!cmbProduit & "*' "
End If
If Not Me!chkImmatriculation Then
    SQL = SQL & "And ProduitsClient!Immatriculation = '" & Me!txtImmatriculation & "' "
End If
If Not Me!chkMarque Then
    SQL = SQL & "And ProduitsClient!id_Marque like '*" & Me!cmbMarque & "*' "
End If
If Not Me!chkTaille Then
    SQL = SQL & "And ProduitsClient!id_Taille like '*" & Me!cmbTaille & "*' "
End If
If Not Me!chkNom Then
    SQL = SQL & "And Clients!Nom = '" & Me!txtNom & "' "
End If
If Not Me!chkPrenom Then
    SQL = SQL & "And Clients!Prénom = '" & Me!txtPrenom & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Debug.Print SQL
 
 
 
Me!lblStats.Caption = DCount("*", "ProduitsClient", SQLWhere) & " / " & DCount("*", "ProduitsClient")
Me!lstResults.RowSource = SQL
Me!lstResults.Requery
 
End Sub

**Arkham46** · 27/02/2006, 17h43

t'as dû louper une étape je ne vois pas de WHERE dans ta requête alors qu'à priori c'est des critères de filtre à la fin

**cafeine** · 27/02/2006, 19h50

Envoyé par Arkham46

t'as dû louper une étape je ne vois pas de WHERE dans ta requête alors qu'à priori c'est des critères de filtre à la fin

+1 ça manque cruellement vu que le code est censé écrire une condition Where ...

Etrange que tu fasses un Like sur un champ appelé id_TypesProduitsClient, en général un ID est numérique ...

Etrange également, tu fais des Like sur les combos et des = sur les textbox .. c'est plutôt l'inverse dans mon tuto ...

**SpyesX** · 28/02/2006, 02h43

Exact messieurs...
Après un gros travail sur mon code, une compréhension quasi totale du tuto et la prise en compte de vos remarques... j'ai le plaisir de vous annoncer... Que ça ne marche toujours pas.

Mais non je rigole héhé c'est nikel

Enfin nikel il y a out de même une petite question:

J'ai deux sortes de if:

Code :

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

1
2
3
If Not Me!chkImmatriculation Then
    SQL = SQL & "And ProduitsClient!Immatriculation like '*" & Me!txtImmatriculation & "*' "
End If

et

Code :

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

1
2
3
If Not Me!chkNom Then
    SQL = SQL & "And Clients!Nom like '*" & Me!txtNom & "*' "
End If

TOUT mes txt marchent à merveille si mon AND concerne la table ProduitClient. Par contre, si mon AND concerne la table Clients, lorsque j'affiche mon txt avec à la checkbox correspondante, j'ai une erreur

Erreur d'exécution '2001'
Opération annulée

le Debug.Print SQL me renvoi la bonne requête il n'y a pas d'erreur. Mis appart ce 2001 et dc l'impossibilité d'utiliser mes txt... tout est super

Merci encore :o

**SpyesX** · 28/02/2006, 21h29

Est-ce du au fait que je n'utilise pas mon "CodeClient" ?

Car là... c'est un peu dommage de faire un formulaire de recherche sur plusieurs table si il n'y en n'a qu'une qui marche...

Requête n°2 ds une requête n°1=>Moteur de recherche

Access

Discussions similaires

Partager

Partager