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

    grupo check box

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    grupo check box

    Mensagem  maguim em 11/10/2018, 21:39

    boa tarde meu amigos!

    tudo bem?

    Estudo com probleminha...

    como posso fazer um grupo de checkbox, tenho cerca de 20 checkbox e queria fazer uma validação se nesse grupo esta nulo mandar msg

    estou tentando algo assim:

    Código:
    dim cbox as control

    cbox = me.checkbo1 and me.checkbox2

    if cbox = null then
    msgbox "selecione o grupo"
    end if



    queria verificar o grupo

    se é isnull(grupo) then.....
    msgbox"favor selecione o grupo"


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David em 12/10/2018, 02:44

    Usando um grupo de opções, basta fazer assim:


    Código:
    If IsNull(Me.SeuGrupoOpcoes) Then
            MsgBox "Nenhum item selecionado"
    End If


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: grupo check box

    Mensagem  maguim Hoje à(s) 17:12

    marcelo

    boa tarde!

    Na vdd ja andei pesquisando os grupo de seleção. Eles não me atendem, pois ele somente conseguem selecionar um unico checkbox.
    E na vdd preciso montar um vba que consigo validar se eles estiverem nulos entendeu?

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David Hoje à(s) 17:17

    Então basta verificar cada um.
    If Selecao1 = True then
    ..faça isso...
    Else
    ... Faça aquilo...
    Endereço if

    If Selecao2 = True then
    ..faça isso...
    Else
    ... Faça aquilo...
    Endereço if

    If Selecao3 = True then
    ..faça isso...
    Else
    ... Faça aquilo...
    Endereço if

    E assim, por diante...


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David Hoje à(s) 17:26

    Obs.: A caixa de seleção do Access pode assumir três valores: True, False ou Nulo. Para ter o valor nulo, terá que estar habilitado a propriedade se não me engano "Estado triplo". Caso contrário, apenas os valores True e False estará disponível

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: grupo check box

    Mensagem  maguim Hoje à(s) 18:27

    @marcelo

    Legal, na vdd queria fazer uma unica validação entendeu?


    exemplo:


    Existe 3 txtbox e 20 checkbox

    se eu preencher os 3 e esquecer de qualquer um dos 20 checkbox mandoa msg "selecione o checkbox"

    Entendeu?

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David Hoje à(s) 18:37

    Entao a condição tem que considerar o preenchimento das três textbox? Caso sim, serial algo do tipo:
    If IsnNull(SeuTextBox1) And IsnNull(SeuTextBox3) And IsnNull(SeuTextBox3) Then

    If Selecao1 = False then
    MsgBox "Marque todas as seleções", vbExclamation, "Atenção"
    Exite Sub
    End if



    If Selecao2 = False then
    MsgBox "Marque todas as seleções", vbExclamation, "Atenção"
    Exite Sub
    End if


    If Selecao3 = False then
    MsgBox "Marque todas as seleções", vbExclamation, "Atenção"
    Exite Sub
    End if

    End If

    E assim para as 20 seleções que vc tem...

    Caso não precise verificar as textbox, basta retirar o If que verifica as textbox.

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: grupo check box

    Mensagem  maguim Hoje à(s) 20:31

    @marcelo

    mas nessa condição que vc pois eu terei que validar os 20 de uma vez para poder inserir certo ?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David Hoje à(s) 20:37

    Sim...
    Poderíamos fazer um loop dependendo dos nomes dos controles ou do tipo de controle, mas aí já complicaria um pouco, mas não tanto...
    O mais simples o que eu mostrei...
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David Hoje à(s) 20:38

    Vou montar um exemplo para vc ver com loop...


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 328
    Registrado : 15/05/2013

    Re: grupo check box

    Mensagem  maguim Hoje à(s) 20:48

    ta bom, na vdd eu nao queria que validasse os 20 entendeu?
    se tiver uma único checkbox true ja serveria entendeu?
    como se fosse um grupo mesmo...

    não estar em grupo pelo design


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2388
    Registrado : 21/04/2011

    Re: grupo check box

    Mensagem  Marcelo David Hoje à(s) 20:52

    Então basta usar apenas um If...
    If SuaCheckBox = False Then
    MsgBox "Marque antes de continuar..."
    Exit Sub
    End if


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: 15/10/2018, 20:52