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

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

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

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;

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)

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

Meus sinceros agradecimentos, funfou certinho!

Obrigado pelo retorno o forum agradece.

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?

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