[Resolvido]Como enviar dados de uma tabela para outra

Bom dia

Tenho duas tabelas iguais:

Tabela "Lançamentos". Com os campos "ID" "DataLanc" "TipoMovimento" "ValorMov" ....
Tabela "LançamentosDatados" Com os mesmos campos da Tabela "Lançamentos".

O Campo "ID" é de numeração automatica.

Tenho um Formulario de introdução de dados com a seguinte condição.
Se a DataLanc for igual ou inferior à Data do Dia o registo é gravado na Tabela "Lançamentos".

Caso a DataLanc for posterior à data do dia o registo é gravado na Tabela "LançamentosDatados".

Como passar os registos gravados na Tabela "LançamentosDatados" para a Tabela "Lançamentos" quando as datas da Tabela "LançamentosDatados" forem iguais à Data do Dia.

Olá, Assis. Veja se esse código postado pelo membro José Silva lhe ajuda: http://maximoaccess.forumeiros.com/t1725-codigo-de-formulario-para-inserir-dados-em-duas-ou-mais-tabelas-ao-mesmo-tempo

Olá Criquio

O meu problema não é gravar os dados em duas ou mais tabelas.
Isso eu já consigo fazer.

Eu queria era depois de já estarem gravados na Tabela "LançamentosDatados", passa-los para a outra "TabelaLançamentos"
quando as datas da Tabela "LançamentosDatados" forem iguais à Data do Dia.

Tente assim

Dim db As DAO.Database
Dim tb As DAO.Recordset
Set db = CurrentDb()
Set tb = db.OpenRecordset("LançamentosDatados", dbOpenDynaset)
If Me.DataLanc.Value = Date Then
tb.AddNew
tb![DataLanc] = Me.DataLanc
tb![TipoMovimento] = Me.TipoMovimento
tb![ValorMov] = Me.ValorMov
tb.Update
MsgBox "Dados enviados com sucesso!", vbInformation
tb.Close
Else
DoCmd.CancelEvent
MsgBox "Dados não enviados!", vbCritical
End If

JUNGLI

O código que enviou é para colocar em qual acontecimento ?

Quando abrir o Formulário de introdução de dados ?

Não tem nenhuma referência à Tabela "Lançamentos" ?

Obrigada

tente colocar o código ao final do cadastro

com o botão de comando por exemplo

Dim db, db1 As DAO.Database
Dim tb, tb1 As DAO.Recordset
Set db = CurrentDb()
Set tb = db.OpenRecordset("LançamentosDatados", dbOpenDynaset)
Set tb1 = db.OpenRecordset("Lançamentos", dbOpenDynaset)
If Me.DataLanc.Value > Date Then
tb.AddNew
tb![DataLanc] = Me.DataLanc
tb![TipoMovimento] = Me.TipoMovimento
tb![ValorMov] = Me.ValorMov
tb.Update
MsgBox "Dados enviados com sucesso!", vbInformation
tb.Close
ElseIf Me.DataLanc.Value = Date Then
tb1.AddNew
tb1![DataLanc] = Me.DataLanc
tb1![TipoMovimento] = Me.TipoMovimento
tb1![ValorMov] = Me.ValorMov
tb1.Update
MsgBox "Dados enviados com sucesso!", vbInformation
tb1.Close
ElseIf Me.DataLanc.Value < Date Then
MsgBox "Data inferior à data atual!", vbInformation
End If

Uma questão.

O formulario é desvinculado ou vinculado à alguma tabela ?

Boa tarde JPaulo

Desvinculado

Boa noite JPaulo

Funfa perfeito.

Só uma pergunta mais para dar o tópico por terminado.

Com esta linha de comando:
If rst.Fields("DataLanc").Value = Date Then

A função só movia os registos com a Data igual, então eu alterei para:
If rst.Fields("DataLanc").Value <= Date Then

Para mover todos os registos da Tabela "LançamentosDatados"

Imagine ter registos para dia 16, 17, e 20, do mês corrente, e o Form de registar dados só fosse aberto no dia 20, os registos do dia 16 e dia 17 não eram movidos.
Obrigado

Afirmativo;

O código está aí e os criterios ficam ao seu criterio.

Abraço

JPaulo

Abraço e

Obrigado

Tópico terminado

Acresentando o [Resolvido]