[Resolvido]Editar registro ao clicar em alterar

Boa tarde! Ao criar um registro tenho um segundo registro q é criado em outra tabela, para isso uso o seguinte codigo em meu form:

Else
   
Dim db As DAO.Database, Rs As DAO.Recordset
                   Set db = CurrentDb()

                   Set Rs = db.OpenRecordset("Tbl_LancamentosCaixa")

                   Rs.AddNew

                   Rs("TipoLancamento") = "CRÉDITO"
                   Rs("NomeLancamento") = "ENTRADA DE DOAÇÕES"
                   Rs("Responsavel") = Me.RecolhedorResponsavel
                   Rs("Valor") = Me.ValorTotal
                   Rs("CodigoDoacao") = Me.CódigoDoacao
                   

                   Rs.Update
                   db.Close
                   Set db = Nothing
                   Set Rs = Nothing

O problema é que quando eu vou alterar o registro no form, o registro acima não é atualizado. Que função coloco no meu botão alterar para que, ao alterar o registro do form seja alterado também esse registro?

Brother, acredito que falta a outra tabela, criando um outro objeto recordset.

Abraços

a outra tabela já está definida. Eu preciso de um código para atualizar o registro da 2º tabela quando eu alterar o dado do form

Se puder postar parte do banco lhe ajudaremos!

Vou tentar explicar melhor: No formulário Cad doações é feito o lançamento das doações q é salvo na tabela doações. Ao salvar o registro, alguns dados deste registro são registrados também na tabela lançamentos caixa. Preciso que ao clicar em salvar seja verificado se existe um laçamento na tabela caixa: se houver o lançamento preciso q ele seja editado, se não houve preciso q ele seja criado. Pode-se utilizar o codigo da doação para verificar se o lançamento já existe ou não.

Que campo da tabela Lançamentos Caixa precisa ser verificado, e se não existir seja cadastrado.

Cleverson

O campo da tabela a ser verificado é o campo CodigoDoacao. Ele vai receber os dados do campo CódigoDoacao do formulário

Bom dia..

Apenas um simples pitaco...

Sem ter o projeto ( banco de dados ) em mãos, fica difícil a compreensão, a ajuda e a resolução do mesmo para o colega que está com duvidas.

"Zipa" esse projeto na versão AC2007 ou AC2003 e mande para cá como anexo, para podermos melhor te ajudar.

Silvio

Pessoal não consegui anexar o arquivo, tenho ele compartilhado no dropBox, já ajuda?

https://www.dropbox.com/s/pm4qzh1gy1nq68b/Sistemas.accdb?dl=0

OK

Boa noite

Para alterar eu uso:

Dim db As Dao.Database, rs As Dao.Recordset
   Set db = CurrentDb()
   Set rs = db.OpenRecordset("Tbl_LancamentosCaixa", dbOpenDynaset)
   rs.FindFirst "CodigoDoacao = " & Me.CodigoDoacao
   rs.Edit
       
    Rs("TipoLancamento") = "CRÉDITO"
   Rs("NomeLancamento") = "ENTRADA DE DOAÇÕES"
   Rs("Responsavel") = Me.RecolhedorResponsavel
   Rs("Valor") = Me.ValorTotal
   Rs("CodigoDoacao") = Me.CódigoDoacao

  rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing

Obrigado Pessoal, consegui usar o exemplo do Assis!