[Resolvido]Impedir um preenchimento

Olá meus amigos, estou com o seguinte problema: tenho um formulário com um sub-formulário, o formulário vai me gerando 'número de registro' por aluno que vou adicionando, no sub-formulário este número é repetido, visto que no sub eu adicionarei os livros que o aluno pegou(ará). Exemplo: aluno 123 pegou o livro x, neste mesmo sub eu tenho um chekbox de devolvido, seu eu clico nela quer dizer que o aluno devolveu o livro. Agora suponhamos que o Joãozinho, 123, me devolva o livro e eu não dou baixa, esqueço, no outro dia vem a Mariazinha pegar o livro, eu empresto pra ela, mas como ainda consta com o Joãozinho, eu não sei mais se está com ele ou ela... casos assim ocorreu de o livro estar com várias pessoas. Tem como me ajudarem? Eu pensei em, sempre que eu clicar no chekbox ficar ok, mas se eu esqueço e vou em outro aluno e digito o livro, queria um aviso me avisando que o aluno número x está com o livro, aí vou lembrar de dar baixa...

Att,

Vc pode marcar esse livro como Emprestado e para quem esta emprestado.... Quando marcar a checkbox devolvendo o livro, vc atualiza esses dois campos, para nao emprestao...

Ex: Na tabela onde cadastra o Livro, coloque dois novos Campo (Emprestado do tipo Sim/nao e Aluno do tipo texto)

Quando selecionar um livro para emprestimo, que salvar esse emprestimo, manda rodar um
Currentdb.Execute "UPDATE tbLivro set Emprestado = -1, Aluno = '" & Me.NomeAluno & "' WHERE IdLivro = " & Me.IdLivro & ""
Assim vc ja sabe que esse livro esta emprestado, e para o Aluno xxxxxx.

Agora no ato da devolução, quando marcar a Checkbox Devolvido, rode o mesmo Comando, mudando pouca coisa:
Currentdb.Execute "UPDATE tbLivro set Emprestado = 0, Aluno = "" WHERE IdLivro = " & Me.IdLivro & ""


No evento, apos atualizar da Combo onde vc seleciona o Livro para emprestimo, deve colocar uma Verificação, que irá no Campo Emprestado, e se o valor for igual a -1 ele emite um alerta...


Obs: Estou partindo da idéia de que cada livro tem um Código/cadastro individual...

A verificação, vc faz da seguinte forma:

Na combo onde vc seleciona o Livro para emprestar para o Aluno, na origem da linha, alem de trazer o Nome do Livro, Codigo do Livro, inclua os dois campos novos criados a cima...

Entao, no evento apos atualizar dessa Combo coloque:

If Me.CboLivro.Column(2) = -1 then

Msgbox "O Livro selecionado ja esta emprestado para o Aluno: " & Me.CboLivro.Column(3),vbinformation

me.undo

End If


Estou supondo que: A coluna da comboLivro que contem o Nome do Aluno que pegou emprestado o livro é a Numero 3 e o Emprestado é o Numero 2.

Amigo, veja como está meu formulário: https://imgur.com/a/ECky1


Aí em 'código do livro' é aquilo que você me ensinou, então só digitarei 1293 por exemplo e já terei o nome do livro... ok, agora se ele devolve e eu não marco o chekbox, quero que ele me avise se eu for em outro aluno e digitar o 1293, me dizendo que já está com alguém

Sim, se encaixa perfeitamente na minhas instruções! Qual foi a Duvida?

Não é possível fazer um vídeo? Se preciso eu posto o bd

Poste o Aplicativo amigo, assim q possivel eu monto...

Se possível faça um vídeo ou algo ensinando, pois se você fizer pra mim não aprenderei.

Grato,

https://drive.google.com/open?id=0BzKEq1Oj9XgqQ0N3SmRYMmV4bnc

Amigo, feito conforme orientaçoes anteriores...

Produzi um video explicando as mudanças... Logo mais posto o Caminho do Link... Internet esta Otima...

O video estará aqui: https://youtu.be/VE5GOGb4PB0

Muito obrigado meu amigo! Muito obrigado! Deus lhe pague pela ajuda! Gostei muito, você explicou muito bem.
Meu amigo, continue postando vídeos no seu canal, vai ajudar muita gente.

Mestre Muito bom o seu exemplo de Empréstimos de Livros e o vídeo para explicar; está sendo muito útil. Só posso dizer excelente continue assim.

por outra Gostaria de ver o arquivo do Controle de estoque usando RecordSet muito Bom também. Parabéns mais uma Vez