i have the textboxes validated as numeric only so to enter anything less than 1 whole, you have to start off with 0.
For example: instead of entering .5 you have to enter 0.5... I don't want to hear any complaints for the people using this form lol
I have the following codes:
1. This adds the value of each textbox as they change...
Sub RealTime()
txtEntry = Val(txt1) / 100 + Val(txt2) / 100 + Val(txt3) / 100 + Val(txt4) / 100 + Val(txt5) / 100 + Val(txt6) / 100 + Val(txt7) / 100 + Val(txt8) / 100 + Val(txt9) / 100 + Val(txt10) / 100
End Sub
2. This is just one of the 10 textboxes, when ever they are updated/changed they call in the realtime sub to update the sum of all the values (boxes 1 - 10).
Private Sub txt1_Change()
Call RealTime
If txt1 <> vbNullString Then
If Not IsNumeric(Me.txt1.Value) Then
MsgBox "Please enter Numbers Only"
txt1.SetFocus
Else
Call RealTime
End If
End If
End Sub
if i start off the entry with a decimal (.5) i get the error, but can continue entering, how can i get it to accept the decimal in the begining of the entry (.5), rather than having to type 0.5 ?
Bookmarks