[Resolvido]Gravar dados atualizados "update"

Olá amigos.
Tenho um cadastro de clientes onde estou criando um botão para atualizar os dados existentes.
Estou tentando usando o código abaixo,

Código:

db.Execute "update Tab_Cadastro_Catequisandos set NOME_CATEQUISANDO= '" & Me.NOME_CATEQUISANDO & "' WHERE CODIGO='" & Me.CODIGO & "'"


Porém ele apresenta o erro: 424.

Alguém poderia ajudar?
Desde ja agradeço.

Apenas texto entre aspas simples. Se o campo código for número, então não precisa ficar entre as aspas.

Código:

db.Execute "update Tab_Cadastro_Catequisandos set NOME_CATEQUISANDO= '" & Me.NOME_CATEQUISANDO & ' WHERE CODIGO=' & Me.CODIGO

Seria assim ?

Não. Veja abaixo como deve ser. Para sua evolução, analise o que mudou.

Código:

db.Execute "update Tab_Cadastro_Catequisandos set NOME_CATEQUISANDO= '" & Me.NOME_CATEQUISANDO & "' WHERE CODIGO=" & Me.CODIGO

Como descobri? Fazendo perguntas ao VBE.
Veja como
https://www.maximoaccess.com/t37958-dicas-de-ouro

Ola, obrigado pelo retorno.
Porém tentei várias vezes e não tive exito.
Poderia dar uma corrigida para mim ?

A sintaxe está correta para o comando. Deve haver outro fator impedindo a execução correta. Para auxílio mais objetivo então anexe seu projeto.

Estou enviando o projeto para melhor compreensão.

https://www.dropbox.com/s/7dxcroqh53sro50/GERCAT.rar?dl=0

Alguém consegue me ajudar?

Como dito, havia outro fator que impedia a execução do comando. O fator: na tabela, o campo que registra o nome do catequisando é "NOME CATEQUISANDO" e não "NOME_CATEQUISANDO" (separado por underline). Não é bom ter em nome de campo caracteres especiais e espaços. Nos casos de o campo ter no nome um espaço, então, na sintaxe, esse fica entre colchetes.

Dito isso, segue a maneira correta:

Código:

"UPDATE Tab_Cadastro_Catequisandos SET [NOME CATEQUISANDO] = '" & Me.NOME_CATEQUISANDO & "' where CODIGO = " & Me.CODIGO

Não esqueça de marcar o tópico como resolvido.

FernandoRogerio, a dica resolveu?

Aguardamos retorno.

Olá, obrigado pela ajuda.

Eu consegui o código de outra forma que funcionou certinho:
Muito obrigado.

Código:

'GRAVAR DADOS ATUALIZADOS
On Error Resume Next
Dim sel As String 'variavel que vai receber o select para consultar os dados no sistema
Dim rst As Recordset 'variavel que vai nos permitir a usar os campos da tabela
sel = "SELECT * from CNS_Cadastro_Catequisandos WHERE CODIGO =" & CODIGO
Set rst = CurrentDb.OpenRecordset(sel)
rst.Edit
'como funciona o recordset
'[nome do campo da tabela] = 'nome do campo no formuário
Me.DATA_EDITADO.Value = Date
rst![SITUACAO] = SITUACAO.Value
rst![DATA_EDITADO] = Me.DATA_EDITADO.Value
rst![NOME_CATEQUISANDO] = NOME_CATEQUISANDO.Value
rst![DT_NASCI] = DT_NASCI.Value
rst![ENDERECO] = ENDERECO.Value
rst![BAIRRO] = BAIRRO.Value
rst![NOME_PAI] = Me.NOME_PAI
rst![NOME_MAE] = Me.NOME_MAE
rst![RESPONSAVEL] = Me.RESPONSAVEL
rst![CONTATO_01] = Me.CONTATO_01
rst![CONTATO_02] = Me.CONTATO_02
rst![CONTATO_03] = Me.CONTATO_03
rst![LOCAL] = Me.LOCAL
rst![BATIZADO] = Me.BATIZADO
rst![REMATRICULA] = Me.REMATRICULA.Value
rst![PADRINHO_01] = Me.PADRINHO_01.Value
rst![PADRINHO_02] = Me.PADRINHO_02.Value
rst![INFORMACOES] = Me.INFORMACOES
rst.Update 'atualiza a tabela
rst.Close  'fecha o recordset
Set rst = Nothing
End sub