Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access E.mail

E.mail

12 réponses
Avatar
jourdelan
Bonsoir,
je souhaiterai savoir s'il existe un procédé pour faire le masque de saisie
des E.mails
Merci
RV
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
3stone
Salut,

"jourdelan"
| je souhaiterai savoir s'il existe un procédé pour faire le masque de saisie
| des E.mails


Non, les éléments ne sont pas suffisement "rigide".

Mais tu peux vérifier si la saisie a la bonne organisation.
Voir : IsEmail()
http://www.15seconds.com/issue/991014.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
jourdelan
"3stone" a écrit dans le message de news:

Salut,

"jourdelan"
| je souhaiterai savoir s'il existe un procédé pour faire le masque de
saisie
| des E.mails


Non, les éléments ne sont pas suffisement "rigide".

Mais tu peux vérifier si la saisie a la bonne organisation.
Voir : IsEmail()
http://www.15seconds.com/issue/991014.htm


Merci de m'avoir répondu, mais je ne comprend pas l'anglais .

Avatar
3stone
Salut,

"jourdelan"
| Merci de m'avoir répondu, mais je ne comprend pas l'anglais .


Bah... pas besoin de réellement comprendre ;-)


Tu colle cette fonction dans un module général :


Function IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@") 'Location of "@"

If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
' le "@" doit exister et le reste de la chaine doit contenir un "."
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
' la chaine ne peut contenir plus d'un "@"
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
' un "." ne peut suivre immediatement le "@"
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
' la chaine doit se terminer par 2 caractères
IsEmail = False
End If
End Function


ensuite, sur avant mise à jour de ta zone de texte, tu mets qque chose comme:

Cancel = Not IsEmail([Nom du textbox])

il faudra obligatoirement saisir un émail pour quitter...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
jourdelan
"3stone" a écrit dans le message de news:

Salut,

"jourdelan"
| Merci de m'avoir répondu, mais je ne comprend pas l'anglais .


Bah... pas besoin de réellement comprendre ;-)


Tu colle cette fonction dans un module général :


Function IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@") 'Location of "@"

If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
' le "@" doit exister et le reste de la chaine doit contenir un "."
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
' la chaine ne peut contenir plus d'un "@"
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
' un "." ne peut suivre immediatement le "@"
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
' la chaine doit se terminer par 2 caractères
IsEmail = False
End If
End Function


ensuite, sur avant mise à jour de ta zone de texte, tu mets qque chose
comme:

Cancel = Not IsEmail([Nom du textbox])

il faudra obligatoirement saisir un émail pour quitter...


De nouveau merci, je vais essayer.

Avatar
jourdelan
"3stone" a écrit dans le message de news:

Salut,

"jourdelan"
| Merci de m'avoir répondu, mais je ne comprend pas l'anglais .


Bah... pas besoin de réellement comprendre ;-)


Pour moi si !

Tu colle cette fonction dans un module général :


C'est quoi un module général ?
C'est le problème des autodidacte sur le tard .

Function IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@") 'Location of "@"

If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
' le "@" doit exister et le reste de la chaine doit contenir un "."
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
' la chaine ne peut contenir plus d'un "@"
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
' un "." ne peut suivre immediatement le "@"
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
' la chaine doit se terminer par 2 caractères
IsEmail = False
End If
End Function


ensuite, sur avant mise à jour de ta zone de texte, tu mets qque chose
comme:

Cancel = Not IsEmail([Nom du textbox])

il faudra obligatoirement saisir un émail pour quitter...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



Avatar
3stone
Salut,

[on doit chercher tes réponses dans le texte...]


"jourdelan"
| > Bah... pas besoin de réellement comprendre ;-)
|
| Pour moi si !


Le VBA est toujours en anglais (heureusement)
Le reste n'est pas bien difficile ;-)


| > Tu colle cette fonction dans un module général :
|
| C'est quoi un module général ?

