(Resolvido) Duplicar Registros Para Outra Tabela

[leor]

Galera estou meio confuso pra finalizar o sistema da biblioteca que estou fazendo.

Tenho duas tabelas: Empréstimo e Devolução

Gostaria de passar os dados da tabela Empréstimo para a tabela Devolução toda vez que for inserir um novo registro em Empréstimo.

E na tabela Devolução quando o funcionário digitar a data da entrega do livro que mande essa data para a tabela Empréstimo, pois os registros da tabela Empréstimo nunca poderão ser apagados, pois serão arquivados, mas o dado da tabela Devolução deverá ser apagado quando o usuário devolver o livro.

Se alguém puder me ajudar eu agradeço.

[MrMALJ]

Tenta algo assim:

Dim meurst As Recordset

With meurst

.FindFirst "[codEmprestimo] = 'codDevolucao'"

.Edit

![dataDevolve] = me.dataDevolucao

.Update

End With

Bom é só uma ideia, você terá que adaptar a sua necessidade, espero que funcione, nos dê o retorno!

[leor]

Tenta algo assim:

Dim meurst As Recordset

With meurst

.FindFirst "[codEmprestimo] = 'codDevolucao'"

.Edit

![dataDevolve] = me.dataDevolucao

.Update

End With

Bom é só uma ideia, você terá que adaptar a sua necessidade, espero que funcione, nos dê o retorno!

Boa tarde MrMALJ, obrigado por ajudar,

Aonde eu coloco esse código?

E aonde que está o código que indica pra onde vai os dados para a tabela Devolução?

Editado Março 28, 2007 por leor

[MrMALJ]

-A linha abaixo localiza o emprestimo referente ao codigoda devolução

.FindFirst "[codEmprestimo] = 'codDevolucao'"

-Abre o registro para edição

.Edit

-o campo dataDevolve fica igual ao informado na devolução

![dataDevolve] = me.dataDevolucao

-atualiza o registro da devolução

.Update

bom agora adeque ao seu sistema, deverá ser colocado onde você requer que seja feita a transferência de datas.

[leor]

-A linha abaixo localiza o emprestimo referente ao codigoda devolução

.FindFirst "[codEmprestimo] = 'codDevolucao'"

-Abre o registro para edição

.Edit

-o campo dataDevolve fica igual ao informado na devolução

![dataDevolve] = me.dataDevolucao

-atualiza o registro da devolução

.Update

bom agora adeque ao seu sistema, deverá ser colocado onde você requer que seja feita a transferência de datas.

Obrigado MrMALJ, pesquisando consegui achar a solução:

Dim Db As DAO.Database, Rs As DAO.Recordset

Set Db = CurrentDb()

Set Rs = Db.OpenRecordset("Tabela_Devolucao")

Rs.AddNew

Rs("CodigoUsuario") = Me.CodigoUsuario

' ...e assim por diante, até preencher todos os campos na tbl.

Rs.Update

Db.Close

Set Db = Nothing

Set Rs = Nothing

[MrMALJ]

Opa valeu fera precisando tentaremos ajudar no que for possivel, e obrigado por ter retornado a sua solução!