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


3 participantes

    [Resolvido]Erro comando CurrentDb.Execute

    avatar
    lesniovski
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 04/10/2012

    [Resolvido]Erro comando CurrentDb.Execute Empty [Resolvido]Erro comando CurrentDb.Execute

    Mensagem  lesniovski 21/12/2017, 19:45

    Boa tarde a todos

    Tenho um Formulario com um Subformulario.

    No Subformulario, tenho um botão que executa o seguinte código VBA:

    Código:

    Private Sub BCalcular_Click()

    Me.ValorMedido = Me.ValorHora * Me.HorasTrabalhadas
    Me.CalcSaldo = Me.SaldoProjeto - Me.ValorMedido

    If Me.Calculado = -1 Then

    MsgBox "Este valor já foi calculado, caso queira realizar correções, desbloquear primeiro", vbCritical, "AVISO!"

    ElseIf MsgBox("O Valor de " & Me.ValorMedido & " será subtraido do Centro de Custo " & Me.CodCentroCusto.Column(1) & " do Projeto " & Me.CodProjeto.Column(1) & " / " & Me.CodProjeto.Column(2) & ", deseja prosseguir? ", vbYesNo, "Salvar Registro?") = vbYes Then
       CurrentDb.Execute " UPDATE TbDistCentroCusto SET Saldo = " & Me.CalcSaldo & " WHERE CodCentroCusto = " & Me.CodCentroCusto & " AND CodProjetoObra = " & Me.CodProjeto & ";"
       Me.Calculado = -1
       Me.SaldoProjeto.Requery
    End If


    End Sub

    A instrução do CurrentDb.Execute (Comando UPDATE), ocorre perfeitamente no primeiro registro do Subformulário, e com o Colaborador Luiz Fernando Zocco em todos os registros.

    Porém do Segundo registro em diante (nos demais Colaboradores), apresenta o erro "Erro em tempo de Execução '3144'; Erro de sintaxe na instrução UPDATE.

    Alguem já passou por isso?

    Segue o BD em anexo para analise (Access 2016), o Formulário que contém essa instrução é o FormMedicao, no SubFormMedicaoColab.

    Agradeço desde já.

    Marcio Lisandro
    Anexos
    [Resolvido]Erro comando CurrentDb.Execute AttachmentMedicao e CC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (132 Kb) Baixado 4 vez(es)


    Última edição por lesniovski em 8/10/2018, 21:42, editado 1 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Erro comando CurrentDb.Execute Empty Erro comando CurrentDb.Execute

    Mensagem  good guy 21/12/2017, 19:58

    Olá lesniovski,

    Verifique com um tratamento de erro:
    Código:


    Private Sub BCalcular_Click()
    On Error Resume Next
    Me.ValorMedido = Me.ValorHora * Me.HorasTrabalhadas
    Me.CalcSaldo = Me.SaldoProjeto - Me.ValorMedido

    If Me.Calculado = -1 Then

    MsgBox "Este valor já foi calculado, caso queira realizar correções, desbloquear primeiro", vbCritical, "AVISO!"

    ElseIf MsgBox("O Valor de " & Me.ValorMedido & " será subtraido do Centro de Custo " & Me.CodCentroCusto.Column(1) & " do Projeto " & Me.CodProjeto.Column(1) & " / " & Me.CodProjeto.Column(2) & ", deseja prosseguir? ", vbYesNo, "Salvar Registro?") = vbYes Then
      CurrentDb.Execute "UPDATE TbDistCentroCusto SET Saldo = " & Me.CalcSaldo & " WHERE CodCentroCusto = " & Me.CodCentroCusto & " AND CodProjetoObra = " & Me.CodProjeto & ";"
      Me.Calculado = -1
      Me.SaldoProjeto.Requery
    End If


    End Sub
    avatar
    lesniovski
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 04/10/2012

    [Resolvido]Erro comando CurrentDb.Execute Empty Re: [Resolvido]Erro comando CurrentDb.Execute

    Mensagem  lesniovski 21/12/2017, 21:58

    Primeiro Obrigado pela rápida resposta Good Guy!

    Aplicando a expressão de tratamento de erro "On Error Resume Next", não apresenta o erro, porém o comando:

    CurrentDb.Execute "UPDATE TbDistCentroCusto SET Saldo = " & Me.CalcSaldo & " WHERE CodCentroCusto = " & Me.CodCentroCusto & " AND CodProjetoObra = " & Me.CodProjeto & ";"

    Não é executado!

    Alguma outra idéia?
    avatar
    lesniovski
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 04/10/2012

    [Resolvido]Erro comando CurrentDb.Execute Empty Re: [Resolvido]Erro comando CurrentDb.Execute

    Mensagem  lesniovski 22/12/2017, 01:45

    Pessoal, acredito que resolvi o meu problema.

    Com a dica desse Link

    Obrigado a todos!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro comando CurrentDb.Execute Empty Re: [Resolvido]Erro comando CurrentDb.Execute

    Mensagem  Alexandre Neves 7/1/2018, 14:40

    Boa tarde,
    Se resolveu, marque o Resolvido


    .................................................................................
    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

    Conteúdo patrocinado


    [Resolvido]Erro comando CurrentDb.Execute Empty Re: [Resolvido]Erro comando CurrentDb.Execute

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:15