[Resolvido]Vba Consulta UPDATE em tabela

Bom Dia,

Estou tentando fazer um update em uma tabela a partir de resultados apresentados em um formulário existe, no momento o campo chamado “txt_calendario” traz data no seguinte formato “21/11/2017 09:41:10” que também é o mesmo formato apresentado na tabela, já mudei também o formato de ambos para “dd/mm/yyyy”, porem mesma falha se apresenta, se eu retirar toda declaração do WHERE, o código funciona.

Private Sub Comando0_Click()

Dim sql As String
Dim rs As Recordset

   sql = "UPDATE tbl_tarifas2 SET valor_tarifa = '" & (Format(txt_valores, "Currency")) & "'," & _
             "WHERE data_tarifa = ( #" & (Format(txt_calendario, "mm/dd/yyyy")) & "#);"
             CurrentDb.Execute (sql)
     
End Sub

Erro apresentado

Erro no tempo de execução ‘3144’:
Erro de sintaxe na instrução UPDATE.

Desde já muito obrigado a todos.

Bom dia !!!

Experimente desta forma:

sql = "UPDATE tbl_tarifas2 SET valor_tarifa = '" & Format(txt_valores, "Currency") & "'" & _
"WHERE data_tarifa = #" & CDate(Format(txt_calendario, "mm/dd/yyyy")) & "#;"

CurrentDb.Execute (sql)


No aguardo.

Boa Tarde Kleber, inserir novamente o código conforme orientado , o erro persistiu , porem criei um novo formulário para rodar somente esse mesmo código com mesma logica, onde o mesmo processou sem falhas, creio que o meu primeiro formulário tenha algum outro detalhe impactando, nessa situação irei criar um novo formulário , e usar a logica informada, mas muito obrigado pela ajuda.Valeu meu Brother.

A disposição !

Não esquece de dar como Resolvido o tópico.

Caso tenha mais dúvidas, anexe seu projeto.

Blz.Obrigado