[Resolvido]Concluir registro em formulário, baseado em determinada situação entre 2 campos.

Boa tarde!
Novamente recorro ao conhecimento dos nobres companheiros em outra situação.
No meu BD onde faço o controle de empréstimos de livros, gostaria de que ao inserir novo registro no Form, respectivamente nos campos: "CodLivro", "MatrSent", "DataEnt", e "Controle", campo este com uma lista de opções (A enviar, Enviado, Devolvido e Não devolvido), este bloqueasse a entrada com retorno da mensagem de informação: “Matrícula bloqueada por exemplar não devolvido”,  quando fosse inserido “Enviado”, desde que conste “Não Devolvido” no histórico de registros anteriores, neste mesmo campo e relacionado a Matrícula.
Desde já, agradeço!

Olá, terá que fazer uma consulta tendo como critério essa Matrícula. Consultará ela na tabela com outro critério, que no caso será o de nao preenchimento do campo devolução. Pra buscar somente o que nao foi devolvido para essa matricula.

Veja aqui um exemplo que fiz muito próximo do que precisa.

youtube.com/watch?v=VE5GOGb4PB0

Olá gente boa!

Dando um pitaco

André

Pelo que entendi, tem uma tabela de histórico de livros.

Existe duas maneiras de se fazer o que pretende:

1ª - Utilizar o Dcount()

If Dcount("*","NomeTabelaLog",[MatrSent] = " & Me.MatrSent & "AND [Controle] = 'Não Devolvido' ") > 0 then

msgbox "Matrícula bloqueada por exemplar não devolvido"

End If


*Acredito que MatrSent seja a matricula do aluno.

Esse é um verificador simples que se na contagem retornar um número acima de zero ( 0 ) , ele grita"

2ª - Utilizar o Dlookup() em conjunto com o Dcount()

dim nomelivro
If Dcount("*","NomeTabelaLog",[MatrSent] = " & Me.MatrSent & "AND [Controle] = 'Não Devolvido' ") > 0 then
nomelivro = Dlookup ("[Nomelivro]"NomeTabelaLog",[[MatrSent] = " & Me.MatrSent & "AND [Controle] = 'Não Devolvido' ")
msgbox "Matrícula bloqueada por exemplar não devolvido" & vbcrlf & "Exemplar: " & nomelivro

End If

[ ]'s

Bom dia, caros amigos!

Desculpem a demora. Tive uns transtornos aqui.
Quanto a colocação do Fabio, a consulta já tenho, abrindo a num sub-form no mesmo FormEmprestimos, onde fazemos o controle manualmente.
Acho que a colocação do Noobezinho está mais próximo do que estou querendo, portanto não sei como implementar tal expressão. Como já disse, sou totalmente básico em meus conhecimentos de Access, principalmente VBA. Esclarecendo meu projeto: Trata-se uma biblioteca em um Estabelecimento Penal, portanto, MatrSent = Matrícula Sentenciado e os registros de empréstimos realmente vão para uma tabela, denominada TbEmpr. O BD consta de 21.810 registros de livros, mais os registros de empréstimos, em torno de 700 por mês.

Obrigado.

Andre

Disponibilize o anexo parte do aplicativo envolvido na questão, como Tabela, consulta se houver e formulário

com alguns dados ficitícios.

Bom dia Noobezinho,

Estou disponibilizando link com parte de meu projeto conforme solicitou.


https://1drv.ms/u/s!AuYa7YTodboClcIM4E3EIyj7cx9JCy

Obrigado.

Andre


Coloque o código abaixo na propriedade Antes de atualizar da combo Matrícula.

Private Sub Matrícula_BeforeUpdate(Cancel As Integer)
If DCount("*", "Livros/Envio", "[Controle] = 'NÃO DEVOLVIDO' AND [Matrícula] = '" & Me.Matrícula & "'") <> 0 Then
 
  MsgBox "Existe livro não devolvido por essa pessoal", vbCritical, " Livro não devolvido"
  DoCmd.CancelEvent
End If
End Sub

Coloque essa caixa de texto antes do código do livro, porque se caso tiver livro sem entregar já avisa.

[ ]'s

Acho que fiz como orientou, mas não retorna nenhuma mensagem!

Bem, amigo

O código é esse e está funcionando perfeitamente aqui.

Veja que é na combo Matrícula, no evento após atualizar dela, que deve colocar o  

Quando entrar com uma matricula que ainda tenha livro não devolvido tem que aparecer a msg.

código que enviei.

Desculpe amigo Noobezinho,

Falha nossa! Não estava dando certo porque a propriedade requerido, na tabela estava definido como "SIM". Mudei para "NÃO" e funcionou, mas ainda não querendo aproveitar de sua bondade, dá pra impor uma condição para continuar como sim? Tenho uns auxiliares que fazem os lançamentos de dados, as vezes meio desatentos e quando lançam o campo CodLivro com ausência do CodSent ou vice-versa, isso provoca um transtorno imenso, quando passa despercebido.

Valeu!

Andre

Dá sim, mas a dúvida desse tópico já está resolvida.

Não esqueça de colocar o resolvido no título dele.

Só vou deixar o link para o que precisa.


Aqui

[ ]'s

Valeu! Muito obrigado. Nesse fórum só tem feras.
Grande abraço!

Valeu! Tópico Encerrado.