Discussion :

[orion_]

Bonjour,

Mon probleme est simple, j'ai ecris une requete en SQL dans Access qui fonctionne, la voici :

Code :

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

1
2
3
4
 
SELECT pn_revision_crdate.ITNBR, pn_revision_crdate.ITRV, pn_revision_crdate.CO
FROM pn_revision_crdate
WHERE (((pn_revision_crdate.ITNBR)="7000-300-1") AND ((pn_revision_crdate.CO)=DMax("CO","pn_revision_crdate","[ITNBR] =" & Chr(34) & "7000-300-1" & Chr(34))));

J'ai essayer de la retranscrir dans VBA (en utilisant un RecordSet), la voici :

Code :

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

"SELECT pn_revision_crdate.ITRV FROM pn_revision_crdate WHERE (((pn_revision_crdate.ITNBR)=" & Chr(34) & "7000-300-1" & Chr(34) & ") AND ((pn_revision_crdate.CO)=DMax(" & Chr(34) & "CO" & Chr(34) & "," & Chr(34) & "pn_revision_crdate" & Chr(34) & "," & Chr(34) & "[ITNBR] =" & Chr(34) & Chr(34) & "7000-300-1" & Chr(34) & ")))"

Pour moi c'est exactement la meme chose, le probleme c'est que j'ai une erreur "Unknown" dans VBA quand j'execute ma macro ...

Savez-vous ce aue j'ai loupe ?

Merci d'avance ...

[GillesDeVuif]

Bonjour.
Peut-être comme ça :

Code :

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

1
2
SQL = "SELECT ITNBR, ITRV, CO FROM pn_revision_crdate " & _
"WHERE (((ITNBR)='7000-300-1') AND ((CO)=DMax(" & chr(34) & "CO" & chr(34) & ", " & chr(34) & "pn_revision_crdate" & chr(34) & ", " & chr(34) & "[ITNBR] ='7000-300-1'" & chr(34) & ")));"

Cordialement.

[orion_]

Oh mon dieu, ca marche, merci beaucoup !