[Resolvido]formulário inserindo valor em duas tabelas ou mais

Tenho um BD, ao inserir dados em um formulário, preciso que esse valor sejam salvos em duas tabela, Por exemplo, no form principal será inserido "matricula" e "funcionario", na tabela 1 que esta vinculada ao formulario preencherá os dois campos já na tabela 2 preciso que ele inclua somente a matricula.

Tentei o seguinte código:

Private Sub Form_AfterUpdate()

Dim BCO As Database
Dim TAB1 As Recordset
Dim TAB2 As Recordset
Set BCO = CurrentDb() 'Seta o banco de dados atual na variavel BCO
Set TAB1 = BCO.OpenRecordset("tabela1") 'Abre a tabela 1
Set TAB2 = BCO.OpenRecordset("tabela2") ''Abre a tabela 2

TAB2.AddNew
TAB2![matricula] = TAB1![matricula]
TAB2.Update 'atualiza a tabela 2

End Sub


No primeiro cadastro dá certo mais quando vou fazer o segundo cadastro está dando erro por chave primára duplicada, então percebi que a função está pegando o último registro da tabela 1 e tentando salvar na tabela 2, daí está a repetição. Como solução para isso pensei o seguinte: no formulário vou inserir a matricula e o funcionario, quando clicar em salvar eu faria algo assim:

TAB2![matricula] = formulárioPrincipal.matricula


Mas esta dando erro, como posso corrigir????

Boas!

Tente assim:


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

Valeu ... funcionou certinho, só tive que desvincular o formulario da tabela 1 pra ele poder inserir nas duas.

abraços

O forum agradece o retorno, abraço!