Verlassen der Textbox
19.03.2007 19:55:04
dreho
beim verlassen des Feldes txtMwstSatz soll:
die Gültigkeit geprüft werden,
das Textfeld richtig formatiert ausgegeben werden
und zu guter letzt, aufs das Textfeld zurückgesprungen werden,
sofern ein ungültiger Wert eingegeben wird.
Was mache ich falsch, das "SetFocus" nicht funktioniert.
Danke für eine Antwort
Markus
-------------------
Private Sub txtMwstSatz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Plausi auf Eingabe Prozentsatz
' mit "dblMwstSatz = Val(txtMwstSatz)" wird jede ungülitge Eingabe
' als Null (0) deklariert >> z.B. aus "A" wird 0
' mit SetFocus wird auf das Feld MwstEingabe zurückgesprungen
' dblMwstSatz ist Public
dblMwstSatz = Val(txtMwstSatz)
txtMwstSatz.Text = Format(txtMwstSatz.Text, "##,##0.00")
If (dblMwstSatz = 0) Then
MsgBox ("Der Mwst-Satz ist keine gültige Zahl!")
txtMwstSatz.Text = ""
txtMwstSatz.SetFocus
Exit Sub
End If
End Sub