INSTRUCAO SQL O RETORNO
Amigos, o meu problema era carregar a descrição do material sendo a mesma de outra tabela, isso eu consegui so que ela carrega fora de ordem e algumas nem carrega conforme instrução Sql linha 8. Alguem pode me ajudar?
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:\Estoque\Materiais.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)
Tbbaixas.MoveFirst
Do While Not Tbbaixas.EOF
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
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:\Estoque\Materiais.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)
Tbbaixas.MoveFirst
Do While Not Tbbaixas.EOF
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
VC já tentou colocar um ORDER BY na cláusula???
Tópico encerrado , respostas não são mais permitidas