MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    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 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 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    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 13/2/2020, 03:16

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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: 7/11/2024, 17:31