[Resolvido]Inserir dados em duas tabelas ao mesmo tempo

Como faço para inserir dados em duas tabelas atravez de um formulario, ao mesmo tempo.
preencho um formulario e clico em um botão ai insere os mesmos dados deste formulario e em outro.
Isso seria possivel.
Obrigado.

Olá Kaynan,

O código abaixo resolve:

Dim db As DAO.Database
Dim rst As DAO.recordset
Set db = CurrentDB()
Set rst = db.OpenRecordset("TuaTabela", dbOpenTable)
rst.AddNew
rst!TeuCampo1 = teuValor1 ' campo no formulário
rst!TeuCampo2 = TeuValor2
rst.Update
rst.Close
Set rst = Nothing


Nivaldo.

Boas Nilvaldo obrigado por me atender.
Só me diga

Dim db As DAO.Database
Dim rst As DAO.recordset
Set db = CurrentDB()
Set rst = db.OpenRecordset("TuaTabela", dbOpenTable)
rst.AddNew
rst!TeuCampo1 = teuValor1 ' campo no formulário
rst!TeuCampo2 = TeuValor2
rst.Update
rst.Close
Set rst = Nothing


"Tua tabela" seria o nome da segunda tabela onde vai ser inserido o dado, certo?
Teu campo1 seria o nome do campo do formulario, em que estou digitando e 'teu valor' oque seria

Olá Kaynan,

Respondendo:

"Tua tabela" seria o nome da segunda tabela onde vai ser inserido o dado, certo?

Sim, seria o nome da tabela onde você quer que os dados sejam salvos.

Teu campo1 seria o nome do campo do formulario, em que estou digitando e 'teu valor' oque seria

TeuCampo1 é o nome do campo na tabela.
TeuValor é o nome do controle/campo no formulário.

Nivaldo.

amigo me de desculpa a falta de conhecimento nestes códigos.
teria como me fazer um exemplo com duas tabelas e um formulario que apos cadastrar um produto neste form e clicr emum botão ele inserir nesta outra tabela.

Abçs.

Com a permissão do colega Nivaldo

veja o exemplo que fiz apartir do código que o Nivaldo passou

observer o código no btn inserir.

Sucesso.

Com a permissão dos colegas Nivaldo e mathusalmeida,

modifiquei o exemplo postado pelo mathusalmeida.

cuidado com a nomenclatura dos campos, também temos que ter índices nas tabelas, aqui mesmo no fórum tem muitas informaçãoes sobre como estruturar sua base de dados.

quando clicar em inserir, será adicionado o registro na tabela, e se abrirá outro formulário com os dados novos.

Pessoal vocês são demais,muito obrigado pelos exemplos bem declarados.
Nivaldo,mathusalmeida,Jungli,tudo de bom pra vcs,resolvido essa lida.

Abçs.