MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Marcar todos checkbox de um sub formulário

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    Marcar todos checkbox de um sub formulário

    Mensagem  =>Nois em Qua 30 Jan 2013, 17:23

    Galera, boa tarde

    gostaria de uma ajuda neste dilema que estou passando

    tenho um formulário principal que se chama:

    rh_lista_presenca_responder

    e nele esta contido um sub formulário

    rh_lista_presenca_responder_sub

    no sub formulário há várias check box q o usuário deve marcar... uma forma rápida ao invés de ficar clicando em um por um
    seria um botão que marca tudo de uma vez.

    encontrei este codigo abaixo que funciona legal, só que preciso adaptá-lo no meu projeto e não estou conseguindo declarar este subform




    Private Sub btMarcar_Click()

    Dim ctl As Control

    For Each ctl In Me.Controls
    If TypeOf ctl Is CheckBox Then
    ctl = True
    ' ctl = Not ctl 'use esta para inverter o que estiver atualmente marcado
    End If
    Next ctl
    End Sub



    Grato pela atenção


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Marcar todos checkbox de um sub formulário

    Mensagem  JPaulo em Qua 30 Jan 2013, 18:01

    Tem de dizer ao codigo que são os controles do subform;

    Dim ctl As Control

    For Each ctl In Me.rh_lista_presenca_responder_sub.Controls
    If TypeOf ctl Is CheckBox Then
    ctl = True
    ' ctl = Not ctl 'use esta para inverter o que estiver atualmente marcado
    End If
    Next ctl



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Marcar todos checkbox de um sub formulário

    Mensagem  JPaulo em Qua 30 Jan 2013, 18:02

    Ou assim;

    Dim ctl As Control

    For Each ctl In Forms!rh_lista_presenca_responder!rh_lista_presenca_responder_sub.Form.Controls
    If TypeOf ctl Is CheckBox Then
    ctl = True
    ' ctl = Not ctl 'use esta para inverter o que estiver atualmente marcado
    End If
    Next ctl


    Estude aqui, como se referenciar ao subform;

    Anexos
    Referenciar_aos_Subforms.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 65 vez(es)


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    Re: [Resolvido]Marcar todos checkbox de um sub formulário

    Mensagem  =>Nois em Qua 30 Jan 2013, 18:15

    Bacana d+ o anexo

    só uma dúvida, o comando funcionou só que ele está marcando apenas 1 item onde esta selecionado (tenho uma lista por ex de 10 itens)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Marcar todos checkbox de um sub formulário

    Mensagem  JPaulo em Qui 31 Jan 2013, 09:34

    Teste desta forma;

    With Me![rh_lista_presenca_responder_sub].Form.RecordsetClone
    .MoveFirst
    Do Until .EOF
    .Edit
    .Fields("SuaCheckBox") = True
    .Update
    .MoveNext
    Loop
    End With


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    Re: [Resolvido]Marcar todos checkbox de um sub formulário

    Mensagem  =>Nois em Qui 31 Jan 2013, 10:01

    Meus sinceros agradecimentos, funfou certinho! Very Happy


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Marcar todos checkbox de um sub formulário

    Mensagem  JPaulo em Qui 31 Jan 2013, 10:14

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    kngoka
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 22
    Registrado : 23/11/2012

    [Resolvido]Marcar todos checkbox de um sub formulário.

    Mensagem  kngoka em Seg 04 Nov 2013, 12:19

    Boa tarde,
    estou tentando usar um codigo que neste topico:
    With Me![rh_lista_presenca_responder_sub].Form.RecordsetClone
    .MoveFirst
    Do Until .EOF
    .Edit
    .Fields("SuaCheckBox") = True '
    .Update
    .MoveNext
    Loop
    End With

    mas no meu caso ele da um erro quando referencio o nome da minha checkBox dentro de parenteses, o erro diz:
    Run-time error '3265:
    "O item não se encontra nesta colecção".
    Porque será uma vez se o nome é o mesmo do subform?
    ja tentei referencia das seguintes formas:

    MinhaCheck/Me!MeuSubForm.Form.MinhaCheck e nada.
    Alguem ja teve erro parecido?


    BellaDePauli
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/05/2011

    Erro no Vb.Net

    Mensagem  BellaDePauli em Qui 11 Dez 2014, 18:21

    Boa Tarde,

    Estou usando este código, pois a lógica que eu preciso é a mesma. Porém da erro de conversão no true, pois o controle não é do tipo Booleano. Alguém pode me ajudar?

    Dim controle As Control

           For Each controle In Me.GroupBox1.Controls
               If TypeOf controle Is CheckBox Then
                   controle = True
                   'controle = Not controle 'use esta para inverter o que estiver atualmente marcado
               End If
           Next controle


    .................................................................................
    Bella de Pauli
    "A beira de um abismo só existe um jeito de dar um passo a frente, é dando um passo para trás" - Johnnie walker

      Data/hora atual: Sex 09 Dez 2016, 03:47