Somme colonne access

bonjour

je cherche a calculer la colonne DL_Qte de ma table access pour C0065 ET C0105

pour le moment je calcul le Nb de ligne

merci d'avance

voila j'ai réussi mais peut on réduire

Sub LectureAccessnb()

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 FROM Import where DO_Piece<>'' ", Cnn

Cells(2, 2) = rs("Nb")

rs.Close

rs.Open "SELECT SUM(DL_Qte) AS Nb FROM Import where Initiales='C0065' ", Cnn

Cells(3, 2) = rs("Nb")

rs.Close

rs.Open "SELECT SUM(DL_Qte) AS Nb FROM Import where Initiales='C0105' ", Cnn

Cells(4, 2) = rs("Nb")

rs.Close

Cnn.Close

End Sub

Rechercher des sujets similaires à "somme colonne access"