Visual Basic Forum

matzebo · Newbie Anmeldedatum: 31.08.2002 Beiträge: 2

Guten Tag
ich habe eine Frage, es geht um eine on error goto Anweisung. Ich habe eine Textfeld dort sollen nur Zahlen eingegeben werden, wenn aber ein Buchstabe geschrieben wird soll eine NsgBox erscheinen mit den Hinweis "Falsche Eingabe": Ich habe schon probiert aber es hat noch nicht klappen wollen hier ist mein Quellcode: würde mich um Antwort freuen.

Private Sub txtek_Change()
On Error GoTo fehler
Einkaufspreis = Format$(txtek.Text, "0.00")
MsgBox "Falsche Eingabe"
Exit Sub
fehler:
Exit Sub
Resume Next
End Sub

_________________

Laborassi · Newbie Anmeldedatum: 01.09.2002 Beiträge: 4

Fehlt bei der MsgBox nicht etwas?
Sowas wie vbOKOnly oder so?

Ich meine VB muss doch wissen um was es sich handelt. Caption fehlt auch...

Hanno · Coder Anmeldedatum: 22.08.2001 Beiträge: 82

Quote:

Fehlt bei der MsgBox nicht etwas?
Sowas wie vbOKOnly oder so?

Ich meine VB muss doch wissen um was es sich handelt. Caption fehlt auch...

Ne.. braucht man nicht... VB verwendet dann Standardwerte...

Und ich glaube so müsste es gehen: (also den msgbox-befehl verschoben)

Private Sub txtek_Change()
On Error GoTo fehler
Einkaufspreis = Format$(txtek.Text, "0.00")
Exit Sub
fehler:
MsgBox "Falsche Eingabe"
Exit Sub
Resume Next
End Sub

_________________
Bin Admin - wer noch? Wink