Discussion :

[sevy1881]

Bonjour Tous,
J’ai un souci avec le résultat (faux) ramené par une requête.
J’ai une zone de liste (combobox) qui contient la liste des produits se trouvant dans (sacs) 03 magasins (mag1, mag2, mag3)
Je veux que lorsque je sélectionne un élément de la zone de liste s’affiche automatiquement le magasin (mag1, mag2, mag3) ou il se trouve, le poids en magasin, le nombre de sacs dans les différentes zones de textes appropriées
Voila donc comment je procède
code1

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
Private Sub ZDL_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Const magasin1 as string=”mag1”
Const magasin2 as string=”mag2”
Const magasin3 as string=”mag3”
 
Set rs = CurrentDb.OpenRecordset("select  * from mouvement where codprod=" & Me.ZDL and magasin=’” & magasin1 &”’ or magasin=’” & magasin2 &”’ or magasin=’” & magasin3 &”’, dbOpenDynaset)
	If not rs.eof then
		Me.txt1=rs!magasin
		Me.txt2=rs!sac
		Me.txt3=rs!poids
	Else
		Msgbox “attention”
 
   	endif		
 
 
End Sub

Le problème est qu’avec ce code les résultats ramenés lors de la sélection du produit dans la zone de liste ne sont pas ceux concernant le produit dans ma table.
Par contre lorsque je fais ce code
Code2

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
Private Sub ZDL_BeforeUpdate(Cancel As Integer)
Dim rs As DAO.Recordset
Const magasin1 as string=”mag1”
Const magasin2 as string=”mag2”
Const magasin3 as string=”mag3”
 
Set rs = CurrentDb.OpenRecordset("select  * from mouvement where codprod=" & Me.ZDL &”’, dbOpenDynaset)
	If not rs.eof then
		Me.txt1=rs!magasin
		Me.txt2=rs!sac
		Me.txt3=rs!poids
	Else
		Msgbox “attention”
 
   	endif		
 
End Sub

Les résultats ramenés par la requête de ce code sont correctes.
Mais ce code n’est pas tout le temps VRAI pour mon application. Car un produit (constitué de sacs) dans mon application peut être dans plusieurs magasins

Veuillez bien m’aider à trouver ce qui bug dans mon code1

[Tofalu]

Rien qu'en lisant ton code, on se rend compte que la coloration syntaxique est mal appliquée dans la chaine de la requête. C'est donc que les " et ' sont mal placés.

[sevy1881]

Merci pour votre éclairage
ce recorset fonctionne correctement

Code :

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

Set rs = CurrentDb.OpenRecordset("select  * from mouvement where codprod=" & Me.ZDL and (magasin=’” & magasin1 &”’ or magasin=’” & magasin2 &”’ or magasin=’” & magasin3 &”)', dbOpenDynaset)