refresh list after totaling items

[mdpems]

Hi,
I have a combo box that is set up to receive items from another from and post as a record set. The items will post to the list as I click an add item button. I also have a remove item button. I also have a total button at the bottom of my screen that when clicked will total the items in the list. What I want to be able to do is retotal the items in the list after removing an item. Right now if I remove items from my list it will not be shown in the list but it continues to count them and give me a wrong total. I also have another problem with the remove item button. The button will remove the first item in the list as it is clicked instead of removing the latest entry. I have attached the code for all the buttons below. Thanks for your help.

Private Sub cmdAdd_Click()
If Nz(TextQuantity.Value, "") = "" Then TextQuantity.Value = "1"
If Nz(cmbItem.Value, "") <> "" Then
Dim rs As DAO.Recordset
Set rs = DBEngine(0)(0).OpenRecordset("SELECT Cost FROM [Medical Supplies] WHERE Item = '" & removeApostrophes(cmbItem.Value) & "';")
If Not rs.EOF Then total = total + (CSng(rs!Cost) * CInt(TextQuantity.Value))
lstOrder.AddItem (TextQuantity.Value & "x " & cmbItem.Value)
End If

End Sub


Private Sub cmdTotal_Click()
TextTotal.Value = Round(total, 2)

End Sub

Private Sub Command42_Click()
'This for my reset total button'
TextTotal.Value = DefaultValue
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To lstOrder.ListCount - 1
lstOrder.RemoveItem (0)
Next i
total = 0
End Sub

Option Compare Database

Dim total As Single

Private Sub cmdremove_Click()
lstOrder.RemoveItem Index:=varItem

On Error GoTo 0

End Sub

[puppydogbuddy]

You have a posted similar question at the following link:

http://www.thescripts.com/forum/thread740618.html