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