[Resolvido]Erro ao alterar cadastro

Boa noite.
Deparei com uma pequena duvida, na qual tentei algumas tentativas e não funcionou.
No projeto em anexo, aproveitei um código que em outro projeto funcionou, porém além de não salvar os dados na mesma linha, está dando um erro.
Quando eu seleciono algum cadastro existente e necessito de realizar qualquer alteração dos dados cadastrado, o programa está dando um erro, e o os dados são cadastrados são duplicados.
Os dados ao serem alterados deveram ser mantidos na mesma linha. Quando utilizo na tabela o campo id_coddiz como numero não esta dando o erro
Obs: Todos os cadastros iniciam com zero. para os códigos abaixo de 10 (000X) entre 9 e 100 (00XX) entre 99 e 999(0XXX) e a partir de 1000(0XXX)

Ola Denilson,

Apesar de você não ter mencionado em qual formulário estava dando o erro, mas eu identifiquei o erro no "Frm_Dizimista", no evento "Btn_Alterar_Click()"
na seguinte instrução:

Para fazer um select utilizando campos textos, utilize o APÓSTROFO no início e fim do campo:

- Errado
strSql = "SELECT * FROM Tab_dizimista WHERE id_nomediz =" & CStr(Me.Id_NomeDiz)

- Correto
strSql = "SELECT * FROM Tab_dizimista WHERE id_nomediz ='" & CStr(Me.Id_NomeDiz) &"'"


Neste mesmo evento, antes do ".Update", vai gerar erro nesta linhs:

.id.Id_RefEndDiz = Me.Id_RefEndDiz

mude para:

.Id_RefEndDiz = Me.Id_RefEndDiz


É isso.

Espero ter ajudado

[]'s

FIM

Obrigado, funcionou perfeitamente

Faltou o "Resolvido"

ok