[Resolvido]Eliminar em caixa de listagem

Boa tarde

Tenho um "Form" com uma caixa de listagem que lista todos os registos.
Como eliminar um registo com um click do rato ?

Obrigado

Pretendes eliminar da tabela ou da listbox apenas?

Ola Criquio

Da tabela

Tente algo assim:

Dim strSQL As String
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
strSQL = "DELETE * FROM SuaTabela WHERE Código = " & Me.SuaListBox(0)
DoCmd.SetWarnings True
MsgBox "Registro excluído!", vbOkOnly + vbInformation, "Aviso"

Estou supondo que tenha um índice 0 na listbox com o código do registro. Caso não tenha, adapte a linha a vermelho, como por exemplo:

strSQL = "DELETE * FROM SuaTabela WHERE CampoDaTabela = " & Me.SuaListBox

Lembrando que o campo a ser analisado não deve conter valor repetido em mais de um registro, pois isso pode acarretar em erros.

Criquio

A minha tabela tem 2 campos "Nome" e "Email".

Mas a minha listaBox "Me.Lista" tem os dois campos.

Mas assim não resultou.

Dim strSQL As String
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL

strSQL = "DELETE * FROM TabMails WHERE Nome = " & Me.Lista
DoCmd.SetWarnings True
MsgBox "Registro excluído!", vbOkOnly + vbInformation, "Aviso"

Teste este tambem, mas no evento VBA duplo click da lista

Private Sub SuaListBox_DblClick(Cancel As Integer)
'By JPaulo ® Maximo Access
Dim varItem As Variant

For Each varItem In SuaListBox.ItemsSelected

CurrentDb.Execute "DELETE * FROM SuaTabela WHERE SeuCampoID =" & SuaListBox.ItemData(varItem)

Next varItem
Me.SuaListBox.Requery

End Sub

Adapatado à sua tabela e Lista

Private Sub Lista_DblClick(Cancel As Integer)
'By JPaulo ® Maximo Access
Dim varItem As Variant

For Each varItem In Lista.ItemsSelected

CurrentDb.Execute "DELETE * FROM TabMails WHERE Nome ='" & Lista.ItemData(varItem) & "'"

Next varItem
Me.SuaListBox.Requery
MsgBox "Registro excluído!", vbOKOnly + vbInformation, "Aviso"
End Sub

JPaulo

Já funciona na perfeição mas ...

A sua função foi aplicada num botão pois na "Caixa Listagem" já tinha um evento ao fazer Click, para abrir um "Form".

E como detectar que a "Caixa Listagem" não tem nenhum item selecionado ?

Assis, por isso é que quando for para deletar eu gosto do evento VBA Duplo Clik, e não no Click, esse pode ficar.

Detectar se não tem item selecionado:

If Me.Lista.Selected(varItem) = False Then

JPaulo para dar como resolvido

Aonde coloco If Me.Lista.Selected(varItem) = False Then

Está assim

Private Sub Comando40_Click()
On Error Resume Next
If MsgBox("Eliminar Email ? " & Lista, vbYesNo + vbQuestion, "Gestão de Mails") = vbYes Then
Dim varItem As Variant
For Each varItem In Lista.ItemsSelected
CurrentDb.Execute "DELETE * FROM Emails WHERE Email ='" & Lista.ItemData(varItem) & "'"
Next varItem
Me.Lista.Requery
MsgBox "Email Anulado com Sucesso!", vbOKOnly + vbInformation, "Gestão de Mails"
Else
Exit Sub
End If
end sub

Private Sub Comando40_Click()
Dim varItem As Variant
On Error Resume Next

If MsgBox("Eliminar Email ? " & Lista, vbYesNo + vbQuestion, "Gestão de Mails") = vbYes Then

For Each varItem In Lista.ItemsSelected
If Me.Lista.Selected(varItem) = False Then
MsgBox "Item não está selecionado.", vbOKOnly + vbInformation, "Gestão de Mails"
Exit Sub
Else
CurrentDb.Execute "DELETE * FROM Emails WHERE Email ='" & Lista.ItemData(varItem) & "'"
End If
Next varItem
Me.Lista.Requery
MsgBox "Email Anulado com Sucesso!", vbOKOnly + vbInformation, "Gestão de Mails"
Else
Exit Sub
End If
End Sub

Mesmo sem ter nenhum selecionado pergunta logo se quer eliminar

http://dl.dropbox.com/u/8169944/Lista%20%20Assis.mdb

Teste assim por favor;

Private Sub Comando40_Click()
Dim varItem As Variant

If IsNull(Me.Lista) Then
MsgBox "Item não está selecionado.", vbCritical, "Gestão de Mails"
Exit Sub
End If

For Each varItem In Lista.ItemsSelected

If MsgBox("Eliminar Email ? " & Lista, vbYesNo + vbQuestion, "Gestão de Mails") = vbYes Then

CurrentDb.Execute "DELETE * FROM Emails WHERE Email ='" & Lista.ItemData(varItem) & "'"
MsgBox "Email Anulado com Sucesso!", vbOKOnly + vbInformation, "Gestão de Mails"
Else
Exit Sub
End If
Next varItem
Me.Lista.Requery
End Sub

Obrigado JPaulo
Como sempre ... perfeito ...

Obrigado pelo retorno Assis.