Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Sonderzeichen in Feld verbieten
zurück: Unterformular - bestimmte Datensätze aus Tabelle weiter: Aktualisierung SQL Server von Textfelder und Komboboxen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
tom2ba
ECM / KM / BPM / CMS


Verfasst am:
13. März 2011, 15:23
Rufname:
Wohnort: berlin

Sonderzeichen in Feld verbieten - Sonderzeichen in Feld verbieten

Nach oben
       Version: Office 2007

Hallo,

ich möchte in einem Feld die Sonderzeichen verbieten, bzw. nur a-z A-Z 0-9 und _ erlauben. Der Rest sollte möglichst nicht funktionieren.

Ich habe es so versucht.
Code:
Private Sub PlayerName_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
      Case 34, 42, 47, 58, 60, 62, 63, 92, 124, 106, 107, 108, 109, 110, 111, 32, 228, 246, 252, 196, 214, 220
        KeyAscii = 0
        Beep
    End Select
End Sub
Wie mache ich das Richtig, denn so bekomme ich Fehler. Sad

DANKE für die HILFE schon im voraus.

_________________
_______________________________________
This message is transmitted using 100% recycled electrons!!!
KlausMz
Moderator Access


Verfasst am:
13. März 2011, 19:21
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Sonderzeichen in Feld verbieten - AW: Sonderzeichen in Feld verbieten

Nach oben
       Version: Office 2007

Hallo,
Du kannst eine vorgegebene Ereignisprozur nicht einfach nach Belieben anpassen.
Code:
Private Sub PlayerName_KeyPress(KeyAscii As Integer) 'unverändert lassen
    Select Case KeyAscii
      Case 34, 42, 47, 58, 60, 62, 63, 92, 124, 106, 107, 108, 109, 110, 111, 32, 228, 246, 252, 196, 214, 220
        KeyAscii = 0
        Beep
    End Select
End Sub
Ändere mal wie folgt:
Code:
Private Sub Text13_KeyPress(KeyAscii As Integer)
    Dim EingabeZeichen As String
   
    EingabeZeichen = Chr(KeyAscii)
    Select Case EingabeZeichen
      Case "a" To "z", "0" To "9", Asc(EingabeZeichen) = 8
        Exit Sub
    End Select
    KeyAscii = 0
End Sub
"a" To "z" gilt auch für Großbuchstaben und das mit der 8 ist die Rücktaste zum Löschen eines Zeichens. Die geht dann auch.

PS:
bekomme ich einen Fehler ist für Dich wenig hilfreich. Bitte immer auch die Fehlermeldung zitieren.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
tom2ba
ECM / KM / BPM / CMS


Verfasst am:
13. März 2011, 22:13
Rufname:
Wohnort: berlin

AW: Sonderzeichen in Feld verbieten - AW: Sonderzeichen in Feld verbieten

Nach oben
       Version: Office 2007

Hi und Danke für die Hilfe,

es funktioniert fast komplett. die Eingabe von a-z ermöglicht allerdings noch ö ä ü ist immer noch möglich. Kann ich das noch abstellen?

Das Löschen von Zeichen funktioniert leider nicht (Backspace) obwohl es funktionieren sollte.

Ich habe 127 (löschen) auch noch dazu gegeben. Dieses funktioniert.
Code:
Private Sub PlayerName_KeyPress(KeyAscii As Integer)
    Dim EingabeZeichen As String
   
    EingabeZeichen = Chr(KeyAscii)
    Select Case EingabeZeichen
      Case "a" To "z", "0" To "9", Asc(EingabeZeichen) = 8, Asc(EingabeZeichen) = 127
        Exit Sub
    End Select
    KeyAscii = 0
End Sub
p.s. Du hast Recht, nächstes Mal mit der exakten Fehlermeldung. Wink
_________________
_______________________________________
This message is transmitted using 100% recycled electrons!!!
KlausMz
Moderator Access


