Hi,
Ich mache gerade ein kleine Projekt um das Progrmann etwas kenn zu lernen.
Ich habe 2 Text eingabe Felder, wenn ich eine Zahl 0 oder eine kleiner Eingebe soll eine msgBox erscheinen, wenn ich nach eingabe der Zahl auf Enter Drücke. (Bei Enter springt der Focus immer eins Weiter).
Könnt ih mir dabei helfen ??
Vielen Dank
Martin Rebmann
T-Rex
martinrebmann
„VB - bei Eingabe einer "0" oder kleinerer Zahl soll msgBox komme“
Ist aber noch ausbaufähig:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With Text1
If IsNumeric(.Text) Then
If Val(.Text) Call MsgBox("Zahl ist nicht größer als 0")
End If
Else
Call MsgBox("Das ist keine Zahl")
KeyAscii = 0
End If
End With
ElseIf (KeyAscii = 44) Then
KeyAscii = 46
End If
End Sub