Par opposition au "module de formulaire" qui ne utilisable directement qu'au niveau
du formulaire ou il se trouve, un "module général" est écrit dans la section module,
onglet module et les sub ou fonctions qui s'y trouve peuvent être appellées de
n'importe quel endroit de l'application.

| C'est le problème des autodidacte sur le tard .

Heu... tu me prends pour un ch'tit jeunot ??

;-))

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
jourdelan
"3stone" a écrit dans le message de news:
%
Salut,

[on doit chercher tes réponses dans le texte...]


Mais encore ?

Heu... tu me prends pour un ch'tit jeunot ??

;-))


Non pour quelqu'un qui connait bien Access et dont ce doit être le métier.
J'ai fait ce que tu m'a conseillé, mais je ne sais pas ou mettre ça :
Cancel = Not IsEmail([Nom du textbox])
Tu vas dire que je le fais exprès, alors je l'ai mis là:
http://cjoint.com/?lwvYdJAx4Z

Avatar
3stone
Salut "le 1er janvier" ;-)

"jourdelan"
| > Heu... tu me prends pour un ch'tit jeunot ??
| >
| Non pour quelqu'un qui connait bien Access et dont ce doit être le métier.


Comme on peut se tromper, surtout sur la seconde partie :o))


| J'ai fait ce que tu m'a conseillé, mais je ne sais pas ou mettre ça :
| Cancel = Not IsEmail([Nom du textbox])
| Tu vas dire que je le fais exprès, alors je l'ai mis là:
| http://cjoint.com/?lwvYdJAx4Z


Là, tu peux être tranquille... cela ne fonctionnera... jamais !!!

Bon.
Clique sur le textbox sur le formulaire et demande les propriétés.

Ensuite... tu fais comme sur les images ;-)

http://cjoint.com/?lwwG0HdCUY



On va finir avec un forum "son et lumière".

MDR !

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
jourdelan
"3stone" a écrit dans le message de news:

Salut "le 1er janvier" ;-)

"jourdelan"
| > Heu... tu me prends pour un ch'tit jeunot ??
| >
| Non pour quelqu'un qui connait bien Access et dont ce doit être le
métier.


Comme on peut se tromper, surtout sur la seconde partie :o))


| J'ai fait ce que tu m'a conseillé, mais je ne sais pas ou mettre ça :
| Cancel = Not IsEmail([Nom du textbox])
| Tu vas dire que je le fais exprès, alors je l'ai mis là:
| http://cjoint.com/?lwvYdJAx4Z


Là, tu peux être tranquille... cela ne fonctionnera... jamais !!!

Bon.
Clique sur le textbox sur le formulaire et demande les propriétés.

Ensuite... tu fais comme sur les images ;-)

http://cjoint.com/?lwwG0HdCUY



On va finir avec un forum "son et lumière".

MDR !

Le ridicule ne tue pas alors c'est pas trop grave . Merci pour tout je me

mets au travail.

Avatar
jourdelan
"3stone" a écrit dans le message de news:

Salut "le 1er janvier" ;-)

"jourdelan"
| > Heu... tu me prends pour un ch'tit jeunot ??
| >
| Non pour quelqu'un qui connait bien Access et dont ce doit être le
métier.


Comme on peut se tromper, surtout sur la seconde partie :o))


| J'ai fait ce que tu m'a conseillé, mais je ne sais pas ou mettre ça :
| Cancel = Not IsEmail([Nom du textbox])
| Tu vas dire que je le fais exprès, alors je l'ai mis là:
| http://cjoint.com/?lwvYdJAx4Z


Là, tu peux être tranquille... cela ne fonctionnera... jamais !!!

Bon.
Clique sur le textbox sur le formulaire et demande les propriétés.

Ensuite... tu fais comme sur les images ;-)

http://cjoint.com/?lwwG0HdCUY

Les 3 petits points m'ouvre le générateur d'expréssion ?


1 2