MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

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

    Mensagem  japjusto em 3/4/2018, 19:00

    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!


    Última edição por japjusto em 4/4/2018, 12:47, editado 1 vez(es) (Razão : Me explicar melhor!)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em 4/4/2018, 13:32

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 4/4/2018, 16:03

    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

    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

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

    Mensagem  japjusto em 6/4/2018, 12:38

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 6/4/2018, 20:08

    Andre

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

    com alguns dados ficitícios.


    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

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

    Mensagem  japjusto em 9/4/2018, 15:09

    Bom dia Noobezinho,

    Estou disponibilizando link com parte de meu projeto conforme solicitou.


    [Você precisa estar registrado e conectado para ver este link.]

    Obrigado.


    Última edição por japjusto em 11/4/2018, 18:38, editado 1 vez(es)

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 9/4/2018, 17:31

    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. Wink

    [ ]'s

    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

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

    Mensagem  japjusto em 9/4/2018, 18:32

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 9/4/2018, 18:51

    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.

    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

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

    Mensagem  japjusto em 9/4/2018, 19:29

    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!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em 9/4/2018, 19:56


    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.


    [Você precisa estar registrado e conectado para ver este link.]

    [ ]'s

    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

    Imensamente grato!

    Mensagem  japjusto em 10/4/2018, 16:15

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

    japjusto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 12/01/2016

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

    Mensagem  japjusto em 10/4/2018, 16:20

    Valeu! Tópico Encerrado.

      Data/hora atual: 22/9/2018, 12:42