[Resolvido]LOOP - Cx Seleção Subformulario

Boa tarde.
Tenho um formulário ao qual contem uma caixa de seleção camada “Selecionar Todos”. Ao clicar na caixa, todos os itens da coluna Habilitado presente no subformulario recebem o valor de -1. Pois vinculei a cx de seleção uma consulta Atualizar (UpDate).
Porem configurei meu subformulario como folha de dados, pois desejo utilizar os filtros já disponíveis nas colunas. (Começa com..., Contem..., etc)
Meu desejo é:
Após eu filtrar os itens desejados, eu clique num botão e habilite somente os itens filtrados.
Pensei em algo como um loop.....é possível fazer?
Obrigado pela ajuda de todos!!!!

Boas Ramon.. creio ser possível sim..

Envie-nos um modelo conciso do bd para que possamos ver isto pra ti.

Cumprimentos.

Consegui resolver com o seguinte metodo.....não sei se no futuro poderá ficar lento.....

Private Sub SelectAll_AfterUpdate()

Dim item As Recordset

Set item = Me.Tabela1_subformulário.Form.Recordset

If Me.SelectAll.Value = 0 Then
item.MoveFirst
Do
Me.Tabela1_subformulário.Form.TICK.Value = 0
item.MoveNext
Loop Until item.EOF
item.MoveFirst
Else: Me.SelectAll.Value = -1
item.MoveFirst
Do
Me.Tabela1_subformulário.Form.TICK.Value = -1
item.MoveNext
Loop Until item.EOF
item.MoveFirst
End If
End Sub

Esqueceu-se de colocar o resolvido no tópico, desta vez eu coloco.

O Fórum agradece o Retorno.