Code VBA avec caractère @

Version imprimable

07/11/2007, 21h33
Jacques-Henri

Code VBA avec caractère @

J'ai un formulaire d'une BDD qui comporte un champ email en données texte pour changer plus facilement une adresse mail.J'ai créé un bouton de commande qui sur clic ouvre l'application outlook avec cette adresse. J'ai aussi ajouté au code VBA q'un champ email null donne un message et n'ouvre pas outlook. Ceal marche très bien . Je bute sur le problème suivant :
avec ce même clic je voudrais insérer dans le code VBA que si le caractère @ est absent,ni plus , ni moins, un message s'affiche et n'ouvre pas outlook. Est-ce possible et comment y arriver.
Merci pour une aide .

Bonsoir,

Sur ton bouton quelque chose genre :

Code:

1
2
3
4
5
If InStr(1, Me!TxtchampEmail, "@", vbTextCompare) = 0 Or InStr(1, Me!TxtchampEmail, "'", vbTextCompare) > 0 Or InStr(1, Me!TxtchampEmail, """", vbTextCompare) > 0 Then
   MsgBox "L'adresse de messagerie que vous venez d'entrer n'est pas une adresse de messagerie valide !", vbExclamation, "Envoi Email"
   Exit Sub
Else
'On ouvre....

Cordialement.

08/11/2007, 21h41
Jacques-Henri

[Résolu] Code VBA avec caractère @

Super, ta proposition fonctionne à merveille.Merci pour ta réponse rapide .J'ai essayé en début d'apmidi et cela marche parfaitement. Seulement, une petite correction doit être apportée à la ligne code : le champ "Email" étant intrinsèquement un champ de la table sur laquelle le formulaire est construit, il faut faire sauter Txtchamp dans l'expression "TxtchampEmail" et tout rentre dans l'ordre.Sinon,un message d'erreur s'affiche : membre de données intouvable.
Bravo pour la solution.
Petite question, à quoi servent le "" et "" "" associé au >0 dans l'expression. Je ne vois pas bien?
@micalement
09/11/2007, 07h15
francishop

Bonjour,

Citation:

Envoyé par Jacques-Henri

le champ "Email" étant intrinsèquement un champ de la table sur laquelle le formulaire est construit, il faut faire sauter Txtchamp dans l'expression "TxtchampEmail" et tout rentre dans l'ordre.

Petite question, à quoi servent le "" et "" "" associé au >0 dans l'expression.

Il est vrai que j'ai été un peu succinct. A la place de "TxtchampEmail" j'aurai pu mettre "TonChampEmail"
Lors de notre construction de recherche nous demandons la première fois : Si tu trouves 0 fois-->@-->Rappel à l'ordre de l'étourdi.
Ensuite nous faisons le sens contraire : Si tu trouves au moins 1fois-->"Ce qu'on ne veut pas"-->Rappel à l'ordre de l'étourdi.

Ici, on peut retenir "Or"(Ou) qui permet de poser autant de condition que de besoin.

Cordialement.
09/11/2007, 21h01
Jacques-Henri

Effectivement le champ aurait pu être adapté,mais le principal, n'est-il pas d'avoir pu obtenir une aide salvatrice?
Encore merci pour les explications supplémentaires. Je comprends mieux maintenant et c'est vrai qu'avec la fonction ou (or) l'on peut adapter selon le besoin.
Cordi@lement.