Alguém pode me ajudar?
Tenho um sistema criado na versão 5.0 do VB (com acesso a base de dados via DAO) que emprega um banco de dados <Filmes.mdb>, com três tabelas: <Andamento>, <Cliente> e <Filmes>.
Na movimentação do filme (tabela Andamento), criei uma rotina, no evento <LostFocus> da textbox <txtCodFita> onde, quando o usuário entra com um número de filme, cujo campo <Devolução>, que é acessado via txtDataRetorno, estiver vazio, então o sistema informa que o filme está emprestado. Se o campo <Devolução> contiver uma data, então o sistema permite prosseguir no cadastro de nova movimentação do filme.
No caso de haver apenas um registro por filme, o sistema funciona corretamente. O problema surge quando, havendo um filme que já foi devolvido (e que está com o campo <Devolução> preenchido), é permitido cadastrar um novo movimento para esse filme, sem data de retorno preenchida. Então, para um filme 'x', existe um registro de filme devolvido, e outro a devolver. Se tento cadastrar um terceiro movimento, o sistema não enxerga que o último movimento foi de saída (no caso, sem data de devolução ainda), aceitando um novo cadastro...
Como posso referenciar para que o sistema sempre aponte para a última movimentação (um mesmo filme, tendo sido emprestado três vezes: em 12/12/2006 e devolvido em 13/12/2006; emprestado em 15/12/2006 e devolvido em 20/12/2006; finalmente, emprestado em 25/12/2006 e ainda não devolvido, não aceite uma nova movimentação, já que não foi devolvido ainda...)?
Eis o código associado ao evento <LostFocus> da textbox txtCodFita:
'Nota: a função <CancelaDigitação> preenche os campos com os dados do filme, desabilitando o acesso às textbox.
