Tenho que selecionar na tabela Movimento, para um cliente com código vindo de combobox, a soma dos lançamentos (Val) de uma determinada referência (Ref) da mesma data (CDat).
Usei a rotina:
Sub base()
Dim Banco As Database
Dim sqrst As String
Dim dybase As Recordset
Set Banco = OpenDatabase("c:\previ\previ.mdb")
Clien = Comb0.Column(0)
Set sqrst = Banco.OpenRecordset("select" _
& "cliente.código, sum (movimento.val)" _
& "as somadeval, movimento.ref, movimento.cdat" _
& "from cliente inner join movimento on cliente.código = movimento.cod" _
& "group by cliente.código, movimento.ref, movimento.cdat" _
& "having(((cliente.código)=clien) and ((movimento.ref)=2));")
Set dybase = Banco.OpenRecordset(sqrst)
End Sub
O sistema retorna a mensagem " Erro de compilação - o objeto é obrigatório " selecionando "Set sqrst".
Pergunta
Welter
ACCESS 2003 - Visual Basic
Duas tabelas: Cliente e Movimento
Tenho que selecionar na tabela Movimento, para um cliente com código vindo de combobox, a soma dos lançamentos (Val) de uma determinada referência (Ref) da mesma data (CDat).
Usei a rotina:
Sub base()
Dim Banco As Database
Dim sqrst As String
Dim dybase As Recordset
Set Banco = OpenDatabase("c:\previ\previ.mdb")
Clien = Comb0.Column(0)
Set sqrst = Banco.OpenRecordset("select" _
& "cliente.código, sum (movimento.val)" _
& "as somadeval, movimento.ref, movimento.cdat" _
& "from cliente inner join movimento on cliente.código = movimento.cod" _
& "group by cliente.código, movimento.ref, movimento.cdat" _
& "having(((cliente.código)=clien) and ((movimento.ref)=2));")
Set dybase = Banco.OpenRecordset(sqrst)
End Sub
O sistema retorna a mensagem " Erro de compilação - o objeto é obrigatório " selecionando "Set sqrst".
Não consigo solução para o erro.
Agradeço pela ajuda dos companheiros
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.