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]Se não estiver na caixa de listagem retornar mensagem de aviso

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    Registrado : 11/12/2017

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Ismael Silva em 10/5/2019, 19:10

    Boa tarde,

    Tenho uma caixa de combinação, que de acordo com o valor que eu escolher, filtra a caixa de listagem, e o que eu quero saber, é se tem como colocar algum código para que se o critério que eu escolher na minha caixa de combinação não estiver na minha caixa de listagem, que retorne uma mensagem dizendo que não consta nenhum valor na listagem, de acordo com o critério que eu escolhi.


    Obrigado.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3962
    Registrado : 06/11/2009

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Assis em 10/5/2019, 19:16

    Boa Tarde

    No acontecimento do formulário "Ao ocorrer erro"


    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Response = acDataErrContinue 'inibe msg padr?o do access.
    MsgBox "Selecionar dados da Caixa ! ", vbQuestion, "Aviso"
    Exit Sub

    Response = acDataErrDisplay
    Response = acDataErrContinue
    Exit Sub
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1539
    Registrado : 17/03/2011

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Cláudio Machado em 10/5/2019, 19:17

    Boa tarde.

    Coloque uma caixa de texto abaaixo da sua lista com o nome: txt_conta

    Insira este código em seu form:

    Código:

    Private Sub Form_Current()
    Me.txt_Conta = Nz(me.SuaLista.ListCount,0)
    End Sub

    Na sua combo coloque o seguinte código:

    Código:

    If me.txt_conta = 0 Then
       Msgbox" Não há Registros com o Critério escolhido.", VbInformationa, "Informando"
    else
    End If

    No aguardo...


    Última edição por Cláudio Machado em 10/5/2019, 19:22, editado 1 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1539
    Registrado : 17/03/2011

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Cláudio Machado em 10/5/2019, 19:18

    Postamos juntos Assis.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    Registrado : 11/12/2017

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Ismael Silva em 10/5/2019, 19:39

    Claudio,

    Em qual evento coloco?

    Coloquei no antes de atualizar, até apareceu a mensagem, inclusive para os critérios que tem na caixa de listagem.

    If me.txt_conta = 0 Then
      Msgbox" Não há Registros com o Critério escolhido.", VbInformationa, "Informando"
    else
    End If
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1539
    Registrado : 17/03/2011

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Cláudio Machado em 10/5/2019, 20:11

    Coloque no evento após atualizar da sua combo

    Corrija o código,digitei errado, é esse:

    Código:

    If me.txt_conta = 0 Then
      Msgbox" Não há Registros com o Critério escolhido.", VbInformation, "Informando"
    else
    End If


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 494
    Registrado : 11/12/2017

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Ismael Silva em 11/5/2019, 01:01

    Agora sim, muito obrigado Cláudio/Assis.

    Resolvido!
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1539
    Registrado : 17/03/2011

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Cláudio Machado em 13/5/2019, 17:07

    Boa tarde.
    Obrigado pelo retorno, o fórum agradece.
    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado

    [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso Empty Re: [Resolvido]Se não estiver na caixa de listagem retornar mensagem de aviso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 11:18