JP001 Geschrieben 18. Juli 2002 Geschrieben 18. Juli 2002 Guten Morgen!!! Ich hoffe von euch kann mir jemand helfen, ich hab folgendes Problem, ich möchte das der Kunde im Eingabefeld (text1) keine Umlaute eingeben kann.... Mein Script dafür wäre: Text1.Text = Eingabe If Eingabe = "ä" Then MsgBox "Sie können keine Umlaute eingeben", vbInformation ElseIf Eingabe = "ö" Then MsgBox "Sie können keine Umlaute eingeben", vbInformation ElseIf Eingabe = "ü" Then MsgBox "Sie können keine Umlaute eingeben", vbInformation Else MsgBox "Ihre Eingabe war korrekt!", vbInformation End If End Sub Aber es kommt immer nur Ihre Eingabe war korrekt, egal was ich eingebe!!! Könnt ihr mir da helfen? Vielen Dank Gruss JP Zitieren
Fallin Geschrieben 18. Juli 2002 Geschrieben 18. Juli 2002 Tach Post! Lege doch einfach deinen Prüfcode im Keypress Ereignis ab. Das könnte dann so ausschauen: Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 228 ' ä MsgBox "Sie können keine Umlaute eingeben", vbInformation KeyAscii = 0 Case 246 ' ö MsgBox "Sie können keine Umlaute eingeben", vbInformation KeyAscii = 0 Case 252 ' ü MsgBox "Sie können keine Umlaute eingeben", vbInformation KeyAscii = 0 Case Else MsgBox "Ihre Eingabe war korrekt!", vbInformation End Select End Sub Ich habe das jetzt nur mal für die kleinen Umlaute gemacht... Damit kann man aber auch recht einfach die Eingabe aller Umlaute, Sonderzeichen, Steuerzeichen... verhindern. Man muß halt nur die einzelnen Fälle anpassen. Man kann auch recht gut mit < und > arbeiten. Das KeyAscii = 0 verhindert, daß das Zeichen angezeigt wird. Ich hoffe mal, es hat geholfen. Zitieren
JP001 Geschrieben 18. Juli 2002 Autor Geschrieben 18. Juli 2002 Vielen Dank für deine Hilfe!!!! Schönen Tag noch Gruss JP Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.