Il existe de bonnes fonctions de validation de formulaire, vous pouvez vous référer à '*************************************** *****
'Vérifiez s'il contient uniquement de l'anglais et des chiffres
'************************************
Fonction IsvalidValue (ArrayN, Str)
IsvalidValue = Faux
Dim GName
Pour chaque GName dans ArrayN
Si Str = GName Alors
IsvalidValue = Vrai
Quitter pour
Fin si
Suivant
Fonction de fin
'************************************
'Vérifiez si un numéro valide
'************************************
Fonction IsInteger (Para)
EstEntier = Faux
Si Non (IsNull(Para) Ou Trim(Para) = Ou Not IsNumeric(Para)) Alors
EstEntier = Vrai
Fin si
Fonction de fin
'************************************
'Détection du nom d'utilisateur
'************************************
Fonction IsValidUserName (byVal UserName)
Dim je,c
DimVUserName
IsValidUserName = Vrai
Pour i = 1 à Len (nom d'utilisateur)
c = LCase (Mid (Nom d'utilisateur, i, 1))
Si InStr($!<>?#^%@~`&*();:+=' , c) > 0 Alors
IsValidUserName = Faux
Fonction de sortie
Fin si
Suivant
Pour chaque VUserName dans Register_UserName
Si NomUtilisateur = VUserName Alors
IsValidUserName = Faux
Quitter pour
Fin si
Suivant
Fonction de fin
'************************************
'Vérifiez s'il existe une adresse e-mail valide
'************************************
Fonction IsValidEmail(Email)
Dim noms, Nom, i, c
IsValidEmail = Vrai
Noms = Split (e-mail, @)
Si UBound(noms) <> 1 Alors
IsValidEmail = Faux
Fonction de sortie
Fin si
Pour chaque nom DANS les noms
Si Len(Nom) <= 0 Alors
IsValidEmail = Faux
Fonction de sortie
Fin si
Pour i = 1 À Len(Nom)
c = LCase(Mid(Nom, i, 1))
Si InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 et non IsNumeric(c) alors
IsValidEmail = Faux
Fonction de sortie
Fin si
Suivant
Si Gauche(Nom, 1) = . Ou Droite(Nom, 1) = .
IsValidEmail = Faux
Fonction de sortie
Fin si
Suivant
Si InStr(names(1), .) <= 0 Alors
IsValidEmail = Faux
Fonction de sortie
Fin si
je = Len(noms(1)) - InStrRev(noms(1), .)
Si je <> 2 Et je <> 3 Alors
IsValidEmail = Faux
Fonction de sortie
Fin si
Si InStr(email, ..) > 0 Alors
IsValidEmail = Faux
Fin si
Fonction de fin