[Resolvido]Botão para excluir vários Registros

Olá Pessoal, gostaria de saber, se tem como selecionar os itens na caixa de listagem e depois apagar os mesmos, ou alguma outra forma de excluir vários registros ao mesmo tempo criando o botão "Excluir"; segue banco com caixa de listagem pronta para teste. Obrigado.

Link Banco:

https://drive.google.com/file/d/0ByOnIRK3_8Brb0JrQ1lSSkxwUUU/view?usp=sharing

Ola;

Para fazer isso com segurança, tem de ter um ID na tabela.

Eu coloquei o ID na tabela.
Adicionei o ID, na listbox e coloquei em primeiro no SQL (coluna zero), com 0cm para não ficar visivel.

Adicionei um botão para excluir os multi-selecionados;

Código:

Dim v As Variant
    For Each v In caixahq.ItemsSelected
        If MsgBox("Deseja mesmo deletar os registos selecinados ?", vbCritical + vbYesNo, "Delete") = vbYes Then
        CurrentDb.Execute "Delete * From Gibis Where ID = " & caixahq.ItemData(v)
        Else
        Exit Sub
        End If
    Next
    Me.caixahq.Requery
    Me.Requery

http://dl.dropboxusercontent.com/u/771097/Banco_Botao_Excluir_OLD.zip

Olá Jpaulo;

Testei o código e já implementei no meu sistema, ficou certinho, muito obrigado mesmo pelo tempo e, ajuda disponibilizada, que Deus continue derramando chuva de bençãos em sua vida, até mais, abraços!!!