[Resolvido]Exclusão de registros de um formulário através de uma(s) Check-box selecionada(s)

Bom dia,

Estou com uma dúvida em um código, tenho um formulário de consulta de funcionários e como serão muitos, resolvi colocar a exclusão de múltiplos por uma check-box.

a caixa de seleção se chama "Select1" vejam o código

Código:



Private Sub Comando19_Click()

Dim x As String
Dim y As Integer

x = DCount("[Select1]", "Tabela1", "[Select1] = true")
y = x

While y <= x

    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings False
    x = x - 1
    If Select1 = True Then
        y = y - 1
    End If
    
Wend



End Sub




Não sei se fiz esse código certo, pois quando há uma caixa não selecionada ele exclui uma por uma.

Não vejo lógica em x e y.. veja porque:

Código:

x = DCount("[Select1]", "Tabela1", "[Select1] = true")
y = x

Se X = 4... voce iguala a y, então X = y = 4
Então Y será sempre igual a X portanto não executará esta condição de y<=X
While y <= x

O Comando para exclusão seria mais ou menos assim:
x = DCount("[Select1]", "Tabela1", "[Select1] = true")

If X > 0 Then
CurrentDb.Execute "DELETE * FROM Tabela1 WHERE Select1 = -1"
Else
MsgBox "Não existem registros a serem excluídos!,VbInformation,"ATENÇÃO"
End If

Cumprimentos.

Bom dia Piloto,


Depois da sua dica ficou fácil fazer o código,

Segue.

Código:



Dim x As String

x = DCount("[Select1]", "Tabela1", "[Select1] = -1")

While x <> 0
CurrentDb.Execute "DELETE * FROM Tabela1 WHERE Select1 = -1"
x = x - 1
Wend



Funcionou desse jeito ^^

Obrigado !

É desnecesário a utilização do While... porque o caracter coringa "*" já exclui todos os registros que estiverem marcados...

portando este comando está sendo inútil ai.

Cumprimentos.