leor

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

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?

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.