Formulario que Grava em 02 Tabelas ao mesmo Tempo

Senhores, bom dia!

Gostaria de saber se temos como utilizar um formulario que tenha campos que grave em duas tabelas ao mesmo tempo:

Exemplo:

Preciso de gravar o campos:
01 DATA - Matricula - Placa - KmInicial

As duas Tabelas tem as mesmas colunas.

Preciso do codigo VBA para realizar essa tarefa.
Conto com a ajuda dos colegas.

Grato.
Renato

Olá Renato,
Não entendi direito: você tem 02 tabelas exatamente iguais (mesmo número e nome de campos)?

Deixa eu explicar.

Tenho duas tabelas diferente, mas com alguns campos iguais.

Eu preciso de um código que GRAVA esses campos iguais nas duas tabelas.

Formulario ( Cadastro de Veículos )
Exemplo:
Tabela1 - Cadastro de Veículos
Campo1-Numero do Carro(Matricula)
Campo2-Placa
Campo3-DatadoCadastramento
Campo4-KmInicial

Tabela2 - Controle de Kilometragem
Campo1-Numero do Carro(Matricula)
Campo2-Placa
Campo3-DatadoCadastramento
Campo4-KmInicial

O Formulário ( Cadastro de Veículo ) teria que salvar(gravar) nas duas tabelas ao mesmo tempo.

E você não pode efetuar o cadastro somente na tabela Cadastro e, quando necessitar alterar/acrescentar dados na tabela Controle, puxar esses dados na tabela Cadastro?

Realmente eu preciso que esse cadastro seja automático, senão meu sistema não fica completo.
Ele requisita essa informação.

Já tentei fazer como você sujeriu, mas não é viável.

Boa noite Renato,

Você poderia vincular o teu formulário à Tabela1 e para acrescentar os dados na Tabela2  :

Código:


   Dim db As DAO.Database
   Dim rs As DAO.Recordset
  
  
   Set db = CurrentDb()
   Set rs = db.OpenRecordset("Tabela2", dbOpenTable)
  
       rs.AddNew
       rs!Matricula = Me.Matricula
       rs!Placa = Me.Placa
       rs!DataCadastro = Me.DataCadastro
       rs!KmInicial = Me.KmInicial
       rs.Update
       rs.Close
       Set rs = Nothing


Se o campo Matricula for do tipo Numeração Automática, não precisa entrar no código.



Coloca o código no evento que você achar melhor.

Em tempo: Você colocou uma dúvida sobre tabelas na sala de relatórios.


Nivaldo.

Nilvado, bom dia!

Perfeito...
E isso mesmo, resolveu a meu problema.

Grato pela orientação.
Realmente, como sou novo aqui no forum, eu nem percebe que estava no topico "Relatorio".

Valew demais...

Olá Renato,

Obrigado pelo retorno. O forum agradece.

Não esqueça de clicar no Resolvido.


Nivaldo.

Olá Renato,
O problema já foi sanado?
Se sim, não esqueça de fechar o tópico com o Resolvido.
Valeu.