[Resolvido]Erro comando CurrentDb.Execute

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

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


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?

Pessoal, acredito que resolvi o meu problema.

Com a dica desse Link

Obrigado a todos!

Boa tarde,
Se resolveu, marque o Resolvido