Discussion :

[cisco59]

bonjour
voila je souhaite calculer le nombre de ligne sans doublons
donc la c'est bon

rs.Open "SELECT COUNT(*)AS Nb FROM (SELECT DISTINCT DO_Piece, AR_ref FROM Import )", cnn

et la je souhaite faire la somme de la colonne DL_Qte sans doublons mais je bloque

rs.Open "SELECT SUM(DL_Qte) AS Nb FROM (SELECT DISTINCT DO_Piece FROM Import)", cnn

merci d'avance pour votre aide

[Jean-Philippe André]

Salut,

ton champs DL_Qte n'apparait pas dans SELECT DISTINCT DO_Piece FROM Import

[cisco59]

il est vrai que pour le count 1 seul distinct me suffit

rs.Open "SELECT COUNT(*)AS Nb FROM (SELECT DISTINCT DO_Piece FROM Import )", cnn

le count fonctionne je calcul bien le nombre de ligne

mais je souhaite faire la somme donc de la colonne DL_Qte sans doublon dans DO_Piece et la je bloque

[cisco59]

de l'aide svp

repertoire = ThisWorkbook.Path & "\"
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "BDDTEST.mdb"
rs.Open "SELECT COUNT(*)AS Nb ,SUM(DL_Qte) AS Nb1 FROM Import ", cnn '---------------------------- ligne OK

'rs.Open "SELECT COUNT(*)AS Nb ,SUM(DL_Qte) AS Nb1 FROM (SELECT DISTINCT DO_Piece FROM Import) ", cnn '-------------------ne fonctionne pas
Cells(2, 2) = rs("Nb")
Cells(3, 2) = rs("Nb1")
rs.Close
cnn.Close

[Jean-Philippe André]

tu ne peux faire de calculs sur un champs absent de ta sous requete...

[cisco59]

bonjour
peux tu m'expliquer ou me diriger vers de la lecture

access et moi c'est recent

désolé c'est bon il fallait rajouter DL_Qte avec distinct

merci encore