[Resolvido]salvar em tabelas diferentes

Como faço para salvar dados de um formulário em 2 tabelas diferentes

Olá

Não sei se entendi...
Não seria o caso de usar o mesmo procedimento que usa para lançar em uma tabela, repetindo-o adaptado à outra tabela?

A minha dica é:
Salve os dados na tabela1;
Em seguida Abra um recordSet com os dados salvos e os salve na tabela2.

Tipo Assim:
Botao salvar>

Roda o Comando pra salvar o Registro;
Abre o recordSet filtrando pelo Numero do Registro;
Abre outro recordSet da tabela que receberá os dados..
Isere os dados na nova tabela.

encera as conexoes...
...

algum exemplo?

Veja...

Obrigado Fabio é bem isso que eu precisava.

Não consigo abir o formulário para ver o código...

Tentei converter o arquivo para a versão 2007 mas da erro...

Tem como postar na versão 2007?

Obrigado.

Alguem converte pro amigo aee por favor.

Bom dia Fabio,

Me foi de grande utilidade o modelo para salvar os dados em uma segunda tabela.

Acontece que no exemplo que mostra o nome tem que ser igual nas duas tabelas.

rs("Nome") = Me.Nome 'No Campo Nome da tabela2 coloca os dados que tem no campo me.nome do Formulario... e assim segue
rs("Rg") = Me.Rg
rs("Endereco") = Me.Endereco


Tenho como ter duas tabelas e salvar dados da primeira em uma unica como abaixo:

Tentei desta forma mas não foi.

Obrigada.

Private Sub btn_salvar_Click()
If MsgBox("Deseja Salvar os Dados?", vbYesNo + vbInformation, "Atenção!!!") = vbYes Then
Dim DB As Database
Dim rs As DAO.Recordset

Set DB = CurrentDb()
'Abre o recordSet da TB_RECEITA_VENDAS para add os dados.
Set rs = DB.OpenRecordset("TB_RECEITA_VENDAS")
rs.AddNew 'Add novo registro
'No Campo Nome da tabela2 coloca os dados que tem no campo me.nome
rs("codContrato") = Me. Codigo do Contrato do Formulario... e assim segue

rs("codContrato") = Me.CodigodoContrato
rs("pagamento") = Me.Pagamento
rs("numerodeparcelas") = Me.NúmerodeParcelas

rs(“vlrparc01”) = Me.Valor
rs("forma01") = Me.Formadepagamento
rs("Vecto01") = Me.DataPagamento

rs(“vlrparc02”) = Me.Valor
rs("forma02") = Me.Formadepagamento
rs("Vecto02") = Me.DataPagamento

rs(“vlrparc03”) = Me.Valor
rs("forma03") = Me.Formadepagamento
rs("Vecto03") = Me.DataPagamento
rs("datadocontrato") = Me.datadocontrato

rs.Update
'Encerra as conexoes e limpa da memoria
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing
End If
End Sub

Olá, não precisa ter os nomes iguais... As configuraçoes e você qe informa nessa linha por exemplo:
rs("Endereco") = Me.Endereco 'Aqui estou dizendo que é pra salvar no Campo da tabela "Endereco" os dados que estão no Campo do Formulario de nome Me.Endereco.

Então basta voce configurar de acordo...
Posso por exemplo Mandar salvar no Campo da tabela de nome EnderecoDoIndividuo os dados que estão no campo do formulario Me.Endereco
rs("EnderecoDoIndividuo ") = Me.Endereco

rs("EnderecoDoIndividuo ") <== Campo da Tabela

Me.Endereco <== Campo do Formulário, onde está o valor...

Re: [Resolvido]salvar em tabelas diferentes


Bom dia Fábio,

realizei a programação para salvar em duas tabelas ao mesmo tempo.

Como faço para que ao excluir das duas tabelas automaticamente?

Obrigada.

Dina