[Resolvidos]Marcar/Desmarcar todas Caixas de seleção no formulário

Convidad 4/12/2011, 14:06

Convidad: Convidado

Mensagem nº1

[Resolvidos]Marcar/Desmarcar todas Caixas de seleção no formulário

Mensagem Convidad 4/12/2011, 14:06

Olá!

Tenho um formulário de permissões do sistema, que além de outros controles, possui muitas caixas de seleção.
Há também dois botões: Permitir Tudo e Negar Tudo.

No evento Click() do botão Permitir ocorre:
Me.CxSel1 = True
Me.CxSel2 = True
... e assim por diante

e o mesmo para o botão Negar (alterando para False)

Muito pobre!

Então quero um código que marque/desmarque tudo, tipo For Each...Next

Obrigado pela atenção!

**Alexandre Neves** 4/12/2011, 14:20

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº2

Re: [Resolvidos]Marcar/Desmarcar todas Caixas de seleção no formulário

Mensagem Alexandre Neves 4/12/2011, 14:20

Boa tarde, norbs
Dim Ctl as control

for each ctl in me.controls
If Ctl.ControlType = acToggleButton and Left(ctl.name,5)="CxSel" Then
Ctl.value = 0 '0 para desmarcado, -1 para marcado
end if
next

Convidad 4/12/2011, 14:41

Convidad

Convidad: Convidado

Mensagem nº3

Re: [Resolvidos]Marcar/Desmarcar todas Caixas de seleção no formulário

Mensagem Convidad 4/12/2011, 14:41

Boa tarde, Alexandre!

Obrigado por postar.

Me faltou a lembrança do ControlType!

Substituí acToggleButton por acCheckBox

Ficou assim:

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType = acCheckBox Then
Ctl.Value = -1 '0 para desmarcado, -1 para marcado
Next
End If

Obrigado!