Salvar alguns campos do formulário em outra tabela

Boa tarde, uso um formulário para preencher os dados de clientes e suas compras, tentei criar um botão no formulário para copiar as informações das comprar pra uma tabela separada, mas não consegui.
Pesquisei no fórum, mas os exemplos são bem mais avançados do que eu preciso por enquanto e isso esta dificultando. Gostaria de uma explicação simples depois acho que consigo ir me virando.

TAB1 nome; cpf; produto; (formulario baseado nesta tabela)
FORM nome; cpf; produto; (com botão pra fazer update dessas info para TAB2

TAB2 nome; produto (tabela que recebe os dados do update)

Só pra eu entender o comando UPDATE

Muito obrigado.

Olá, seja bom vindo ao nosso fórum...

De uma forma simples e tranquila.

No botão onde você deseja executar a operação, evento ao clicar. Cole e adapte esse código com os teus campos

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset,
If MsgBox("Confirma a venda dos produtos?", vbYesNo + vbQuestion, "aviso") = vbYes Then

Set db1 = CurrentDb



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

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
' campos que estão na tabela = campos do fomulario
![cpf] = Me.cpf
![Cliente] = Me.Cliente


'campos que estão no subformulário, caso voce tenha subformulário é só mudar os nomes dos campos.
![Idevento] = Forms![cadastrar eventos]![subevento Subformulário]!Idevento
![DataEvento] = Forms![cadastrar eventos]![subevento Subformulário]!DataEvento
![HoraInicio] = Forms![cadastrar eventos]![subevento Subformulário]!HoraInicio
![LocalEvento] = Forms![cadastrar eventos]![subevento Subformulário]!LocalEvento
![Observacao] = Forms![cadastrar eventos]![subevento Subformulário]!Observacao


.Update

End With

DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec

MsgBox "Venda confirmada....", vbOKOnly + vbInformation, "Aviso"
End If
End Sub

Obrigado Silvio,

Estou tentando adaptar ao bd mas nao esta dando certo, apesar de vc tr dito que é simples eu não achei tanto. Fiz um bd igual o exemplo que escrevi, bem simples mesmo, o formulário não tem subform e cada tabela só tem dois campos.

As msg pra usuário são muito legais, mas ainda não preciso usa-las, quero entender o conceito primeiro, pode simplificar um pouco mais o codigo? Só pra salvar as info de uma tabela em outra.

Obrigado.

Olá, bom dia....


Poste teu banco aqui, para eu dar uma olhada nele.

Luciano,

Fiz um exemplo para você estudar. Os códigos estão comentados para você estudá-los e aplicá-los conforme as tuas necessidades.

Abraços e bons estudos.

PS. Lembrando que ele é apenas um exemplo, de como pode ser feito.

Ola Silvio e Luciano

Desculpe a minha intromissão, mas vou fazer a mesma coisa que o silvio fez só que um pouquinho mais simples.

para inserir os dados de Um formulario em uma tabela com um botao.

vc Adapta o Codigo a Seguir no Evento ao Clicar.

'Declara as variaveis

dim bc as Database

'Nessa Parte vc pode declarar com qualquer nome, geralmente eu uso o proprio nome da tabela que quero inserir as informaçãos, ou abrevio ela, tanto faz.

dim Tab2 as RecordSet

'Inicializa os Valores das Variaveis

set bc = CurrentDB()
set Tab2 = bc.OpenRecordSet("NomeDaTabelaQueOsDadosVaoSerInseridos")

'Cria Um novo Registro
Tab2.addNew
'No Novo Registro Insere Os Dados que vc Deseja

Tab2!NomeDoCampo = me.NomeDoCampo
Tab2!NomeDoCampo2 = me.NomeDoCampo2


'Atualiza Tabela
Tab2.Update

Exemplo:
A Partir da Parte de Criar um Novo Registro ficaria assim(No Seu Caso):

'Cria Um novo Registro
Tab2.addNew

'No Novo Registro Insere Os Dados que vc Deseja

Tab2!nome= me.nome
Tab2!produto = me.produto

'Atualiza Tabela
Tab2.Update

'Tira Da Memoria as Variaveis bc e Tab2

set bc = nothing
set Tab2 = nothing

Ok, obrigado Silvio e Ronaldo, vou estudar o que vcs postaram.

Tardes.....


Ronaldo, toda ajuda e aprendizado são e sempre serão bem vindas. Esse é o objetivo desse fórum: compartilhar conhecimentos !

Abraços.

Silvio

Opa, consegui resolver parte do problema.

O botão pra fazer update de informações funcionou e também as mensagens de interação com o usuário. Mas percebi que vou precisar de um subformulário pra guardar os vários produtos de um cliente e o update das informações do subform não consegui fazer funcionar.
Segue um exemplo do bd que estou imaginando feito no access 2010.

Obrigado.

Boa tarde Luciano.

Fico contente que esta indo bem por ai e esta a funcionar.

Mas.... a maioria dos nossos colegas aqui do fórum, possuem o AC2007/2003/2000.

Se possível lhe for, sempre salve em uma dessa versões, pois eu mesmo tenho somente o AC2007 comigo.

Grato.

Silvio

Ok! Arquivo alterado no post

Boa tarde!!

Preciso fazer um cadastro, onde lanço as informações no formulario do vba e as informações devem ser salvas em determinada tabela do access.

Alguem pode me ajudar???

Grato

Entao Ivany, os codigos expostos neste topico tratam exatamente sobre isso. O que pode mudar sao as particularidades de cada formulario (salvar mesmo dados em duas tabelas ou parte de dados em uma e parte em outra ou formulario em uma e suformulario em outra).

Explique melhor sua situacao e poste seu bd (observando as orientacoes do Silvio na mensagem 10)