Como eu usei o GROUP BY no 1º SELECT para o Codigo, como usar tambem no 2º SELECT para a Descrição?
Private Sub MontaBaixas()
Dim Bdbaixas As DAO.Database
Dim Tbbaixas As DAO.Recordset, TbPva As DAO.Recordset
Dim Ln3
Ln3 = 4
Plan421.Range("a4:M65000").ClearContents
Set Bdbaixas = OpenDatabase("C:EstoqueMateriais.mdb")
Set Tbbaixas = Bdbaixas.OpenRecordset("SELECT CODIGO, Sum(SAIDA) AS TOTAL FROM BAIXAS GROUP BY CODIGO", dbOpenSnapshot)
Set TbPva = Bdbaixas.OpenRecordset("SELECT Baixas.Codigo,Localizacao.Descrição FROM Baixas,Localizacao WHERE Localizacao.Código=Baixas.Codigo", dbOpenSnapshot)
Do While Not TbBaixas.EOF
Ln3 = Ln3 + 1
Plan421.Range("A" & Ln3) = Tbbaixas("Codigo")
Plan421.Range("E" & Ln3) = Tbbaixas("TOTAL")
Plan421.Range("C" & Ln3) = TbPva("Descrição")
Ln3 = Ln3 + 1
TbPva.MoveNext
Tbbaixas.MoveNext
Loop
Bdbaixas.Close
Set Bdbaixas = Nothing
End Sub
