Re: Vergleich auf Gerade
06.03.2003 15:58:04
Don White
Hi Gordon,dein Tip leutet mir schon ein, aber er funzt einfach nicht bei mir :((((
HAb hier mal einen kurzen Code Auszug:
If Not IsNumeric(Jahr1.Value) Then
MsgBox "Fehler - Der Wert des aktuellen Jahres muss gerade und numerisch sein!", vbCritical, Fehler
Jahr1.SetFocus
Jahr1.SelStart = 0
Jahr1.SelLength = Len(Jahr1.Text)
ElseIf (Jahr1.Value <> Int(Jahr1.Value)) Then
MsgBox "Fehler - Der Wert des aktuellen Jahres muss gerade und numerisch sein!", vbCritical, Fehler
Jahr1.SetFocus
Jahr1.SelStart = 0
Jahr1.SelLength = Len(Jahr1.Text)
Zu erst überprüfe ich ob es sich um eine Zahl handelt -> klappt!
Aber die überprüfung ob gerade oder nicht haut nicht hin, er geht immer zur Fehlermeldung über, egal ob ich eine gerade oder ungerade zahl eingebe!
Ich versteh das nicht.
Danke im Voruas
Gruß Don