[Resolvido]grupo check box

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

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

Código:

If IsNull(Me.SeuGrupoOpcoes) Then
        MsgBox "Nenhum item selecionado"
End If

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

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

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

@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

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.

@marcelo

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

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

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

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

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

puts marcelo deu um nó na cabeça aqui hahaha


deixa ver se entendi, vc diz que apenas um unico if entre as 20 checkbox
se tiver um unico flegado ele nao apontará aos 19 restante ?

é isso?

Eu havia entendido errado sua mensagem anterior... O que vc quer é como já falei, tem que verificar cada uma e quando uma não estiver marcada, sair o código para com Exit Sub...
Como já postei em mensagens anteriores...

Amigão, para resolvermos isso, detalhe certinho o que pretende e poste seu aplicativo aqui, informando os objetos envolvidos que tentamos algo... Assim tá difícil...

Veja se é isso:
Abra o exemplo, no formulário que se apresentar, há 20 caixas de seleção e 3 botões (Desmarcar todas, Marcar todas e Verificar)

Ao pressionar o botão Marcar todas, todas as seleções serão marcadas e ao clicar em Verificar, será avisado que todas opções estão marcadas.
Ao pressionar o botão Desmarcar todas, todas as seleções serão desmarcadas e ao clicar em Verificar, será avisado que todas as opções devem ser marcadas.

@marcelo

obg desculpa demora, porem resolvi isso essa semana rs....

o seu exemplo ficou muito bom, tive ideia apartir do seu exemplo de fazer contagem de checkbox.

as ideias são particamente muito igual rs.

Código:

Dim t As Integer
Dim ctrl As Control
Dim ctrlmenos As Control

For Each ctrl In Me.Controls
    If TypeOf ctrl Is CheckBox Then
        If ctrl.Value = True Then
        t = t + 1
        End If
    End If
Next ctrl

MsgBox "Existem " & IIf(t = 1, "", "") & t & " Campos Preenchidos" & IIf(t = 1, "", "") & " neste formulário."

abraços e obg mais um vez

Ótimo que resolveu então, mesmo  já estando em outro ano.  estar.

Forte abraço!