[Resolvido]Inserir dados de um mesmo formulário em tabelas diferentes.

Olá senhores,boa noite.
Preciso da ajuda dos senhores.Uso o código abaixo para inserir dados de um formulário para uma tabela.Agora preciso inserir dados deste mesmo formulário em uma outra tabela.Pergunto aos senhores,como posso fazer isso ultizando este mesmo código?







Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
Dim confirma As Integer
confirma = MsgBox("Não existe registro de produto memorizado para este nome.Deseja memoriza-lo agora?", vbYesNo + vbQuestion, "Confirme")
Select Case confirma

Case vbNo

Exit Sub
Me.produto.SetFocus

Case vbYes

Cancel = True

Set db1 = CurrentDb


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


With rs1


.AddNew
![produto] = Me.produto
![codigo] = Me.codigo



.Update

End With
End Select

Bom dia....pode ser feito assim..
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
Dim confirma As Integer
confirma = MsgBox("Não existe registro de produto memorizado para este nome.Deseja memoriza-lo agora?", vbYesNo + vbQuestion, "Confirme")
Select Case confirma

Case vbNo

Exit Sub
Me.produto.SetFocus

Case vbYes

Cancel = True

Set db1 = CurrentDb

set db2 = currentdb


Set rs1 = db1.OpenRecordset("memoprod", dbOpenTable)
set rs2 = db2.openrecordset ("2tabela",dbopentable)


With rs1


.AddNew
![produto] = Me.produto
![codigo] = Me.codigo

with rs2

.AddNew
![seucampo] = me.seucampo



.Update

End With
End Select

Teste e e nos informe !

Abraços

Olá Silvio,boa noite.
Infelizmente não está funcionando.A seguinte mensagen está aparecendo "end select sem select case".

Tente assim....

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

if MsgBox("Não existe registro de produto memorizado para este nome.Deseja memoriza-lo agora?", vbYesNo + vbQuestion, "Confirme")= yes then


Cancel = True

Set db1 = CurrentDb

set db2 = currentdb


Set rs1 = db1.OpenRecordset("memoprod", dbOpenTable)
set rs2 = db2.openrecordset ("2tabela",dbopentable)


With rs1


.AddNew
![produto] = Me.produto
![codigo] = Me.codigo

with rs2

.AddNew
![seucampo] = me.seucampo



.Update
else
Exit Sub
Me.produto.SetFocus
end if

End With

Ok deu certo!!!!

valeu.

Bom dia e Feliz ano para ti.

Que bom que deu certo.

O fórum agradece o retorno.

Abraços