Verfasst am:
14. März 2011, 00:21
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Sonderzeichen in Feld verbieten - AW: Sonderzeichen in Feld verbieten

Nach oben
       Version: Office 2007

Hallo,
versuche mal den da:
Code:
Private Sub PlayerName_KeyPress(KeyAscii As Integer)
    Dim strVorgabe As String
   
    strVorgabe = "1234567890abcdefghijklmnopqrstuvwxyz" 'Zugelassene Zeichen, erkennt auch Großbuchstaben
    If InStr(strVorgabe, Chr(KeyAscii)) > 0 Then Exit Sub
    Select Case KeyAscii 'ASCII Code zugelassener Sonderzeichen
      Case 8
        Exit Sub
    End Select
    KeyAscii = 0
End Sub
Die Großbuchstaben müssen nicht extra eingegeben werden, der Vergleich ist neutral. Kann aber auch geändert werden.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
tom2ba
ECM / KM / BPM / CMS


Verfasst am:
14. März 2011, 11:07
Rufname:
Wohnort: berlin


AW: Sonderzeichen in Feld verbieten - AW: Sonderzeichen in Feld verbieten

Nach oben
       Version: Office 2007

PERFEKT!!!

Das klappt super!

VIELEN DANK dafür.

_________________
_______________________________________
This message is transmitted using 100% recycled electrons!!!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: leeres feld abfragen 5 grumble 27461 14. Nov 2005, 10:50
Willi Wipp leeres feld abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Feldinhalt soll mit Feld einer anderen Tabele verknüpft sein 2 mcme 1022 19. Okt 2005, 13:15
mcme Feldinhalt soll mit Feld einer anderen Tabele verknüpft sein
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus zwei Feldern in einem Feld zusammenführen 2 Bernie08 1218 28. Sep 2005, 12:50
Bernie08 Daten aus zwei Feldern in einem Feld zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeichen und Sonderzeichen eingeben in Tabellen! 7 Muschimaus 9991 15. Sep 2005, 16:09
Ritterwirtkeller Zeichen und Sonderzeichen eingeben in Tabellen!
Keine neuen Beiträge Access Tabellen & Abfragen: Feld als Kriterie für eine SQL-Anweisung [gelöst] 1 silver86 603 26. Aug 2005, 07:18
jens05 Feld als Kriterie für eine SQL-Anweisung [gelöst]
Keine neuen Beiträge Access Tabellen & Abfragen: Aus Abfrage auf ein Feld im Formular zugreifen 5 Olsen 1646 11. Jul 2005, 12:34
Willi Wipp Aus Abfrage auf ein Feld im Formular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Sonderzeichen werden in ein anderes Zeichen umgewandelt 2 Kranich 776 13. Jun 2005, 11:21
Gast Sonderzeichen werden in ein anderes Zeichen umgewandelt
Keine neuen Beiträge Access Tabellen & Abfragen: Im Feld Telefon das Zeichen "/" ersetzen 9 Stargate1960 2323 10. Mai 2005, 11:39
Willi Wipp Im Feld Telefon das Zeichen "/" ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Numerische Werte in als Text definiertem Feld 4 Terminator 811 25. Apr 2005, 07:50
stpimi Numerische Werte in als Text definiertem Feld
Keine neuen Beiträge Access Tabellen & Abfragen: select.... where mit einer Variablen/Feld statt 'Text' abfr. 3 Guybrush junior 2745 07. März 2005, 20:28
Guybrush junior select.... where mit einer Variablen/Feld statt 'Text' abfr.
Keine neuen Beiträge Access Tabellen & Abfragen: Leeres Feld mit "no info" ausfüllen 2 Gast 696 14. Feb 2005, 15:25
Gast Leeres Feld mit "no info" ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: wie kann ich "#Fehler" aus dem feld rauslöschen? 5 drum_sax 613 04. Feb 2005, 14:40
stpimi wie kann ich "#Fehler" aus dem feld rauslöschen?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum