[Resolvido]Selecionar todos os registros de um formulário contínuo e excluí-los através de um botão de comando

Boa Noite!

Utilizo o office 2010. Anexei uma cópia reduzida do meu banco de dados. Peço ajuda aos colegas na solução dos seguintes problemas:

No "frm_ParcelasPendentesCarnê" eu preciso criar três botões de comando:

1º botão: para marcar o campo Selecionar de todos os registros, tipo um botão que selecione todos;
2º botão: para desmarcar o mesmo campo Selecionar, tipo um botão para limpar seleção;
3º botão: para excluir os registros selecionados.

Desde já agradeço.

Crie um botão e no evento ao clicar coloque:

Código:

Private Sub Comando22_Click()
    If MsgBox("Esta Ação Irá Excluir Todos os Arquivos. Confirmar a Exclusão? ", vbYesNo + vbInformation, "Atenção!") = vbYes Then
    CurrentDb.Execute "Delete * from tbl_Carne Where IdDoCarne =" & IdDoCarne
    Form_frm_ParcelasPendentesCarnê.Refresh
    MsgBox ("Registros Excluídos Com Sucesso"), vbInformation, "Exclusão de Registros"
    End If
End Sub

A sim agora que li com calma você quer excluir só os selecionados então mais um botão

Código:

If MsgBox("Esta Ação Irá Excluir Todos os Arquivos Selecionados. Confirmar a Exclusão? ", vbYesNo + vbInformation, "Atenção!") = vbYes Then
    CurrentDb.Execute "Delete * from tbl_CarneDetalhes Where IdDoCarne =" & IdDoCarne & "  And Selecionar  = True"
    Form_frm_ParcelasPendentesCarnê.Refresh
    MsgBox ("Registros Excluídos Com Sucesso"), vbInformation, "Exclusão de Registros"
End If


Para Selecionar Tudo mais um botão

Código:

CurrentDb.Execute "Update tbl_CarneDetalhes Set Selecionar = (true)"
Form_frm_ParcelasPendentesCarnê.Refresh

Para fazer o inverso é só mudar de true para false

Amigo, o seu código deu um pequenino erro: "Erro de compilação: Era esperado End Sub".
Mas mesmo corrigindo esse erro, ele não iria excluir todos os dados da tabela?

Eu quero que exclua somente os registros que eu marcar na caixa de seleção do campo "Selecionar" de formulário frm_ParcelasPendentesCarnê.

No botão excluir tudo apague
Private Sub Comando22_Click()

quando copie e colei foi junto e não vi

Ou baixa de novo já retirei e enviei novamente o bd

Obrigado amigão!

Deu certo, só mais uma coisinha:
Observa que quando você clica "Selecionar Tudo" ele executa a consulta novamente pedindo pra entrar com o valor do parâmetro, após isso, caso você clique em Cancelar ele dá erro no código e pede pra depurar... Tem como criar uma proteção pra isso?

Outro problema e esse é mais sério:

O seu código seleciona os dados diretamente da tabela "tbl_CarneDetalhes". Essa seleção deveria ser baseada na consulta "qryParcelasPendentesCarnê", pois ela é que faz o filtro do contribuinte do qual desejo fazer alterações nos dados, quitando ou excluindo as parcelas pendentes do mesmo.

Tipo se tiver mais de um contribuinte cadastrado a consulta seleciona somete o que eu digitar o nome.
Cadastrei mais um pra você fazer o teste.

Tem o Armando e o Sérgio.

O formulário frm_ParcelasPendentesCarnê é baseado na consulta qryParcelasPendentesCarnê, sendo que a mesma faz o filtro de qual contribuinte eu desejo fazer alterações, quitando ou excluindo suas parcelas.

Da forma que você desenvolveu seu código ele trata diretamente da tabela alterando todos os dados nela existentes sem fazer distinção dos mesmos.

Desejo fazer alterações somente no contribuinte que eu digitar o nome no  frm_ParcelasPendentesCarnê...

Espero ter conseguido explicar o problema...

Mais uma vez agradeço a ajuda e atenção.

Aguardo retorno amigo.

Alguém pode me ajudar?

Boa Noite!

Tentei me virar com as dicas do meu amigo Formiga, aliás foram de grande valia. Embora essa solução tenha gerado algumas outras complicações pro meu projeto em si, mas resolveu o meu problema de imediato.

Quem quiser olhar e quem sabe melhorar... segue em anexo:

Obrigado de verdade!

Aos colegas interessados no tópico.

Encontrei aqui mesmo no fórum, um exemplo interessante desenvolvido pelo Assis, bem prático e que resolveu todos os meus problemas... Incrementei  as dicas que o colega Formiga havia me dado e cheguei ao resultado que eu queria...

Exemplo do Assis:
https://dl.dropboxusercontent.com/u/8169944/Assis%20Banco%20de%20Dados.zip



Agradeço a todos mais uma vez.