salvar registros em 2 tabelas simultaneamente

Ola,

Peço a gentileza de todos para tirar uma dúvida, que se segue:

tenho 2 tabela

tblresponsavel (cod,nome,idade,profissao,escolaridade)
tblfamilia (cod,nome,idade,parentesco,profissao,escolaridade)

tenho 1 formulario onde e feito o cadastro do responsavel e um subform no mesmo formulario para preenchimento dos dados da familia do responsavel.
Gostaria de quando clicar no botão SALVAR REGISTRO ele gravasse os dados do responsavel tambem na tabela tblfamilia ja que os campos são igiais.

No aguardo. Muito obrigado.

Se tiverem algum exemplo tambem seria de grande valia.

Do form para duas tabelas, adapte!

Private Sub SeuBotão_Click()
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("Tab_Primaria", dbOpenTable)
With rs1

.AddNew
![Campo1] = Me.Campo1
![Campo2] = Me.Campo2
![Campo3] = Me.Campo3

.Update
End With

Set rs1 = db1.OpenRecordset("Tab_Segundaria", dbOpenTable)
With rs1

.AddNew
![Campo1] = Me.Campo1
![Campo2] = Me.Campo2
![Campo3] = Me.Campo3


.Update
End With
MsgBox Foi transferido os dados do formulário para todas as tabelas.", vbOKOnly + vbInformation, "Concluído"
End If

End Sub

Ola,

obrigado pela ajuda, mas não consegui resolver.

vou postar o banco e um resumo do que realmente estou querendo fazer.

Desde já agradeço a gentileza.

Jose Claudio

Boa noite, Lupércio e Zafpm.

Apenas dando um pitaquinho....

Zafpm, falta uma simples linha, coloca um End If...embaixo do outro end if......lembre-se todo if tem sempre um end id.

Faça isso que vai dar certo.

Abraços.

Oi Silvio bom dia amigo, ando meio atarefado, rsrsrs!
Zafpm teste ai!