[Resolvido]Marcar-desmarcar checkBox-caixa de seleção no formulário

Boa tarde a todos! Estou com o seguinte problema. Tenho um formulário em que tem um botão que ao clicar ele executa o código abaixo:
Dim Rst As DAO.Recordset
Set Rst = Me.RecordsetClone
Do While Not Rst.EOF
Rst.Edit
Rst("Escolher") = True
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing

Ao executar esse código ele marca todas as caixas de seleção do formulário que vem de uma consulta. Só que quando clico de novo ele não desmarca. Então eu queria que ao clicar marcasse tudo, mas que ao clicar de novo ele desmarcasse todos. Acho que deve ser só algo a mais que tem que ser colocado no código. Se alguém puder me ajudar eu agradeço. Outra coisa que percebi é que ele só marca tudo uma vez, se eu começar a desmarcar algumas e depois clicar para marcar tudo de novo, ele não marca

Olá! Veja se é assim que quer:

Dim Rst As DAO.Recordset
Set Rst = Me.RecordsetClone
Do While Not Rst.EOF
Rst.Edit
If rst("Escolher") = False Then
Rst("Escolher") = True
Else
Rst("Escolher") = False
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing

Grande Críquio, eu coloquei o código só que agora apareçeu um erro.
"Erro de compilação
Loop sem Do"O que será?

Vou deixar para você descobrir essa amigão. Verifique bem as alterações. Lembre-se que tem coisas que devem ser fechadas depois de usadas.

Na minha opnião, o que poderia está aberto e não foi fechado, foi o If
Dim Rst As DAO.Recordset
Set Rst = Me.RecordsetClone
Do While Not Rst.EOF
Rst.Edit
If rst("Escolher") = False Then
Rst("Escolher") = True
Else
Rst("Escolher") = False
Rst.Update
Rst.MoveNext
End If(eu coloquei isso agora)
Loop
Set Rst = Nothing
No código alterado não tinha. Só que ao fechar o IF agora, quando cliquei, travou foi tudo

Tente colocá-lo antes do Update.

Coloquei Críquio e ficou assim:
Dim Rst As DAO.Recordset
Set Rst = Me.RecordsetClone
Do While Not Rst.EOF
Rst.Edit
If Rst("Escolher") = False Then
Rst("Escolher") = True
Else
Rst("Escolher") = False
End If
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing

Só que agora, ele voltou a agir como antes, ele marca tudo, mas se eu clicar de novo ele não desmarca nada, e se eu desmarcar algumas caixas e clicar no botão ele não marca mais nada. Lembrando que o formulário é de uma consulta e os registros são navegados através do formulário passando de um registro para outro

Esse campo Sim/Não existe na tabela, certo? Nesses casos, eu costumo editar o campo diretamente na tabela e atualizo o formulário para exibir a alteração.

Só que nesse mesmo formulário ele tem um evento que ao carregar, ele desmarca todas as caixas na tabela CurrentDb.Execute "UPDATE Carros SET Carros.Escolher = 0" que é para justamente eu ter a opção de quando abrir esse formulário eu escolher apenas alguns registros ou selecionar todos. Então eu nem precisaria editar para atualizar o formulário pois ele já abre com todos desmarcados

Críquio, eu percebi o seguinte depois que coloquei seu código. Que ao clicar no botão, as caixas que eu marquei manualmente no formulário, ele desmarca, marcando o restante. Agora se eu não marco nenhuma ele marca todos, mas não desmarca mais.

Veja o simples;

Private Sub SeuBotão_Click()
 Dim x As Long
    x = Me.CurrentRecord
    Me.Recordset.MoveFirst
   If Me.Escolher.Value = False Then
    Do While Not Me.Recordset.EOF
        Me.Escolher.Value = True
        Me.Recordset.MoveNext
    Loop
    Me.Recordset.MoveFirst
    If x > 1 Then Me.Recordset.Move x - 1
  
  ElseIf Me.Escolher.Value = True Then
    
        x = Me.CurrentRecord
    Me.Recordset.MoveFirst
    Do While Not Me.Recordset.EOF
        Me.Escolher.Value = False
        Me.Recordset.MoveNext
    Loop
    Me.Recordset.MoveFirst
    If x > 1 Then Me.Recordset.Move x - 1
End If
End Sub

Se não for um formulario continuo, veja mais simples ainda;

http://maximoaccess.forumeiros.com/t5435-resolvidomarcar-desmarcar-todas-caixas-de-selecao-no-formulario

E ae ?

Funfou ????

Modificado titulo do tópico para facilitar futuras buscas ao assunto em foco.

JPAULO, funfou bacana. Muito obrigado!! Eu já tinha encontrado aqui uma outra solução, mas vou usar a sua pois ficou perfeito. Valeu amigos do Forum

Obrigado pelo retorno o forum agradece.

JPaulo, ficou excelente seu código, também fiz uso dele.
Só uma pergunta, e se eu quisesse selecionar somente os itens que estão filtrados no subformulário, e não toda relação?