[Resolvido]Editar dados de uma tabela

Olá pessoal, boa tarde!

Estou criando um bd para uma biblioteca, mas não estou conseguindo atualizar os dados da tabela via código VBA. Preciso atualizar os dados no frmCadastrar_Leitor e no frmCadastrar_Livros
Alguém pode me ajudar?

Bom dia, e bem-vindo ao fórum
Faltou a senha

Bom dia e boa tarde a todos...

Elias, testei a tua base de dados e não vi errou algum ao acrescentar dados nos formulários que disse.

Pode ser mais especifico quanto ao erro ?

No aguardo.

Silvio, Alexandre Neves, Boa tarde!

Obrigado pelo apoio!

De fato, não fui muito claro na minha pergunta, me desculpe! Vou tentar esclarecer melhor...

O que quero na verdade é modificar os dados que acrescento na tabela via vba, por exemplo: fiz o cadastro de um leitor de nome Fulano da Silva, mas depois, me lembro que o nome dele não é fulano mas Cicrano de Souza. No frmCadastrar_Leitor tenho um bt comando "modificar". É através desse botão que gostaria de alterar os dados cadastrados na tabela, por exemplo o nome que cadastrei de Fulano para Cicrano. Mas não estou conseguindo via código.

Algo assim...

Código:

Private Sub Substituir_Click()
'Antes de realizar a substituição a rotina exclui os dados anteriores para aproveitar
  'a chave primária e assim evitar duplicidade de cadastro.
'O campo "Código" que é a chave primária tem que estar no formulário de cadastro.

 CurrentDb.Execute "DELETE * FROM TblLeitor WHERE Código=" & Me.CÓDIGO & ""

'Realizando a inserção de dados na tabela leitor
Dim db As Database
Dim tb As Recordset
Set db = CurrentDb
Set tb = db.OpenRecordset("tblLeitor")
tb.AddNew
tb!NOME = Forms!frmCadastrar_Leitor!txtNome
tb!ENDEREÇO = Forms!frmCadastrar_Leitor!txtEndereço
tb!Nº = Forms!frmCadastrar_Leitor!txtnumero
tb!BAIRRO = Forms!frmCadastrar_Leitor!txtBairro
tb!CEP = Forms!frmCadastrar_Leitor!txtCep
tb!TELEFONE = Forms!frmCadastrar_Leitor!txtTelefone
tb!CELULAR = Forms!frmCadastrar_Leitor!txtCelular
tb!WATTSAP = Forms!frmCadastrar_Leitor!txtWattsap
tb!EMAIL = Forms!frmCadastrar_Leitor!txt_Email
tb.Update
tb.Close
Set db = Nothing
End Sub

Silvio,

Obrigado pelo rápido retorno!

Testei e funcionou! Agora e se eu quiser apenas modificar algum dado da tabela, por exemplo o endereço, sem excluir o cadastro?