VBA Input Error Loop

[WERNER SLABBERT]

HEllo Folks, Any Idea how i can loop through an input error with my code here? the user should only use numerical but would it be possible for vba not to error out and just simply clear the textbox and have the user retry input?<br>
<br>

<br>
Private Sub TextBox200_AfterUpdate()<br>
DoUpdate200<br>
End Sub<br>

<br>
<br>

<br>
Sub DoUpdate200()<br>
If TextBox200.Value = "" Then TextBox200.Value = 0<br>
Sum1.Value = TextBox200.Value * 200<br>
Sum1.Value = Format(Sum1.Value, "Currency")<br>
End Sub<br>

<br>
<br>
As Always i do appreciate all you smart people helping this noob...
Also In An unrelated question, hiw can i have this TextBox display "Currency" Correctly after the user has input the ammount.
Eg: R 4851,29 at the moment the input does not "auto Display the decimal if not entered manually Eg: R 4000

Private Sub INVtot_Change()
Diff_sum
    INVtot.Value = Format(INVtot.Value, "R ***###,##")
End Sub

PS: The "Currency" Format does not work.

 

[Yongle]

Any Idea how i can loop through an input error with my code here? the user should only use numerical but would it be possible for vba not to error out and just simply clear the textbox and have the user retry input?

Try this...

Private Sub TextBox200_AfterUpdate()
    With TextBox200
        If Not IsNumeric(.Value) Then
            .Value = ""
            MsgBox "You must provide a numeric value in this TextBox!"
            Exit Sub
        Else
            DoUpdate200
        End If
    End With
End Sub

 

[Yongle]

can i have this TextBox display "Currency" Correctly after the user has input the amount

try..

Private Sub INVtot_AfterUpdate()
    INVtot.Value = Format(INVtot.Value, "R #,##0.00")
End Sub

 

[WERNER SLABBERT]

Thank You Yongle
These solutions work Fantastic. as a noob at VBa i amtrying to power through the fact that i know less than a doorknob about coding, but try and fail... so just a quick question, is there a way i can send you a copy of my form for tips and so on. ?

Regards
Joe

 

[Yongle]

The best way to get better at userforms is to get a proper understanding of the nuts'n'bolts - have a look at this useful clear guide to userforms