Access Agrupar e Somar Access e VBA

[DavidsonGomes1998]

Boa noite pessoal,

 

Como eu posso fazer esse processo aqui so q com o banco em access?

 

quero puxar os produtos vendidos e agrupar os produtos que se repetirem e somar o valor isso na listview

aqui segue de um tutorial q achei, mas com dados nas planilhas e nao em access

[Basole]

Para que sua demanda seja atendida, sugiro que disponibilize exemplo da sua planilha e do banco de dados com alguns dados fictícios. 

[DavidsonGomes1998]

planilha.rar@Basole Aqui fiz rapidinho aqui o modelo. o Banco ja esta com uns dados para trabalhar.

[Basole]

@DavidsonGomes1998 veja se é isso

 

       

 

Private Sub Btn_Preencher_Click()
Dim List        As ListItem
Dim sql         As String

  ConectDB
           
      On Error GoTo trat_err
      
       sql = "SELECT [CodProduto],[Produto], SUM([Quant]) AS tl_Quant, SUM([SubTotal]) AS tl_SubTotal "
       sql = sql & "FROM [tb_venda_p] "
       sql = sql & "WHERE [Quant] IS NOT NULL "
       sql = sql & "GROUP BY [CodProduto],[Produto];"
       
       rs.Open sql, db, 3, 3
       
    Me.ListView1.ListItems.Clear
    
    While Not rs.EOF
     
        Set List = Me.ListView1.ListItems.Add(Text:=rs!CodProduto)
            List.SubItems(1) = rs!Produto
            List.SubItems(2) = rs!tl_Quant
            List.SubItems(3) = VBA.Format(rs!tl_SubTotal, "#,##0.00")
         
         rs.MoveNext
    Wend


trat_err:

  FechaDb

End Sub

 

 

[DavidsonGomes1998]

@Basole Perfeitamente, obrigado