[Resolvido]Botao Alterar - Erro em CurrentDb.Execute (sql)

Boa tarde!

Estou com um problema quando altero os dados. Abaixo o codigo que estou utilizando


Private Sub bt_alterar_Click()
'sql = "select * from tab where codigo='" & txt_codigo & "'"
'sql = "SELECT * FROM tab WHERE data = ' " & txt_dia & "' "
sql = "SELECT * FROM tab WHERE codigo Like '" & UCase(txt_codigo) & "'"
validar_leitura
aux = RS.Fields("codigo")
sql = "update tab set codigo='" & txt_codigo & "', " & _
"anotacoes= '" & txt_anotacoes & "', codigo = '" & txt_codigo & "',datahora = '" & txt_diahora & "'," & _
"data = '" & txt_dia & "', Atendimento - '" & txt_atendimento & "', Quesitos = '" & txt_quesitos & "', " & _
"Encaminhamento = '" & txt_encaminhamento & "',Perfil = '" & txt_perfil & "',cont_atendimento = '" & txt_cont_atendimento & "', " & _
"cont_email = '" & txt_cont_email & "', cont_pessoas = '" & txt_cont_pessoas & "', cont_homem = '" & txt_cont_perfil & "'," & _
"cont mulher = '" & txt_cont_mulher & "', cont_partes = '" & txt_cont_parentes_das_partes & "',cont_advogado = '" & txt_cont_advogado & "', " & _
"cont_forum = '" & txt_cont_forum & "', cont_outros = '" & txt_cont_outros & "', cont_adv_homem = '" & txt_cont_advogado_homem & "'," & _
"cont_adv_mulher = '" & txt_cont_advogado_mulher & "', conte_parente_homem = '" & txt_cont_parentes_das_partes_homem & "'" & _
"cont_parente_mulher = '" & txt_cont_parentes_das_partes_mulher & "', cont_conjuge = '" & txt_cont_conjuge & "', " & _
"cont_coleta = '" & txt_Data_para_a_coleta & "', cont_expedicao_de_laudo= '" & txt_cont_expedicao_de_laudo & "', " & _
"cont_multirao = '" & txt_cont_multirao & "', cont_informacoes_gerais = '" & txt_cont_informarcoes_gerais & "', " & _
"cont_coleta = '" & txt_cont_coleta & "', cont_laboratorio = '" & txt_cont_laboratorio & "', cont_agendamento = '" & txt_cont_agendamento & "', " & _
"cont_sic = '" & txt_cont_sic & "', mes = '" & txt_mes & "', Ano= '" & txt_ano & "', Mes_numero = '" & txt_mes_numero & "'," & _
"WHERE codigo Like '" & UCase(txt_codigo) & "'"
'validar_leitura1
CurrentDb.Execute (sql)
MsgBox ("Dados alterados com sucesso !!!"), vbInformation + vbOKOnly, "ATENÇÃO"
End Sub




Ele para exatamente no CurrentDb.Execute (sql) dizendo ( Erro em tempo de execuçao 3144, Erro de sintase na instruçao UPADATE.

Desde ja agradeço.

Essa mensagem indica que o código SQL não está correcto.
Veja os dados existentes nos controlos, se o erro se refere a campo inexistente ou a tipo de variável diferente

"WHERE codigo Like '" & UCase(txt_codigo) & "'"

Apando a linha acima, consegue.