Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Spectre
A priori, ça parait difficile vu que le nombre de carctère dans une adresse est variable;
Par contre, on peut tester si l'adresse saisie est bien formatée.
Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs Dim Tot_len Dim Pos_arob
If InStr(mail, "@") = False Then ' mail : nom du champs de saisie de l'adresse mail MsgBox "Il manque l' @ ", vbCritical End If
Tot_len = Len(mail) 'longueur total de l'email Pos_arob = InStr(mail, "@") 'position de l'arobase dans l'adresse
If InStr((Right(mail, (Tot_len - Pos_arob))), ".") = False Then MsgBox "Il manque un point dans la seconde partie de l'adresse ", vbCritical End If End Sub
"tonio" a écrit dans le message de news:
Bonjour,
quel doit être le masque de saisie pour un champs "e-mail"?
Merci
-- Tonio Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de mail : Mozilla thunderbird <http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger <http://messenger.msn.fr>
A priori, ça parait difficile vu que le nombre de carctère dans une adresse
est variable;
Par contre, on peut tester si l'adresse saisie est bien formatée.
Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs
Dim Tot_len
Dim Pos_arob
If InStr(mail, "@") = False Then ' mail : nom du champs de saisie de
l'adresse mail
MsgBox "Il manque l' @ ", vbCritical
End If
Tot_len = Len(mail) 'longueur total de l'email
Pos_arob = InStr(mail, "@") 'position de l'arobase dans l'adresse
If InStr((Right(mail, (Tot_len - Pos_arob))), ".") = False Then
MsgBox "Il manque un point dans la seconde partie de l'adresse ",
vbCritical
End If
End Sub
"tonio" <nospam.antoine.petruccelli@free.fr.nospam> a écrit dans le message
de news: mn.3b6e7d612645106b.33360@free.fr.nospam...
Bonjour,
quel doit être le masque de saisie pour un champs "e-mail"?
Merci
--
Tonio
Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> -
Lecteur de mail : Mozilla thunderbird
<http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur
internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn
Messenger <http://messenger.msn.fr>
A priori, ça parait difficile vu que le nombre de carctère dans une adresse est variable;
Par contre, on peut tester si l'adresse saisie est bien formatée.
Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs Dim Tot_len Dim Pos_arob
If InStr(mail, "@") = False Then ' mail : nom du champs de saisie de l'adresse mail MsgBox "Il manque l' @ ", vbCritical End If
Tot_len = Len(mail) 'longueur total de l'email Pos_arob = InStr(mail, "@") 'position de l'arobase dans l'adresse
If InStr((Right(mail, (Tot_len - Pos_arob))), ".") = False Then MsgBox "Il manque un point dans la seconde partie de l'adresse ", vbCritical End If End Sub
"tonio" a écrit dans le message de news:
Bonjour,
quel doit être le masque de saisie pour un champs "e-mail"?
Merci
-- Tonio Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de mail : Mozilla thunderbird <http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger <http://messenger.msn.fr>
tonio
Spectre a écrit dans son message :
A priori, ça parait difficile vu que le nombre de carctère dans une adresse est variable;
Par contre, on peut tester si l'adresse saisie est bien formatée.
Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs Dim Tot_len Dim Pos_arob
If InStr(mail, "@") = False Then ' mail : nom du champs de saisie de l'adresse mail MsgBox "Il manque l' @ ", vbCritical End If
Tot_len = Len(mail) 'longueur total de l'email Pos_arob = InStr(mail, "@") 'position de l'arobase dans l'adresse
If InStr((Right(mail, (Tot_len - Pos_arob))), ".") = False Then MsgBox "Il manque un point dans la seconde partie de l'adresse ", vbCritical End If End Sub
"tonio" a écrit dans le message de news:
Bonjour,
quel doit être le masque de saisie pour un champs "e-mail"?
Merci
-- Tonio Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de mail : Mozilla thunderbird <http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger <http://messenger.msn.fr>
Bonsoir et merci pour cette aide
comment faire pour que si il y a une erreur revenir sur le champ pour modification (de préférence à la fin sans surlignage de l'existant)
-- Tonio Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de mail : Mozilla thunderbird <http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger <http://messenger.msn.fr>
Spectre a écrit dans son message <e4iDfNHFGHA.740@TK2MSFTNGP12.phx.gbl> :
A priori, ça parait difficile vu que le nombre de carctère dans une adresse
est variable;
Par contre, on peut tester si l'adresse saisie est bien formatée.
Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs
Dim Tot_len
Dim Pos_arob
If InStr(mail, "@") = False Then ' mail : nom du champs de saisie de
l'adresse mail
MsgBox "Il manque l' @ ", vbCritical
End If
Tot_len = Len(mail) 'longueur total de l'email
Pos_arob = InStr(mail, "@") 'position de l'arobase dans l'adresse
If InStr((Right(mail, (Tot_len - Pos_arob))), ".") = False Then
MsgBox "Il manque un point dans la seconde partie de l'adresse ",
vbCritical
End If
End Sub
"tonio" <nospam.antoine.petruccelli@free.fr.nospam> a écrit dans le message
de news: mn.3b6e7d612645106b.33360@free.fr.nospam...
Bonjour,
quel doit être le masque de saisie pour un champs "e-mail"?
Merci
-- Tonio
Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur
de mail : Mozilla thunderbird
<http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur
internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn
Messenger <http://messenger.msn.fr>
Bonsoir et merci pour cette aide
comment faire pour que si il y a une erreur revenir sur le champ pour
modification (de préférence à la fin sans surlignage de l'existant)
--
Tonio
Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de
mail : Mozilla thunderbird
<http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet :
IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger
<http://messenger.msn.fr>
A priori, ça parait difficile vu que le nombre de carctère dans une adresse est variable;
Par contre, on peut tester si l'adresse saisie est bien formatée.
Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs Dim Tot_len Dim Pos_arob
If InStr(mail, "@") = False Then ' mail : nom du champs de saisie de l'adresse mail MsgBox "Il manque l' @ ", vbCritical End If
Tot_len = Len(mail) 'longueur total de l'email Pos_arob = InStr(mail, "@") 'position de l'arobase dans l'adresse
If InStr((Right(mail, (Tot_len - Pos_arob))), ".") = False Then MsgBox "Il manque un point dans la seconde partie de l'adresse ", vbCritical End If End Sub
"tonio" a écrit dans le message de news:
Bonjour,
quel doit être le masque de saisie pour un champs "e-mail"?
Merci
-- Tonio Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de mail : Mozilla thunderbird <http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger <http://messenger.msn.fr>
Bonsoir et merci pour cette aide
comment faire pour que si il y a une erreur revenir sur le champ pour modification (de préférence à la fin sans surlignage de l'existant)
-- Tonio Lecteur de News : MesNews <http://www.mesnews.net/chargement.php> - Lecteur de mail : Mozilla thunderbird <http://www.mozilla-europe.org/fr/products/thunderbird/> - Navigateur internet : IE6 <http://www.microsoft.com> - Messagerie instantanée : Msn Messenger <http://messenger.msn.fr>
3stone
Salut,
"tonio" | | > Private Sub mail_Exit(Cancel As Integer) 'mail = nom du champs
| | comment faire pour que si il y a une erreur revenir sur le champ pour | modification (de préférence à la fin sans surlignage de l'existant)
Il ne faut pas tester "Sur sortie" de la zone de texte, mais bien sur "Avant mise à jour"
