adapter une requête en code VBA

Bonjour,

Je galère sur une requête depuis plusieurs jours. En désespoir de cause, je me suis dit que j'allais la diviser en 2 parties. J'ai donc créer ma requête sous format SQL et elle marche :

Code:

---

1 2 3

SELECT DISTINCT H.Client_Livré, H.Date_Dern_Vente, H.Code_article, H.Prix_Unitaire_Net, H.Qté_Livrée, H.Ref_Commande, H.Numéro_Pièce, H.Client_Facturé FROM dbo_ART_DERNIERES_VENTES As H WHERE Date_Dern_Vente=(SELECT Max(Date_Dern_Vente) FROM dbo_ART_DERNIERES_VENTES WHERE ((Client_Livré=Formulaires![Bon de commande]![CODCLI]) AND (Code_article=Formulaires![Bon de commande]![ACCESS_LIGNES_VTES_SF].Form![LISTE_ART])));

---

Je voudrais maintenant la mettre sur une procédure événementielle sur MAJ d'un champ. Pour afficher les les différents champs dans des étiquettes.

Mon pb est que je ne sais pas comment traduire ma requête en VBA ?
Pouvez-vous me guider ?
Merci
Thibault

Je fais suite à mon post (pas pour faire un Up :fessee:, mais parce que j'ai avancé et que cela ne marche pas dans le code)

J'ai fouiné un peu partout et j'ai essayé de faire un bout de mon code sous format VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sql = "SELECT DISTINCT H.Client_Livré, H.Date_Dern_Vente, H.Code_article, H.Prix_Unitaire_Net, H.Qté_Livrée, " _ & "H.Ref_Commande, H.Numéro_Pièce, H.Client_Facturé " _ & "FROM dbo_ART_DERNIERES_VENTES As H " _ & "WHERE Date_Dern_Vente=(SELECT Max(Date_Dern_Vente) FROM dbo_ART_DERNIERES_VENTES " _ & " WHERE ((Client_Livré=Forms![Bon de commande].Form!CODCLI.Value) " _ & "AND (Code_article=Forms![Bon de commande].Form![ACCESS_LIGNES_VTES_SF]![LISTE_ART].Value)));" 'Forms![Form_Principal].Form![Sous_Form]![Nom_du_champ].Value* Set rs = CurrentDb.OpenRecordset(sql) Date_Vente = rs("Date_Dern_Vente") PUNET = rs("Prix_Unitaire_Net") QtéLiv = rs("Qté_Livrée") RefCo = rs("Ref_Commande") NumPiece = rs("Numéro_Pièce") rs.Close Set rs = Nothing Forms![Bon de commande].Form!ETI_HistoRef.Caption = RefCo

---

Mais il plante sur la ligne en rouge en disant :

Citation:

---

Trop peu de paramètre 2 attendu

---

Savez-vous où je me plante ? Je précise bien que je ne suis pas certain du code vba : je l'ai adapté à ma sauce de ce que j'ai pu trouver en fouillant dans le forum.

Bonjour

Tu fais appel à des champs de formulaires, il faut les sortir de ta chaine SQL et les intégrées par concaténation.

Philippe

Merci

Grâce à toi, j'ai orienté mes recherches et j'ai fini par tomber sur ces notions des champs inclus dans des requêtes :

http://access.developpez.com/faq/?pa...riteres#txtQry

Maintenant cela se lance !!!

Bon, j'ai découvert que ma requête est complétement foireuse mais je vais poster un autre message en sous forum requête.

Merci beaucoup:ccool: