Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

E-Mail-Adressen, in denen nur folgende Zeichen vorkommen...





Frage

Hallo zusammen, ich möchte auf unserer Datenbank eine E-Mail-Adressprüfung durchführen. Dabei liegt mir eine Liste vor, welche Buchstaben, Symbole und Zahlen in E-Mail-Adressen generell [b]vorkommen dürfen[/b]. Wie kann ich dabei folgendes abfragen? Selektiere alle E-Mail-Adressen, die ein oder mehrere Zeichen enthalten, die sich [b]NICHT[/b] in folgender Auflistung befinden: a, b, c, d, e, f, g, h, i, j ,k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, -, ., _, @, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 Ist so etwas möglich? Danke für eure Hilfe und Grüße Ruben

Antwort 1 von RalfH

Guten Morgen Ruben,


Zitat:
Dabei liegt mir eine Liste vor, welche Buchstaben, Symbole und Zahlen in E-Mail-Adressen generell vorkommen dürfen.

Damit kannste arbeiten, ungefähr so:

Function Affedrinn()
Dim myUserAdresse
Dim myPosition
'   Schritt 01: Lese die Adresse
myUserAdresse = InputBox("eMail Adresse eingeben bitte")

'   Schritt 02: Test die Adresse auf den "@"
myPosition = InStr(myUserAdresse, "@")

If myPosition = 0 Then

'    kein Affe drin --> Abbruch
'MsgBox "Adresse ungültig", vbCritical
Else
MsgBox "Adresse geprüft und OK", vbInformation
End If

End Function

Gruß Ralf

Antwort 2 von erik

Hallo Ruben,

sowas geht sehr einfach mit dem LIKE-Operator in Verbindung mit einem passenden Suchmuster. Das von dir gewünschte Ergebnis wird über das folgende Suchmuster erreicht:

If strMeineAdresse Like "*[!A-z0-9@_.-]*" Then
	MsgBox"Ungültige Zeichen gefunden."
End If


Was man mit LIKE alles anstellen kann, steht ausführlich in der Hilfe beschrieben. Einfach nur mit der Maus auf das Like-Schlüsselwort klicken und F1 drücken.

Gruß
erik

Antwort 3 von erik

... das kann übrigens auch genauso in Abfragen eingesetzt werden. Dort heißt LIKE dann nur WIE.

SELECT Dies, Das
FROM Woher
WHERE Was Like "*[!A-z0-9@_.-]*";


Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: