Discussion :

[Neilime05]

Salut après de nombreuse recherche sur google et sur le forum infructueuse je pose ma requête en drenier espoir:

c'est simple a expliquer mais je n'ai jamais réussi a la mettre en oeuvre je voudrais créer un masque de saisie pour une adresse email.
je sais que sa existe en php mais impossible de le transposé pour access

j'espere que quelqu'un à la solution ou si la réponse a déja été proposé veuillez m'excusé mais je ne l'ai pas trouvée...

merci d'avance

[Heureux-oli]

Bonjour et bienvenue sur le Forum Access de DVP.

Est-ce réellement à un masque de saisie que tu pense ou à faire une vérification de l'adresse.

En php, j'ai déjà vu des fonctions pour une vérification de l'adresse Email, mais pas de masque de saisie.

[Neilime05]

Non c'est vraiment un masque de saisie que je veux faire mais en effet sur php c'est une vérification mais ce n'est pas ce qui m'interesse

[Heureux-oli]

En général, le masque de saisie s'applique à une entrée de donnée qui est bien structurée.

Un numéro de téléphone, une date, une identification, parce qu'on connaît le nombre de caractère que l'on va utiliser.

Mais dans le cas où le nombre de caractères n'est pas fixé au départ, je ne vois pas comment faire.

Ce que l'on peut faire est un contrôle de l'introduction.

Peut-être un autre membre du forum pourra-t-il te venir en aide ?

[francishop]

Bonsoir;

La seule vérification que je connaisse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub cmdOK_Click()
If InStr(1, Me!Courriel, "@", vbTextCompare) = 0 Or InStr(1, Me!Courriel, "'", vbTextCompare) > 0 Or InStr(1, Me!Courriel, """", vbTextCompare) > 0 Then
   MsgBox "L'adresse de messagerie que vous venez d'entrer n'est pas une adresse de messagerie Internet valide !", vbExclamation, "HOP Contact"
   Exit Sub
ElseIf InStr(1, Me!Contact, "'", vbTextCompare) > 0 Or InStr(1, Me!Contact, """", vbTextCompare) > 0 Then
   MsgBox "Le nom du contact n'est pas un nom valide !", vbExclamation, "HOP'Contact"
   Exit Sub
Else

Cordialement

[b_steph_2]

moi j'ai trouvé comment avoir un masque de saisie sous access voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CCCCCCCCCCCCCCCCCCC\@LLL\.LL;;_

Le caractère C indique que tu peux mettre n'importe quel caractère et que la saisie est facultative
Le caractère L indique que tu dois mettre une lettre et que le saisie est obligatoire

J'espère que ça a pu t'aider....

moi en revanche je recherche un masque de saisie qui indique :
"__________@ghj.fr"

de façon à ce que ce qu'il y a après '@' soit fixe....
si quelqu'un a une idée....

merci d'avance

[Heureux-oli]

Ton masque de saisie et pas mal, mais comme les caractères qui suivent l' @ ne sont pas fixes, c'est un peu délicat.

Et pour les .com.

Pour ton masque, c'est assez simple, il suffit après saisie de faire une concaténation de ce qui est introduit pas l'utilisateur et de ce qui suit @xxxxxx.yy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Adress = EntreeUtilisateur & "@xxxxx.yyy"

[b_steph_2]

Merci pour le tuyau...

Pour ce qui est de la gestion du ".com" je n'ai pas besoin de m'en préoccuper... car les adresses que je vais gérer vont toutes terminer par ".fr"

si on avait voulu gérer les deux et avoir plus de caractère, il aurait fallu avoir le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CCCCCCCCCCCCCCCCCCC\@LLLCCCCCCCCC\.LLC;;_

Je vais tester ce que tu m'as passé...

[b_steph_2]

Donc je viens de tester et ça marche...

voici mon masque de saisie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CCCCCCCCCCCCCCCCCCC" @ght.fr"

et quand je saisie une adresse, j'obtiens :
"dupond.jean@ght.fr"

Voilà donc je pense qu'on a fait le tour du sujet... en espérant que la personne ayant posté ce message soit satisfaite... en tout cas ma recherche est terminée.

Merci pour l'aide.

[Neilime05]

En fait j'avais mal réfléchi sur mon probleme et c'été en effet une vérification dont j'avais besoin donc merci de vos réponses.

mais deuxième problème commetn est ce que je peux l'activer pour quelle vérifie a chaque entré dans la table?

[cafeine]

Hello,

pour une vérification pertinente d'une adresse email, regarde du côté des expressions régulières :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
allregexp "Patrick.Martin@wanapoo.com","([A-Za-z0-9_\-\.]+)@([A-Za-z0-9_\-\.]+)\.([A-Za-z0-9_\-\.]{2,5})","$1[at]$2[dot]$3"
==================================
      Travaux liés à .Execute
==================================
nombre d'occurences : 1
source >>     Patrick.Martin@wanapoo.com
[$1]          Patrick.Martin
[$2]          wanapoo
[$3]          com
==================================
        Travaux liés à .Test
==================================
Vrai
==================================
      Travaux liés à .Replace
==================================
Patrick.Martin[at]wanapoo[dot]com

la fonction AllRegExp est là :
http://cafeine.developpez.com/access.../regexp/#LII-B

[hammouda311283]

ESSAYER CE MASQUE


Règle de validation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Is Null Or ((Like "*?@?*.?*") And (Not Like "*[ ,;]*"))

BONNE CHANCE

[touffahtawfiq]

En général, le masque de saisie s'applique à une entrée de donnée qui est bien structurée.

Un numéro de téléphone, une date, une identification, parce qu'on connaît le nombre de caractère que l'on va utiliser.

Mais dans le cas où le nombre de caractères n'est pas fixé au départ, je ne vois pas comment faire.

Ce que l'on peut faire est un contrôle de l'introduction.

Peut-être un autre membre du forum pourra-t-il te venir en aide ?

Reponse Voir Règle de validation

Is Null Or ((Like "*?@?*.?*") And (Not Like "*[ ,;]*"))

[argyronet]

Bonjour,

Le plus simple et le plus efficace est des poser 2 zones de texte intercalées d'un @ dans un label.
La 1ère zone et la seconde zone régissent un appel de fonction qui est supervisée par la concaténation des 2 et l'@, le tout contrôlé par une RegExp sur la base de la suggestion de cafeine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Function EmailIsOk(ByVal EMail As String) As Boolean
Dim oRegExp As New VBScript_RegExp_55.RegExp
 
    oRegExp.Pattern = "([A-Za-z0-9_\-\.]+)@([A-Za-z0-9_\-\.]+)\.([A-Za-z0-9_\-\.]{2,5})","$1[at]$2[dot]$3"
    EmailIsOk = oRegExp.Test(EMail)
    Set oRegExp = Nothing
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub cmdEnregistrer_Click()
Dim strEmail As String
Dim blnIsOK As Boolean
 
    strEmail = Nz(Me.txtEmailName.Value, "") & "@" & Nz(Me.txtDomainName.Value, "")
    blnIsOK = EmailIsOk(strEmail) 
    If blnIsOK = False Then
        MsgBox "Adresse mail incorrecte !", vbExclamation
        Me.txtEmailName.SetFocus
     End If
    Me.cmdEnregistrer.Enabled = blnIsOK 
End Sub

Rien ne t'empêche pour autant de poser un masque approprié dans chacune des zones.

Argy