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

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

    avatar
    Convidad
    Convidado

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

    Mensagem  Convidad em Dom 04 Dez 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7644
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em Dom 04 Dez 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
    avatar
    Convidad
    Convidado

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

    Mensagem  Convidad em Dom 04 Dez 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!
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1254
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em Qui 13 Fev 2020, 03:16

    ao abrir o formulário como faço para ela ficar desmarcada?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Seg 06 Jul 2020, 06:56