referencing a control

[looloo]

Can anyone tell me what is wrong with this?

Run time error '2185'
You can't reference a property or method for a control unless the control has the focus.


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 = "UPDATE Restaurant SET " & _
"Restaurant.AccountManagerID = (SELECT AccountManagerID FROM AccountManager " & _
"WHERE AccountManagerName = " & Me!AccountManagerName.Text & ") " & _
"WHERE ((SELECT RestaurantInfo, RestaurantPhone FROM Restaurant) = " & oItem & ");"
DoCmd.RunSQL SQLMasterUpdate
Next oItem
Else
MsgBox "Nothing was selected from the list", vbInformation
Exit Sub 'Nothing was selected
End If
End Sub

[looloo]

Oh, I figured it out. I changed .Text to .Value.

The subquery still doesn't work but that's a whole 'nother issue.

[orange]

For testing and debugging use a
debug.print SQLMasterUpdate

and comment out 'DoCmd.RunSQL SQLMasterUpdate
while doing this test.
You will see what the SQL looks like and can check it for errors (visually).

I think you're missing some quotes(') that would surround a text value in the Update statement.

[looloo]

thanks, orange. That's a good tip.