plz check

• plz check von jhaustein vom 27.09.2003 08:07:12
  • AW: plz check - von Matthias G am 27.09.2003 08:31:50
    • super vielen dank - von jhaustein am 27.09.2003 16:28:53
      • AW: Bitte, gern geschehen - o.T. - von Matthias G am 27.09.2003 18:46:23
  • AW: plz check - von GerdW am 27.09.2003 14:08:51

Betrifft: plz check
von: jhaustein

Geschrieben am: 27.09.2003 08:07:12

hallo gemeinschaft-

möchte bei der eingabe der plz in ein textfeld überprüfen, ob die eingabe auch nur aus zahlen, bzw. auch 5 stellig ist

kann mir dabei jemand helfen

gruss
jörg


Betrifft: AW: plz check
von: Matthias G
Geschrieben am: 27.09.2003 08:31:50

Hallo Jörg,

Function IstPLZ(wert As String) As Boolean
IstPLZ = False
If Not IsNumeric(wert) Then Exit Function
If Val(wert) <= 0 Then Exit Function
If InStr(wert, ",") <> 0 Then Exit Function
If Len(CStr(wert)) <> 5 Then Exit Function
IstPLZ = True
End Function

es wird hier natürlich nicht geprüft, ob die PLZ tatsächlich existiert, aber sie muss 5-stellig sein und darf nur Ziffern enthalten.

Grüße,
Matthias




Betrifft: super vielen dank
von: jhaustein
Geschrieben am: 27.09.2003 16:28:53

.




Betrifft: AW: Bitte, gern geschehen - o.T.
von: Matthias G
Geschrieben am: 27.09.2003 18:46:23

-




Betrifft: AW: plz check
von: GerdW
Geschrieben am: 27.09.2003 14:08:51

Immer diese Ausdrucksprobleme, was für ein Textfeld meist du? Bei
Steuerelementen heißen die Textbox.

Gerd