[Resolvido]Caixa de seleção em formulário contínuo

Olá a Todos.
Tenho um formulário contínuo onde tenho uma caixa de seleção não acoplado onde desejo que ao selecionar a caixa, automaticamente todos as outras caixas do formulário também fiquem marcadas. Uma caixa do tipo selecionar tudo. Alguém pode me ajudar? Desde já agradeço

Crie um botão Marcar com esse código:

Código:

On Error GoTo Sair:
    Dim Erro As Integer
    Dim SqlTxt As String, msg As String
    DoCmd.SetWarnings False
    SqlTxt = "UPDATE Tabela SET Caixa Seleção = True"
    msg = "Marcar TODOS?"
    If MsgBox(msg, vbQuestion + vbYesNo, "Confirme") = vbYes Then
        DoCmd.RunSQL SqlTxt
        Me.Refresh
    End If
    DoCmd.SetWarnings True
Sair:
    If Err <> 0 Then
        Erro = MsgBox(Err.Description, vbCritical, "Erro Crítico!")
    End If

Crie um outro botão de desmarcar:

Código:

    On Error GoTo Sair:
    Dim Erro As Integer
    Dim SqlTxt As String, msg As String
    DoCmd.SetWarnings False
    SqlTxt = "UPDATE Tabela SET Caixa Seleção = False WHERE (((Campo tabela Atualizado)=True));"
    msg = "Tem certeza de que deseja desmarcar TODOS os E-mail?"
    If MsgBox(msg, vbQuestion + vbYesNo, "Confirme") = vbYes Then
        DoCmd.RunSQL SqlTxt
        Me.Refresh
    End If
    DoCmd.SetWarnings True
Sair:
    If Err <> 0 Then Erro = MsgBox(Err.Description, vbCritical, "Erro Crítico!")

Funciona beleza...