MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]erro ao executar sql

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 360
    Registrado : 23/05/2011

    [Resolvido]erro ao executar sql Empty [Resolvido]erro ao executar sql

    Mensagem  Ney Santos 10/9/2024, 18:36

    Amigos boa tarde!
    Tenho duas tabelas uma chamada CTB e outra CadCom
    a tabela ctb recebe oa lancamnetos credito e debito de uma detrminada conta.
    Seus campos sao:Data,CONTA,doc,Debito credito, historico e IDLanc.
    A tabela cadcon tem os campos: Conta ,NmConta e saldo

    estou tentando criar uam funçao que filtre os dados na tabela CTB por um detrmindao periodo por exemplo entre01/03/2024 e 31/03/2024
    Digamos que nesse periodo varias contas foram lancadas na tabela CTB, oque preciso e somar os valores credito e debito dessas contas
    fazer um saldo CREd-deb e lancar na tabela cadcon cada valor na conta expecifica com ajuda de amigo cirei a seguinte funçao:

    Sub AtualizaSaldoContas9400()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim total As Double
    Dim totalGeral As Double
    Dim sql As String
    Dim dtInicial As String
    Dim dtFinal As String
    Dim contaAtual As String

    ' Pegando os valores das caixas de texto de data no formulário
    dtInicial = Format(Me.dtini, "\#mm\/dd\/yyyy\#")
    dtFinal = Format(Me.dtfim, "\#mm\/dd\/yyyy\#")

    ' Abre a base de dados atual
    Set db = CurrentDb

    ' SQL para selecionar os valores da tabela CTB filtrando pelas contas e datas
    sql = "SELECT conta, SUM(saldo) AS TotalSaldo FROM CTB " & _
    "WHERE conta BETWEEN 9401 AND 9499 " & _
    "AND DataLancamento BETWEEN " & dtInicial & " AND " & dtFinal & " " & _
    "GROUP BY conta"

    ' Depuração: Exibir a consulta SQL gerada
    Debug.Print sql

    ' Abre o recordset com a consulta
    Set rs = db.OpenRecordset(sql)

    ' Inicializa os totais
    totalGeral = 0

    ' Percorre o recordset para atualizar os saldos das contas e calcular o total geral
    Do While Not rs.EOF
    contaAtual = rs!conta
    total = rs!TotalSaldo

    ' Atualiza o saldo da conta correspondente na tabela cadcon
    db.Execute "UPDATE cadcon SET saldo = " & total & " WHERE conta = " & contaAtual

    ' Acumula o valor no total geral
    totalGeral = totalGeral + total

    ' Avança para a próxima conta
    rs.MoveNext
    Loop

    ' Fecha o recordset
    rs.Close

    ' Atualiza o saldo da conta 9400 na tabela cadcon com o total geral
    db.Execute "UPDATE cadcon SET saldo = " & totalGeral & " WHERE conta = 9400"

    ' Mensagem de confirmação
    MsgBox "O saldo da conta 9400 foi atualizado com o total geral: " & totalGeral

    ' Limpa objetos
    Set rs = Nothing
    Set db = Nothing

    End Sub
    so que esta dando erro
    nessa LInha Set rs = db.OpenRecordset(sql) da o erro 3061 paramnetros insuficientes alguem pode ajudar?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8512
    Registrado : 05/11/2009

    [Resolvido]erro ao executar sql Empty Re: [Resolvido]erro ao executar sql

    Mensagem  Alexandre Neves 10/9/2024, 20:39

    Boa noite
    A instrução SQL apenas invoca uma tabela mas deve invocar as duas tabelas e indicar o relacionamento entre elas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 360
    Registrado : 23/05/2011

    [Resolvido]erro ao executar sql Empty Re: [Resolvido]erro ao executar sql

    Mensagem  Ney Santos 10/9/2024, 20:43

    obrigado Sr Alexandre, entao estou errdo na maneira que estou exectando?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8512
    Registrado : 05/11/2009

    [Resolvido]erro ao executar sql Empty Re: [Resolvido]erro ao executar sql

    Mensagem  Alexandre Neves 10/9/2024, 20:56

    chama o campo saldo e apenas invoca a tabela CTB que não tem esse campo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 360
    Registrado : 23/05/2011

    [Resolvido]erro ao executar sql Empty Re: [Resolvido]erro ao executar sql

    Mensagem  Ney Santos 10/9/2024, 21:01

    entendi mutio obrigado
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 360
    Registrado : 23/05/2011

    [Resolvido]erro ao executar sql Empty Re: [Resolvido]erro ao executar sql

    Mensagem  Ney Santos 12/9/2024, 01:07

    vou encerrer e tentar outra coisa

    Conteúdo patrocinado


    [Resolvido]erro ao executar sql Empty Re: [Resolvido]erro ao executar sql

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2024, 18:08