[Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo

Estou tentando criar um botão para marcar as caixas de seleção dos registros no sub formulário.
Private Sub btnMarcarTodos_Click()
Me.Ativo.Value = -1
End Sub

Esse comando só marca o primeiro registro.

Desde já agradeço a atenção e caso alguém possa me ajudar ficarei muito grato.

Obrigado!

Geralmente faço com código abaixo!

Dim db As Database, rsBancos As Recordset
Set db = CurrentDb
Set rsBancos = Me.RecordsetClone
rsBancos.MoveFirst
Do Until rsBancos.EOF
If rsBancos!Ativo= True Then ’Nome do botão no evento ao clicar
rsBancos.Edit
rsBancos!Ativo= False
rsBancos.Update
End If
rsBancos.MoveNext
Loop
rsBancos.Close
db.Close

Obrigado! funcionou perfeitamente. Alterei o Btn para uma caixa de seleção
ficou assim


Private Sub MarcarTodos_Click()
If MarcarTodos = 0 Then
Dim db As Database, rsBancos As Recordset
Set db = CurrentDb
Set rsBancos = Me.RecordsetClone
rsBancos.MoveFirst
Do Until rsBancos.EOF
If rsBancos!Quitar = True Then 'Nome do botão no evento ao clicar
rsBancos.Edit
rsBancos!Quitar = False
rsBancos.Update
End If
rsBancos.MoveNext
Loop
rsBancos.Close
db.Close
Else
Dim db1 As Database, rsBancos1 As Recordset
Set db1 = CurrentDb
Set rsBancos1 = Me.RecordsetClone
rsBancos1.MoveFirst
Do Until rsBancos1.EOF
If rsBancos1!Quitar = False Then 'Nome do botão no evento ao clicar
rsBancos1.Edit
rsBancos1!Quitar = True
rsBancos1.Update
End If
rsBancos1.MoveNext
Loop
rsBancos1.Close
db1.Close
End If
End Sub


Muito Obrigado!

Créditos MaximoAccess!

Que beleza que ajudou.