Discussion :

[tibofo]

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 :

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

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

[tibofo]

Je fais suite à mon post (pas pour faire un Up , 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 :

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
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 :

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.

[Invité]

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

[tibofo]

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