Discussion :

[Saulin]

Bonjour,

J'ai besoin en ADO d'ouvrir un recordset à partir d'une requête
J'ai fait une sub test car je n'y arrive pas, et j'ai toujours la même erreur.

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
Sub test
 
Sub testrequete()
 
    Dim Design As New ADODB.Recordset, sql As String
 
    sql = "SELECT MODELE.ID_MODELE, TYPE_PIECE.Lien_DESIGNATION FROM MODELE INNER JOIN TYPE_PIECE ON MODELE.ID_MODELE = TYPE_PIECE.Lien_MODELE WHERE (((MODELE.ID_MODELE)=[Formulaires]![GeneralPieces]![FiltreModele]));"
 
    Design.Open sql, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
    Design.MoveFirst
 
    While Not Design.EOF
        MsgBox Design("ID_MODELE") & " " & Design("Lien_DESIGNATION")
        Design.MoveNext
    Wend
 
End Sub

L'erreur intervient sur Design.Open sql

Merci de votre aide

[madefemere]

Bonjour,

L'écriture de ta requête sql ne tient pas compte de FiltreModele comme étant une variable. Il faut la sortir de l'expression de la façon :

Code :

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

sql = "SELECT MODELE.ID_MODELE, TYPE_PIECE.Lien_DESIGNATION FROM MODELE INNER JOIN TYPE_PIECE ON MODELE.ID_MODELE = TYPE_PIECE.Lien_MODELE WHERE MODELE.ID_MODELE=" & [Formulaires]![GeneralPieces]![FiltreModele] & ";"

Si FiltreModele est numérique. Si elle est du texte, il faudrait la mettre entre " ou ' de

Code :

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

sql = "SELECT MODELE.ID_MODELE, TYPE_PIECE.Lien_DESIGNATION FROM MODELE INNER JOIN TYPE_PIECE ON MODELE.ID_MODELE = TYPE_PIECE.Lien_MODELE WHERE MODELE.ID_MODELE=""" & [Formulaires]![GeneralPieces]![FiltreModele] & """;"

Je te conseille quand même de modifier le nom de ta variable Design en autre chose vu que des mots de même consonances sont réservés en VBA.

Cordialement,

[Saulin]

Merci, je débute en VBA et j'avoue que j'ai passé pas mal de temps dans les tutos pour comprendre pourquoi en entrant une valeur ça fonctionnait, et pourquoi avec ma variable la valeur ne sortait pas.
J'ai trouvé pas mal de choses mais je n'avais pas encore résolu.
Encore merci.