Discussion :

[myannick]

Bonjour,
J'utilise une requête SQL dans un morceau de code en VB sous Acces. Voici la requête que j'utilise :

Code :

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

1
2
3
Dim qdf As DAO.QueryDef

qfd = "SELECT tblComposants.PrixAchat,tblComposants.PrixVente FROM tblComposants WHERE tblComposants.IdComposants = 'CboIdComposant.Text'"

Je souhaiterais recuperer le champ PrixAchat et PrixVente pour les afficher dans un champs texte mais je ne sais comment faire. J'ai tester quelques idées que j'avais mais sans succès . Es ce que quelqu'un pourrais m'aider à resoudre ce problème. Je vous remercie d'avance pour vos réponses.

[Jean-Philippe André]

salut
le code SQL de ta requête est accessible via la propriété SQL

ton code sera alors :

Code :

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

1
2
3
Dim qdf As DAO.QueryDef
 
qfd.SQL = "SELECT tblComposants.PrixAchat,tblComposants.PrixVente FROM tblComposants WHERE tblComposants.IdComposants = 'CboIdComposant.Text'"

quant à l'affichage des résultats, je serais passé par un recordset

[myannick]

Merci Jpcheck pour ta réponse.
Si ce n'est pas trop demander tu pourrais me dire comment tu aurais proceder??

[Jean-Philippe André]

bien sûr:

Code :

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

1
2
3
4
5
6
7
8
9
10
dim strSQL as String
 
dim RS as RecordSet
 
strSQL = "SELECT tblComposants.PrixAchat,tblComposants.PrixVente FROM tblComposants WHERE tblComposants.IdComposants = '" & CboIdComposant.Text & "'"
 
Set RS = CurrentDb.OpenRecordSet(strSQL)
 
Me.ChampTextAchat.Value = RS!PrixAchat
Me.ChampTextVente.Value = RS!PrixVente

[myannick]

Un grand meric jpcheck pour tes réponses.