Verlassen der Textbox

Forumthread: Verlassen der Textbox

19.03.2007 19:55:04

dreho

Hallo,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verlassen der Textbox

19.03.2007 20:10:00

Ramses
AW: Verlassen der Textbox

19.03.2007 21:08:31

dreho
AW: Verlassen der Textbox

19.03.2007 21:17:30

Ramses

AW: Verlassen der Textbox

19.03.2007 20:10:00

Ramses

Hallo
Ungetestet,... aber probier mal


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)
If dblMwstSatz = 0 Then
MsgBox ("Der Mwst-Satz ist keine gültige Zahl!")
txtMwstSatz.Text = ""
Cancel = True
Exit Sub
End If
txtMwstSatz.Text = Format(txtMwstSatz.Text, "##,##0.00")
End Sub

Gruss Rainer

AW: Verlassen der Textbox

19.03.2007 21:08:31

dreho

Hallo
Ungetestet,... aber probier mal
es gibt immer wieder User, die versuchen das Ding als Unbrauchbar zu werten.
Gibt man "1a" im Textfeld >txtMwstSatz diesen Wert akzeptiert das folgende Script leider, und gibt 0.04 zurück.
Trotzdem besten Dank für den Beitrag
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)
If dblMwstSatz = 0 Then
MsgBox ("Der Mwst-Satz ist keine gültige Zahl!")
txtMwstSatz.Text = ""
Cancel = True
Exit Sub
End If
txtMwstSatz.Text = Format(txtMwstSatz.Text, "##,##0.00")
End Sub

AW: Verlassen der Textbox

19.03.2007 21:17:30

Ramses

Hallo
Sorry,... aber ich habe nicht die Gültigkeit deiner Eingabe geprüft.
Das ist deine Sache.
Deine Frage lautete wie der Focus an die Textbox zurückgegeben wird, und das macht der Code,... sofern die Bedingungen zutreffen.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Forumthread: Verlassen der Textbox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread