IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Code VBA avec caractère @


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Cadre technique
    Inscrit en
    Mai 2006
    Messages
    194
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Cadre technique
    Secteur : Service public

    Informations forums :
    Inscription : Mai 2006
    Messages : 194
    Par défaut 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 .

  2. #2
    Membre Expert

    Profil pro
    Inscrit en
    Mars 2006
    Messages
    1 350
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 1 350
    Par défaut
    Bonsoir,

    Sur ton bouton quelque chose genre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  3. #3
    Membre confirmé
    Profil pro
    Cadre technique
    Inscrit en
    Mai 2006
    Messages
    194
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Cadre technique
    Secteur : Service public

    Informations forums :
    Inscription : Mai 2006
    Messages : 194
    Par défaut [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

  4. #4
    Membre Expert

    Profil pro
    Inscrit en
    Mars 2006
    Messages
    1 350
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 1 350
    Par défaut
    Bonjour,
    Citation Envoyé par Jacques-Henri Voir le message
    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.

  5. #5
    Membre confirmé
    Profil pro
    Cadre technique
    Inscrit en
    Mai 2006
    Messages
    194
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations professionnelles :
    Activité : Cadre technique
    Secteur : Service public

    Informations forums :
    Inscription : Mai 2006
    Messages : 194
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Modifier Code VBA avec macro
    Par lenovo49 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/01/2012, 18h39
  2. Code VBA pour caractéres spéciaux
    Par buddyMick dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/09/2010, 12h34
  3. Problème de comparaison de 2valeur en VBA avec caractères spéciaux
    Par syd75 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/08/2010, 14h34
  4. copier le code vba avec sa mise en forme
    Par gritchou dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 10/06/2008, 09h00
  5. Modifier Code VBA avec macro
    Par yadla dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 27/08/2007, 11h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo