[Resolvido]Lançar dados do formulário em uma tabela

Olá pessoal!
Primeiro quero agradeçer a prontidão dos colegas em solucionar nossas dúvidas.Estou com um problema e tenho certeza que será moleza para os senhores.Tenho uma tabela chamada lancamento com os campos fatura,data de emissão,data de vencimento,valor,data do pagamento,valor pago.A questão é o seguinte quero que os campos data do pagamento e valor do pagamento sejam lançados em uma outra tabela chamada registrabaixas.Já havia feito isso em um formulário de login com a ajudo do colega Topbr mas não consegui adaptar para uma outra situação...
Desde já grato.

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma transferencia?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("registrabaixasl", dbOpenTable)

With rs1

.AddNew
![data do pagamento] = Me.data do pagamento
![ valor do pagamento ] = Me. valor do pagamento
.Update

End With



MsgBox "Transferencia confirmada.", vbOKOnly + vbInformation, "Concluído"

End If

cole no evento ao clicar de um botão!

Atenção para os nomes dos campos,,,, os nomes tem que estar identicos!

![data do pagamento] = Me.data do pagamento
![ valor do pagamento ] = Me. valor do pagamento

lembrando esse código é do mestre JUNGLI
Só fiz a adaptação!

É verdade!

no caso do nosso amigo ai é simples, assim tambem funciona testei aqui, ja no meu caso é que não estou conseguindo lançar os dados do subform na tabela central!

E como necessariamente faria isso meu amigo Noberto Rost?É que eu estou engatinhando em Access...

Ué Clemerson te passei a rotina mastigado está até com o nome da sua tabela!
ainda não conseguiu?
ao clicar de um botão cole a rotina:

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma transferencia?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("registrabaixasl", dbOpenTable)

With rs1

.AddNew
![data do pagamento] = Me.data do pagamento
![ valor do pagamento ] = Me. valor do pagamento
.Update

End With



MsgBox "Transferencia confirmada.", vbOKOnly + vbInformation, "Concluído"

End If

caso tenha duvidas envie um bd que te ajudamos!

Norberto
Esse código ficou perfeito, parabéns!

Senhores muito obrigado pela atenção.
Vou usar os exemplos dos senhores e retorno.

Boa noite senhores.
Usei o exemplo do amigo Lupércio e deu certo no entanto não consegui aplicar o exemplo do Norberto Rost.Vou continuar tentando até conseguir do dois jeitos...
Muitíssimo grato.

Não nenhuma mensagem de erro...na verdade o que acontece é que nada acontece.
provalvemente eu é que não estou fazendo certo.
Muitíssimo obrigado pelo interesse...Deus abençõe a todos.

Deus abençoe a você tambem!

Irmão é o seguinte, se não funcionou não de por resolvido, aqui no forum há pessoas hábeis, são muitas as pessoas que podem
lhe ajudar como tem ajudado á mim, poste seu bd aqui no forum que o próprio Norberto tem muito conhecimento, é um craque em códigos e funções, e tambem posso dar uma humilde olhadinha, fica com Deus.