Sum Thing Wrong

[robuk65]

Hi I was wondering if anyone could help

What I am trying to do is take a balance away from a preset value (£30) and display in another forms list box

The problem is I cannot get it to show minus figures, it does it the first time but when i go back to the data input form it has changed the value in the text box.

I am not sure if I am on the right track here at all
------------------------------------------------------------
Private Sub cmdlist_Click()

member(current).account = 30#

If Val(txtaccbal.Text) <> 30 Then

member(current).account = member(current).account - Val(txtaccbal.Text)

Else

End If

frmtonelist.Show

 

[TRYP]

honestly cant see your problem from the info you gave
BUT
have some sub do your work
like:

sub subtractThis(someValue as double)
form2.listbox.add 30-someValue
end sub

tryp