SQL avec référence à un form

Bonjour à tous

Ci-dessous, le bout de code qui ne fonctionne pas ! (pb de syntaxe)

Code:

---

1 2 3 4

Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT Max(Expédition.N°)as MaxN FROM Expédition HAVING (((Expédition.Destination)=[Formulaires]![Expédition]![Destination]) AND ((Expédition.Date)=[Formulaires]![Expédition]![Date]));") Me.test = rst!MaxN rst.Close

---

le pb est dans le having !
je n'arrive pas à trouver la bonne syntaxe

Merci de votre aide

salut, pense à utiliser les balises de code. Une solution pourrait-être :

Code:

---

1 2 3 4 5

Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT Max(Expédition.N°)as MaxN FROM Expédition HAVING (((Expédition.Destination)='" & [Formulaires]! [Expédition]![Destination] & "') AND ((Expédition.Date)=#" & [Formulaires]! [Expédition]![Date] &"#));")

---

attention au format des champs date.

J'ai maintenant le code erreur suivant

Erreur execution '2465'

Impossible de trouver le champ 'l' auquel il est fait reference ....

le code entré

Code:

---

Set rst = CurrentDb.OpenRecordset("SELECT Max(Expédition.N°) as MaxN FROM Expédition HAVING (((Expédition.Destination)='" & [Formulaires]![Expédition]![Destination] & "') AND ((Expédition.Date)=#" & [Formulaires]![Expédition]![Date] & "#));")

---

???

bonjour,

et en mettant <WHERE> à la place de <HAVING> ?

Philippe

bonjour,

à mon avis le problème vient de :

Code:

---

1 2 3 4 5 6 7 8 9

Dim rst As DAO.Recordset Dim Strsql as string   Strsql ="SELECT Max(Expédition.N°)as MaxN FROM Expédition HAVING (((Expédition.Destination)='" & Forms! [Expédition]![Destination] & "') AND ((Expédition.Date)=#" & Forms! [Expédition]![Date] &"#));" Set rst = CurrentDb.OpenRecordset(Strsql)

---

il n'est pas possible de mettre le string avec des & dans le openrecordset et d'autre part la référence à une zone de texte est "Forms!
[Expédition]![Destination]" et non "[Formulaire]!
[Expédition]![Destination]"

bonne chance

Merci à tous

Mon pb est résolu ! :)

La solution d'Alexandre est la bonne !

Bon courage et à bientot