[Resolvido]Ao clicar botão com linha seleccionado na List Box excluir o item da tabela

Saudações pessoal

Estou com um problema que não consigo resolver, tenho uma ListBox que busca os dados duma query, acontece que estou a tentar excluir o item seleccionado na ListBox ao clicar num botão, estou a usar os seguinte codigo, mas acontece é que ele não apaga o item selecionado na BD e não mostra nenhum erro

Dim intIndexSelected As Integer
If Me.Lst_excluir.ItemsSelected.Count > 0 Then
If MsgBox("Deseja excluir o item " & Me.Lst_excluir.Column(0) & " ?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Confirmação") = vbYes Then
intIndexSelected = Me.Lst_excluir.ItemsSelected(Index)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM Tabela WHERE Campo_tabela=" & intIndexSelected
DoCmd.SetWarnings True
MsgBox "Excluido com sucesso!", vbExclamation, "Sucesso"
Me.Lst_excluir.Requery
Me.Lst_excluir.Selected(intIndexSelected) = True
End If
Else
MsgBox "Nenhum Item seleccionado!", vbExclamation, "Informação"
End If

Alguém pode me ajudar a entender onde esta o problema com o código?

Ola;

Faça o simples ;

Teste e retorne;

Código:

If Me.Lst_excluir.ItemsSelected.Count > 0 Then

If MsgBox("Deseja excluir o item " & Me.Lst_excluir.Column(0) & " ?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Confirmação") = vbYes Then

    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM Tabela WHERE Campo_tabela=" & Me.Lst_excluir.Column(0)
    DoCmd.SetWarnings True

    MsgBox "Excluido com sucesso!", vbExclamation, "Sucesso"
    Me.Lst_excluir.Requery

    End If
Else
MsgBox "Nenhum Item seleccionado!", vbExclamation, "Informação"
End If


Ola,

acabo de testar agora o código. Agora me da o seguinte erro:

Run-time error '3075'

Invalid use of '.', '!' or '()'. in query expression
'Reference=12345'.

Repliquei aqui e funcionou;

O campo referente ao Me.Lst_excluir.Column(0) é texto ou numerico ?

Se for texto é:

DoCmd.RunSQL "DELETE FROM Tabela WHERE Campo_tabela='" & Me.Lst_excluir.Column(0) & "'"

Mostre o seu código final.

Obrigado

Agora consegui, o problema era que estava tentar excluir directamente na query ao invés da Tabela original. Agora que mudei para excluir na tabela original funcionou perfeitamente


Muito Obrigado pela ajuda

Fico feliz.

Obrigado pelo retorno o forum agradece.