MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    augustopimenta
    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 19/03/2012

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  augustopimenta em 24/5/2020, 23:24

    Olá pessoal.. Boa noite
    Tenho um fomulário com 3 listBox(todas múltiplas seleções simples) que uso para filtrar um relatório. Como faço para que ao clicar num botão o access verifique se alguma seleção foi feita em qualquer umas das 3 listbox e exiba uma mensagem tipo: vc não selecionou a caixa tal?.. Nenhuma das 3 listbox pode estar vazia sem ter pelo menos uma seleção.
    Desde já agradeço ...
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty Re: [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  zcarloslopes em 25/5/2020, 13:46

    Boa tarde augustopimenta,

    Teste algo parecido com isto:
    Código:
    If Me.Lista1.ItemsSelected.Count = 0 Or Me.Lista2.ItemsSelected.Count = 0 Or Me.Lista3.ItemsSelected.Count = 0 Then
        MsgBox "Faltou Selecionar pelo menos uma ListBox!", vbInformation, "Selecção Incompleta!"

        Exit Sub
    End If
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty Re: [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  DamascenoJr. em 25/5/2020, 16:58

    Acho que o operador correto é o And


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 19/03/2012

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty Re: [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  augustopimenta em 25/5/2020, 17:24

    Obrigado Ze carlos. Funcionou perfeitamente.

    Sem querer abusar e já abusando.
    Como saber se todos os itens de uma determinada listbox estão selecionados ?
    Esqueci de colocar essa dúvida na primeira mensagem.. rsrs
    Agradeço mais uma vez ..
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 19/03/2012

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty Re: [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  augustopimenta em 25/5/2020, 23:27

    Olá pessoal..
    Resolvi da seguinte maneira:

    If me.lista1.ItemsSelected.Count > 3 Then " Se a lista tem 4 itens
    If me.lista2.ItemsSelected.Count > 4 Then " Se a lista tem 5 itens
    If me.lista3.ItemsSelected.Count > 5 Then " Se a lista tem 6 itens
    e assim sucessivamente ...

    Parece funcionar muito bem ...

    Obrigado ao Zé Carlos e ao Damasceno pela ajuda e pelo tempo despendido ...
    Respondendo ao Damasceno : No meu caso o operador OR serviu, pois tem que ser uma caixa ou outra. Se eu colocar o operador AND só funcionará quando todas estiverem vazias.

    Sucesso e grande abraço a todos.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty Re: [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  DamascenoJr. em 26/5/2020, 02:27

    Como saber se todos os itens de uma determinada listbox estão selecionados ?

    Já tentou
    Código:
    if me.lista1.ItemsSelected.Count = me.lista1.listcount then


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 19/03/2012

    [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas Empty Re: [Resolvido]Como verificar se 3 listBox (múltiplas seleções simples) estão selecionadas

    Mensagem  augustopimenta em 26/5/2020, 14:05

    Olá Damasceno..
    Não tinha tentado dessa forma..
    Mas acabei de tentar e funcionou perfeitamente.. rsrs. Aliás parece bem melhor assim desse jeito..
    Obrigado mais uma vez Damasceno ..

    Grande abraço ..

      Data/hora atual: 9/8/2020, 18:05