excluir dados de uma listbox

[Julio Couto]

Quero excluir um registro de uma tabela usando a listbox inserida em um formulário, para isso:

1) Fiz uma sub que ao clicar na minha listbox ela grava o valor da coluna 1 do registro clicado em uma caixa de texto que chamei de txtDeletar (ver sub abaixo)


Private Sub listbox_Click()




txtDeletar = Me.listbox.Column(1)


End Sub


2) Fiz uma segunda sub que busca a tabela onde está o registro que eu quero deletar e compara a informação contida no campo da tabela descFederação
e a informação contida na caixa de texto txtDeletar



Private Sub cmbExcluir_Click()



CurrentDb.Execute "DELETE * FROM tbFederação where descFederação = " & txtDeletar
listbox.Requery



End Sub


o problema é que o campo descFederação é do tipo texto curto e por isso não estou conseguindo executar o código

OBS: não posso usar um campo número.

Será que é possível encontrar uma solução usando um campo tipo texto curto?

Desde já eu agradeço a ajuda

[Welshgasman]

Non comprende. lo siento

[Gicu]

Ola Julio
Please try:

CurrentDb.Execute "DELETE * FROM tbFederação where descFederação = """ & Me.txtDelete & """"  'because the data type is text you need to wrap it in single-quotes or two double-quotes
listbox.Requery

Cheers,