[Resolvido]Inserir alguns dados de mesmo formulario em duas tabelas diferentes

Boa Noite, Mestres

Tenho uma duvida, como modo devo proceder para inserir alguns dados de mesmo formulario em duas tabelas diferentes.Tabelas Viculadas.

Desde já agradeço a atenção.

É formulário simples ou contínuo? Você quer inserir como novos registros ou atualizar registros existentes na tabela? Se for atualizar, tem um código comum nas tabelas e no formulário?

Boa Noite, Criquio

É formulário simples, sou meio novato faço o formulario vinculado na tabela direto, não sei como fazer o codigo, vc pode me ajudar.

Você quer inserir como novos registros ou atualizar registros existentes na tabela? Se for atualizar, tem um código comum nas tabelas e no formulário?

Código comum se refere ao campo Código do registro.

Desculpe, me expressei mal, não sei fazer o codigo no VBA

Tá bom, mas você quer inserir esses dados como um novo registro ou quer atualizar registro já existente na tabela?

Novo Registro

Tente algo assim, no evento "Ao clicar" de um botão:

CurrentDb.Execute "INSERT INTO NomeTabela1(NomeDoCampo1DaTabela, NomeDoCampo2DaTabela, NomeDoCampo3DaTabela) VALUES('" & Me.NomeCampo1DoForm & "', '" & Me.NomeCampo2DoForm & "', '" & Me.NomeCampo3DoForm & "'")

CurrentDb.Execute "INSERT INTO NomeTabela2(NomeDoCampo1DaTabela, NomeDoCampo2DaTabela, NomeDoCampo3DaTabela) VALUES('" & Me.NomeCampo1DoForm & "', '" & Me.NomeCampo2DoForm & "', '" & Me.NomeCampo3DoForm & "'")

Ok, Obrigado Criquio

Vou tentar fazer....Já te respondo

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Eu tentei a solução proposta e não tive o resultado esperado.

Tente algo assim, no evento "Ao clicar" de um botão:

CurrentDb.Execute "INSERT INTO NomeTabela1(NomeDoCampo1DaTabela, NomeDoCampo2DaTabela, NomeDoCampo3DaTabela) VALUES('" & Me.NomeCampo1DoForm & "', '" & Me.NomeCampo2DoForm & "', '" & Me.NomeCampo3DoForm & "'")

CurrentDb.Execute "INSERT INTO NomeTabela2(NomeDoCampo1DaTabela, NomeDoCampo2DaTabela, NomeDoCampo3DaTabela) VALUES('" & Me.NomeCampo1DoForm & "', '" & Me.NomeCampo2DoForm & "', '" & Me.NomeCampo3DoForm & "'")


Eu tenho uma Tabela: Consulta e Caixa.
Nas duas tem os mesmo campo que quero preencher, que Data, Historico, e Entrada.
usando a solução proposta ficou assim:
Tente algo assim, no evento "Ao clicar" de um botão:

CurrentDb.Execute "INSERT INTO Caixa(Data, Historico, Entrada) VALUES('" & Me.Data & "', '" & Me.Historico & "', '" & Me.Entrada & "'")

há algum erro de sintase?
As Aspas no final, fica mesmo antes do parenteses? Eu tentei colocando por fora )" mas deu no mesmo.
Número do Erro 2950, e para de executar o macro.

Estou precisando muito de ajuda, e agradeço desde já.

A última aspa é depois do parêntese para fechar a aspa que abriu o INSERT. Tambem deve observar o tipo de campo. Para campo texto, usamos aspas simples e duplas:

'" & Me.NomeDoCampo & "'

Para campo numérico, apenas aspas duplas:

" & Me.NomeDoCampo & "

Criquio, vlw a pronta resposta.


Vou tentar, essa nova solução, e mais uma duvida para o campo do tipo Data, mantenho as aspas?
De qualquer forma irei tentar com das duas forma.

Vlw.

Criquio, boa tarde.

Eu ainda estou tendo problemas, eu printei a tela do erro que estou tendo, veja se da para ter alguma ideia.

No aguardo,

Márcio.

Isso não é para ser usado em macro. É direto no VBA. Pode ser no evento "Ao clicar" de um botão ou "Após alterar" de um campo.

Esta dentro do evento ao clicar.

Quando eu clico no evento abre a janela de macro não a do VBA.

Coloquei dentro do VBA, quando um btn for pressionado.

veja imagem.

A resolução da imagem ficou muito baixa. Não consegui enxergar o código.

Estou enviando as novas imagens...
consegui inserir no VBA, e estou tomando erro na Data...

Esta na imagem NovoErro.

Obrigado pela paciência.

Para campo data, tente trocar as aspas simples por #.

Criquio, bom dia.

Eu tentei o # no lugar das ', e não deu. Então eu tentei uma outra coisa...
Tirei a data, e me retornou outro Erro, estou enviando as imagens...

Me explica uma coisa: O que é esse "Me." na formula?
Talvez não teria que colocar o formato do Access formulário![campos]?

Obrigado novamente pela paciência..

Márcio.

Seria mais interessante ver o banco porque pode ter outros detalhes envolvidos que estejam interferindo.

Boa tarde Criquio.

Cara Eu não quero abusar da sua boa vontade, mas como você pediu.

Segue anexo o Banco de Dados.

A operação vai ocorre no formulário consulta, e quero que seja registrado na tabela consulta e caixa como entrada,
registrando no campo Data, histórico e no valor de entrada.

Obrigado desde já, e desculpa a bagunça no banco.

Aguardando retorno,

Márcio.

Alguém tem alguma solução?

Estou precisando muito de ajuda.

Aguardando,

Márcio.