Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Eingabeformat...
zurück: Kombinationsfeld und Datum weiter: Run-time Error '2185' 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
JTR
Excel&Access&VBA-Halbwegskenner


Verfasst am:
06. Feb 2007, 12:45
Rufname:

Eingabeformat... - Eingabeformat...

Nach oben
       Version: Office XP (2002)

Hi Leute,

(wie) kann ich ein Eingabeformat erstellen, welches so aussieht:

ENTWEDER

nn(Zahl)

ODER

(zahl)-(zahl)-(zahl)

Valide Beispiele:

nn4082
481-010002-893
10-3888-97124
1-1-1

Ob per Eingabeformat oder VBA geprüft wird, ist mir egal.
nn(zahl) kann ich leicht prüfen, aber das mit den strichen weiss ich nicht.

Gruß!

_________________
- Man muß viel gelernt haben, um das, was man nicht weiß, erfragen zu können. (Jean-Jacques Rousseau) -

Wer den C64 mag, schaue in mein Profil.
Nouba
nicht ganz unwissend :)


Verfasst am:
06. Feb 2007, 13:02
Rufname:
Wohnort: Berlin

AW: Eingabeformat... - AW: Eingabeformat...

Nach oben
       Version: Office XP (2002)

Hallo,

mit einem Regulären Ausdruck lässt sich die Prüfung relativ einfach gestalten.
Code:
Function rxTest(Text As Variant, _
                Pattern As String, _
                Flags As String, _
                Optional Destroy As Boolean = True) As Boolean
  Static rx         As Object

  If Len(Text & "") > 0 Then
    If rx Is Nothing Then
      Set rx = CreateObject("VBScript.RegExp")
    End If
    rx.IgnoreCase = CBool(InStr(1, Flags, "i") > 0)
    rx.Global = CBool(InStr(1, Flags, "g") > 0)
    rx.MultiLine = CBool(InStr(1, Flags, "m") > 0)
    rx.Pattern = Pattern
    rxTest = rx.Test(Text)
    If Destroy Then
      Set rx = Nothing
    End If
  End If
End Function
Hier folgen einige Beispielaufrufe aus dem VBA-Direktbereich.
Code:
?rxTest("nn123456", "^(nn\d+|\d+-\d+-\d+)$", "")
Wahr

?rxTest("nn 123456", "^(nn\d+|\d+-\d+-\d+)$", "")
Falsch

?rxTest(" nn123456", "^(nn\d+|\d+-\d+-\d+)$", "")
Falsch

?rxTest("nn123456 ", "^(nn\d+|\d+-\d+-\d+)$", "")
Falsch

?rxTest("12-34-56", "^(nn\d+|\d+-\d+-\d+)$", "")
Wahr

?rxTest("12-34-5-6", "^(nn\d+|\d+-\d+-\d+)$", "")
Falsch

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
JTR
Excel&Access&VBA-Halbwegskenner


Verfasst am:
06. Feb 2007, 13:23
Rufname:


AW: Eingabeformat... - AW: Eingabeformat...

Nach oben
       Version: Office XP (2002)

Als ich "Nouba" gelesen hatte, dachte ich mir schon, dass eine perfekte Lösung kommt....

VIELEN DANK!!!!!!!!!!!!!!!

Ich wusste gar nicht, dass es unter Access regexp gibt. Ist ja auch etwas knochig eingebaut - umso mehr des dankes - funktioniert wunderbar!

_________________
- Man muß viel gelernt haben, um das, was man nicht weiß, erfragen zu können. (Jean-Jacques Rousseau) -

Wer den C64 mag, schaue in mein Profil.
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 Formulare: Fehler in Textbox mit Eingabeformat automatisch verbessern 9 Jürgen Z 97 20. Nov 2013, 15:06
Jürgen Z Fehler in Textbox mit Eingabeformat automatisch verbessern
Keine neuen Beiträge Access Formulare: Eingabeformat Textfeld 3 spiele61 188 18. Feb 2013, 10:59
Gast Eingabeformat Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Nur ein bestimmtes Eingabeformat zulassen 2 Marc alle Zahlen probiert 303 27. Sep 2012, 10:31
Marc alle Zahlen probiert Nur ein bestimmtes Eingabeformat zulassen
Keine neuen Beiträge Access Formulare: Benutzerdefiniertes Eingabeformat / Quartal/Jahr 3 Semolo 410 30. Aug 2012, 11:08
Semolo Benutzerdefiniertes Eingabeformat / Quartal/Jahr
Keine neuen Beiträge Access Programmierung / VBA: Eingabeformat mit Buchtaben mit VBA überprüfen 4 Werwolfli 505 14. Mai 2012, 13:56
MissPh! Eingabeformat mit Buchtaben mit VBA überprüfen
Keine neuen Beiträge Access Formulare: Eingabeformat 2 wimmera 307 21. Apr 2012, 00:03
wimmera Eingabeformat
Keine neuen Beiträge Access Formulare: Formular übernimmt nicht das Eingabeformat 4 stefanb96 293 11. Apr 2012, 17:35
KlausMz Formular übernimmt nicht das Eingabeformat
Keine neuen Beiträge Access Tabellen & Abfragen: Hilfe bei Eingabeformat 6 tean101 283 09. Aug 2011, 08:30
tean101 Hilfe bei Eingabeformat
Keine neuen Beiträge Access Formulare: Eingabeformat "Kennwort" mit Button wieder lesbar 12 SStorch 506 03. Dez 2010, 11:34
SStorch Eingabeformat "Kennwort" mit Button wieder lesbar
Keine neuen Beiträge Access Formulare: Eingabeformat 0 Osagebow 399 17. Sep 2009, 14:25
Osagebow Eingabeformat
Keine neuen Beiträge Access Formulare: Eingabeformat in Formular 4 Sebu 398 26. Feb 2009, 14:24
Sebu Eingabeformat in Formular
Keine neuen Beiträge Access Programmierung / VBA: Fehlermeldung bei falschem Eingabeformat ändern 9 No_More 1120 24. Apr 2008, 18:15
Willi Wipp Fehlermeldung bei falschem Eingabeformat ändern
 

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