Help with Restaurant Menu

**tLeG#77** · 04-25-2011, 09:23 AM

I am currently working on a restaurant project where if a user selects the specific index of an item the price comes up on the screen. I am having issues with working on the remove button. It removes the items but when there are no items left to select, the subtotal for all orders does not display the correct price. Below is the code I am currently working on. If anyone can help, I would greatly appreciate it.

 If lstCurrentOrder.ListIndex = -1 Then
      MsgBox ("There isn't anything selected/left to remove")
        
    Else
        Dim index_list As Double
        index_list = (lstCurrentOrder.ListIndex)
        
        dordercost = dordercost - adCosts(index_list)
        lstCurrentOrder.RemoveItem index_list
        lstCurrentOrderCost.RemoveItem index_list
        
        boxOrderTotal.Text = Str(dordercost)

**tigeravatar** · 04-25-2011, 11:09 AM

tLeG#77,

I'm having trouble understanding exactly what you're asking for. This appears to be an excel userform with a listbox and a remove button. The listbox contains restaurant items and user can select/highlight one or more items in the listbox.

The remove button is supposed to remove selected items from the listbox and update the price total? Also, the code you posted simply checks if the listbox has nothing selected. If nothing is selected, it displays that error message and then exits with nothing further.

Perhaps a sample workbook would help us understand what you're looking for so that we can better help you.

~tigeravatar

**tLeG#77** · 04-25-2011, 04:35 PM

hi, tigeravatar

In response to your question, yes. The remove button is supposed to remove the selected items from the listbox and update the price total on the userform. I would just like the price total depending on items removed. I have attached a sample of the workbook. Hopefully it is a bit more clear what I am trying to accomplish. a little clearer what I am trying to accomplish.