Problème avec Recordset

**wil91** · 06/11/2018, 19h24

Aidez-moi svp j'ai une erreur sur mon code

Code :

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

Set ligne =base.OpenRecordset('SELECT Designation, Quantite FROM Catalogue WHERE Code_article='' & liste_ref.Value & '''',dbOpenDynaset)

**Tortille** · 06/11/2018, 19h34

Bonjour,

Code :

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

NomRecup = Nom_Prenom.Value

j'écrirais plutôt

Code :

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

NomRecup = Nom_Prenom.column(0)

Invité · 06/11/2018, 20h19

Bonjour

Quel est le code et le message de l'erreur ?

Philippe

**tee_grandbois** · 06/11/2018, 21h09

bonsoir,
la syntaxe n'est pas correcte: il faut utiliser les guillemets " et pas les apostrophes ' pour délimiter les variables :

Code :

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

Set ligne =base.OpenRecordset("SELECT Designation, Quantite FROM Catalogue WHERE Code_article=""" & liste_ref.Value & """",dbOpenDynaset)

si, bien sûr, liste_ref.Value est de type texte

**wil91** · 08/11/2018, 11h46

merci les gars je vais essayer pour voir et je reviens vers vous

**wil91** · 08/11/2018, 12h02

voici le code et on me dir erreur de syntaxe

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
Option Compare Database
 
Private Sub Form_Load()
 
End Sub
 
Private Sub liste_ref_Change()
 Dim ligne As Recordset: Dim base As Database
 
 Set base = Application.CurrentDb
 Set ligne =base.OpenRecordset('SELECT Designation, Quantite FROM Catalogue WHERE Code_article='' & liste_ref.Value & ''',dbOpenDynaset)
 
 qte_maj.Value = 0: qte_cours.Value = 0
 
 ligne.MoveFirst
 designation.Value = ligne.Fields('Designation').Value
 qte_cours.Value = ligne.Fields('Quantite').Value
 
 qte_maj.SetFocus
 
 ligne.Close
 base.Close
 Set ligne = Nothing
 Set base = Nothing
 
 
End Sub