Hi. i have a remove cmd button, a datagrid and a textbox.
Private Sub cmdRemove_Click()
Dim reply
reply = MsgBox("Remove item from list?", vbYesNo + vbQuestion, "Confirm remove")
If reply = vbYes Then
frmSales.Adodc1.Refresh
Adodc1.RecordSource = "Select * from Items"
frmSales.Adodc1.Recordset.Find ("Code= '" & Me.Adodc2.Recordset.Fields("Code") & "'")
frmSales.Adodc1.Recordset.Update
frmSales.Adodc1.Refresh
frmSales.Adodc2.Recordset.Delete
frmSales.Adodc2.Refresh
Adodc2.Refresh
Adodc1.Refresh
End If
End Sub
I want to minus the price(total amount field) of the item i want to remove (when clicked the remove button) and show it on the textbox (total cost).
Please help
- 4 views