Deleting multiple records selected in a Listbox

[ankitmehtta]

Hi,
I have a listbox where I choose a value and then press a command button which runs a query to delete the selected item from a table.
Now,The query doesn't work with a multi-select listbox. I want to be able to select multiple entries in the listbox and then delete all the selected entries from a table by clicking on a command button. I understand that this cannot be done using queries and I am not good with VBA. I am using Access 2000. Please let me know If I need to post more information. Any help would be appreciated. Thank you so much.

[pbaldy]

A multi-select listbox doesn't have a value you can use directly in a query; you have to loop it in code to get the selected values. To do what you're talking about you could modify this:

http://www.baldyweb.com/MultiselectAppend.htm

Within the loop instead of using the recordset to add a record, use SQL to delete one:

CurrentDb.Execute "DELETE * FROM TableName WHERE KeyfieldName = " & ctl.ItemData(varItem)

[ankitmehtta]

Uploading pictures of my listbox, table where I want to delete values from and the query I am using to delete values currently.

[ankitmehtta]

Paul,
Thank you so much. Appreciate your help. I am posting the code that worked.


Private Sub Command89_Click()
Set ctl = Me.consumed_lbx
For Each varItem In ctl.ItemsSelected
CurrentDb.Execute "DELETE * FROM steel_onhand_tbl WHERE ID = " & ctl.ItemData(varItem)
Next varItem
Forms!steel_consumed.Recalc
End Sub

[pbaldy]

Happy to help, and welcome to the site!