Items in a List Box

[looloo]

I want to run an update query on all records in a list box. My code kind of looks like this:



Private Sub AssignButton_Click()
Dim SQLMasterUpdate As String
Dim oItem As Variant

If Me!RestaurantListBox.ItemsSelected.Count <> 0 Then

For Each oItem In Me!RestaurantListBox.ItemsSelected

SQLMasterUpdate = "(This is the part I'm struggling with !)"
DoCmd.RunSQL SQLMasterUpdate

Next oItem

Else
MsgBox "Nothing was selected from the list", vbInformation
Exit Sub 'Nothing was selected
End If
End Sub

[pbaldy]

It would look something like:

SQLMasterUpdate = "UPDATE TableName SET FieldName = Whatever WHERE KeyField = " & Me.RestaurantListBox.ItemData(oItem)

In other words, you concatenate the value of the listbox into the SQL string.

[looloo]

Thank you! This forum is a life saver!

[pbaldy]

Happy to help!