[Resolvido]Excluir apartir da caixa de listagem

Olá pessoal, tenho o Formulário com uma caixa de listagem, na caixa de listagem mostrar dados da tabela PEDIDOS_VENDAS gostaria que ao selecionar um item da caixa de listagem e apertar delele excluir o lançamento selecinado na tabela PEDIDOS_VENDAS. Não sei se fui claro.

Gilberlânio, faça uma busca no forum por excluir. Irá encontrar vários tópicos resolvidos. Conseguirás adaptar para o seu caso.

Uma opinião

Ao seleccionar o registo na combo,este deveria popular um form com um botão Delete.

Apenas uma ideia

Ao selecionar o item na ListBox, utilize antes o Duplo Click, em vez do Delete;

Private Sub SuaListBox_DblClick(Cancel As Integer)
'By JPaulo ® Maximo Access
Dim RS As Recordset
Dim x As String 'se for texto, para numerico use o Integer ou o Double

x = Me.SuaListBox.Value 'ou Me.SuaListBox.Column(1)

Set RS = CurrentDb.OpenRecordset("SuaTabela")
If RS.RecordCount = 0 Then Exit Sub

RS.MoveFirst

Do While Not RS.EOF
If RS.Fields("SeuCampoNaTabela") = x Then

RS.Delete

End If

RS.MoveNext
Loop
End Sub

JPaulo, não posso usar no duplo clik porque tenho uma função nesse evento, tentei usar no evento ao apertar tecla mais não funcionou.

Como Vieira falou seria muito bom uma mensagem de confirmação de exlusão.

Outra questão que esqueci de falar o access é 2007.

Seque em anexo o exemplo.
Excluir de Caixa de Listagem

Selecione o item na listbox e pressione a tecla Delete;

http://dl.dropbox.com/u/771097/ExcluirApartirCaixaListagem_OLD.rar

Simplismente fantástico! Valeu.

Obrigado pelo retorno o forum agradece.

Estou usando essa rotina criada pelo JPaulo para excluir de caixa de listagem só que as tabelas estão em banco em SQL Server, só que está muito lento, alguém sabe o porque? Destaquei em vermelho o que mudei para usar em SQL Server.

Private Sub lst_nomes_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

Case vbKeyDelete

'By JPaulo ® Maximo Access
Dim RS As DAO.Recordset
Dim X As String 'se for texto, para numerico use o Integer ou o Double

If MsgBox("Desseja excluír este Item ?", vbCritical + vbYesNo, "Apagar Registro") = vbNo Then
Exit Sub
Else
X = Me.lst_nomes.Column(0)

Set RS = CurrentDb.OpenRecordset("dbo_tbl_Atendimentos", DB_OPEN_DYNASET, dbSeeChanges)
If RS.RecordCount = 0 Then Exit Sub

RS.MoveFirst

Do While Not RS.EOF
If RS.Fields("ID_Atendimento") = X Then

RS.Delete

End If

RS.MoveNext
Loop
End If
End Select
Me.lst_nomes.Requery
End Sub