Estou montando uma planilha atraves do VB conforme rotina abaixo.:Como na tabela BAIXA tenho códigos repetidos, ex: 000639 2pc - 000639 5pc, usei a instrução Sql salientada em vermelho para soma e agrupamento, funcionou legal. Agora eu preciso carregar os campos DATA e OS da mesma tabela, tentei usar : Set TbBaixas = BdBaixas.OpenRecordset("SELECT CODIGO,DATA,OS, Sum(SAIDA) AS TOTAL FROM BAIXAS GROUP BY CODIGO,DATA,OS", dbOpenSnapshot) carrega mas só que desagrupa os codigos novamente. Coma faço para carregar esses campos e manter o cód. agrupado?
Private Sub MontaBaixas()
Dim BdBaixas As DAO.Database
Dim TbBaixas As DAO.Recordset, TbLc As DAO.Recordset
Dim Ln3
Ln3 = 4
Plan421.Range("a4:m5000").ClearContents
Set BdBaixas = OpenDatabase("C:EstoqueMateriais.mdb")
Set TbBaixas = BdBaixas.OpenRecordset("SELECT CODIGO, Sum(SAIDA) AS TOTAL FROM BAIXAS GROUP BY CODIGO", dbOpenSnapshot)
TbBaixas.MoveMin
Do While Not TbBaixas.EOF
Ln3 = Ln3 + 1
Plan421.Range("A" & Ln3) = TbBaixas("Codigo")
Plan421.Range("E" & Ln3) = TbBaixas("TOTAL")
Plan421.Range("B" & Ln3 + 1) = TbBaixas("Data")
Plan421.Range("C" & Ln3) = TbBaixas("OS")
Ln3 = Ln3 + 1
TbBaixas.MoveNext
Loop
BdBaixas.Close
End Sub
