[Resolvido]Como inserir dados em duas ou mais tabelas automaticamente, utilizando apenas um formulario

Pessoal,

Preciso criar um banco de dados para uma ficha técnica. assim, será necessário que eu tenha os mesmos itens em várias tabelas. No exemplo anexo, quero, ao preencher um único formulário, alimentar todas as tabelas contidas no banco de dados. Alguém poderia me ajudar?


Versão do Office:2013


https://drive.google.com/open?id=0B1IQ6qgyKaWMUk03b1l4S1h1NDQ

Obrigado,

Márcio

Boa tarde,

Sugiro que dê uma pesquisada sobre Docmd INSERT INTO
A princípio solucionaria seu problema, sendo aplicada da forma correta!

Não consigo fazer o download.

Caio Souza, esse Docmd INSERT INTO só permite atualizar os dados em apenas mais uma tabela?

O que eu preciso é o seguinte: por meio de um único formulário, e consiga inserir O MESMO registros em várias tabelas diferentes. Por exemplo: ao preencher o campo ITEM no formulário com a palavra TESTE, essa palavra irá preencher o campo ITEM de diversos formulários, automaticamente ao clicar em executar ou salvar.

Segue o link novamente:

https://drive.google.com/open?id=0B1IQ6qgyKaWMUk03b1l4S1h1NDQ

Como não entendo muito de Acces, gostaria de uma resposta bem objetiva, se possível, claro.

Valeu Caio,

Márcio

Bom dia,

A INSERT INTO funciona da seguinte forma:

INSERT INTO tabela [(campo1[, campo2[, …]])] VALUES (valor1[, valor2[, …])

A cada tabela de que deseja enviar o registro atual deve-se ter uma nova linha de código, ex.:

Código:

Private Sub BotaoSalvar_Click()
CurrentDb.Execute "INSERT INTO tabela1 (ID, Nome, Endereço) Values ('" & Nz(Me.txt.Value, 0) & "', '" & Nz(Me.txt_nome.Value, 0) & "','" & Nz(Me.endereco.Value, 0) & "');"
CurrentDb.Execute "INSERT INTO tabela2 (ID, Nome, Endereço) Values ('" & Nz(Me.txt.Value, 0) & "', '" & Nz(Me.txt_nome.Value, 0) & "','" & Nz(Me.endereco.Value, 0) & "');"
CurrentDb.Execute "INSERT INTO tabela3 (ID, Nome, Endereço) Values ('" & Nz(Me.txt.Value, 0) & "', '" & Nz(Me.txt_nome.Value, 0) & "','" & Nz(Me.endereco.Value, 0) & "');"
End Sub

Teste e nos envie um feed  

Caio,

Valeu Brother, deu muito certo. Nem pude acreditar kkkkkk, valeu mesmo, me ajudou muito. Estava parado nessa etapa, procurando uma solução há um mês. Obrigado.

Vlw cara, bons estudos.
Não esqueça do RESOLVIDO