[Resolvido]Inserir dados de uma tb para outra, condicionados a condições

joao batista 28/3/2012, 14:52

joao batista: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 17/11/2011

Mensagem nº1

Inserir dados de uma tb para outra, condicionados a condições

Mensagem joao batista 28/3/2012, 14:52

senhores bom dia.
estou com o seguinte problema.
tenho um tb chamada tbParcelas, onde é registrado as parcelas de vendas a prazo.
tenho outra tb chamada tbMovimentoContasCorrentes, onde eu registro o recebimento de minhas vendas.
gostaria que, quando eu quitasse uma parcela de venda a prazo na tbParcelas, automaticamente esta parcela fosse inserida na tbMovimentoContasCorrentes.
ou seja: Se o campo quitado da tbParcelas = verdadeiro, inserir campos na tbMovimentoContasCorrentes
aguardo retorno, e desde já sou grato.

Convidad 28/3/2012, 21:44

Convidad

Convidad: Convidado

Mensagem nº2

Re: [Resolvido]Inserir dados de uma tb para outra, condicionados a condições

Mensagem Convidad 28/3/2012, 21:44

Olá!

Considerando que você vai atualizar os dados através de um formulário, adapte este código para a sua situação:

(Observe que deve alterar o Nomes dos objetos para a sua realidade)
(Considerando o campo Fatura na tabela como o identificador exclusivo da parcela, e que seja um campo tipo Número)

Private Sub Form_AfterUpdate()
'checa se os campos necessários estão preenchidos:
If Not IsNull(Me.Fatura) And Not IsNull(Me.DataPagamento) And Not IsNull(Me.ValorPagamento) And Me.Quitado = True Then
'checa se os dados já foram lançados
If IsNull(DLookup("Fatura", "NomeTabela", "Fatura = Me.Fatura")) Then
'insere od dados na tabela
CurrentDb.Execute "INSERT INTO NomeTabela (Fatura, DataPagamento, ValorPagamento) VALUES ("" & Me.Fatura & "", "" & Me.DataPagamento & "", "" & Me.ValorPagamento & "")"
End If
End If
End Sub

Convidad 28/3/2012, 22:06

Convidad

Convidad: Convidado

Mensagem nº3

Re: [Resolvido]Inserir dados de uma tb para outra, condicionados a condições

Mensagem Convidad 28/3/2012, 22:06

Observação:

Uma dos conceitos básicos de um banco de dados relacional é não duplicar informações.
A ação que você está executando faz isto: está incluindo dados que já existem numa tabela em outra.
Para dar baixa nos pagamentos de parcelas, basta criar um formulário baseado numa consulta que busque na tabela original as parcelas não quitadas.
Para retornar os pagamentos feitos, basta criar uma consulta que busque os pagamentos quitados na tabela original. E esta consulta pode ser base de um formulário ou relatório.

Veja este exemplo:
http://maximoaccess.forumeiros.com/t5526-formulario-de-criterios

Neste outro exemplo, um recurso para calcular e lançar parcelas automaticamente (só pra ilustrar):
http://maximoaccess.forumeiros.com/t5441-vendas-com-geracao-de-parcelas-via-adodb