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


    [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 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7527
    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 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
    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 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!
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1157
    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 13/2/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.

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 3/4/2020, 09:37