Bonjour,
J'ai trouvé dans votre forum le code VBA pour tester si une chaine de caractère correspond à une adresse email. Je débute dans access et je ne sais pas comment l'utiliser dans un formulaire pour tester le contrôle correspondant à mon adresse. Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Public Function EmailValide(ByVal Email As String) As Boolean Dim regEx As RegExp, occurrences As MatchCollection Set regEx = New RegExp regEx.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}\.[a-z]{2,3}$" regEx.IgnoreCase = True ' Ne pas distinguer les minuscules des majuscules regEx.Global = False 'Renvoyer seulement la première occurrence Set occurrences = regEx.Execute(Email) EmailValide = (occurrences.Count = 1) End Function
Partager