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 :

AfterUpdate - msgbox


Sujet :

VBA Access

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    331
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2010
    Messages : 331
    Points : 123
    Points
    123
    Par défaut AfterUpdate - msgbox
    Bonjour,

    Dans mon formulaire, j'ai un champ "Mutuelle" avec liste déroulante lié à une table "Mutuelle".

    J'aimerais qu'un msgbox s'affiche lorsque je sélectionne "317".


    Je me dirige vers :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub Mutuelle_Choix()
     
    If Me.[Mutuelle] = "317" Then
     
    MsgBox "Attention"
    End If
    End Sub
    ça fonctionne avec ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Mutuelle_AfterUpdate()
    MsgBox "Attention si MUT 317"
     
    End Sub
    Mais le message apparaît si je sélectionne autre chose que "317"

    Des idées ?

    Merci.

    Bonne journée.

  2. #2
    Responsable Systèmes


    Homme Profil pro
    Gestion de parcs informatique
    Inscrit en
    Août 2011
    Messages
    17 451
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Gestion de parcs informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Août 2011
    Messages : 17 451
    Points : 43 097
    Points
    43 097
    Par défaut
    Essayes avec:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Me.[Mutuelle].Value = "317"
    Ma page sur developpez.com : http://chrtophe.developpez.com/ (avec mes articles)
    Mon article sur le P2V, mon article sur le cloud
    Consultez nos FAQ : Windows, Linux, Virtualisation

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    331
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2010
    Messages : 331
    Points : 123
    Points
    123
    Par défaut
    Un super grand merci.

    Bon week-end

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

Discussions similaires

  1. Msgbox ne marche pas
    Par Immobilis dans le forum ASP
    Réponses: 8
    Dernier message: 27/07/2005, 10h31
  2. [JDialog] Création d'une msgbox perso
    Par TreizeSegments dans le forum Agents de placement/Fenêtres
    Réponses: 2
    Dernier message: 07/07/2004, 15h33
  3. [VB.NET] Form avec comportement msgbox
    Par Berns dans le forum Windows Forms
    Réponses: 2
    Dernier message: 14/06/2004, 11h09
  4. [VBA]répondre automatiquement à un msgbox
    Par gromite dans le forum Général VBA
    Réponses: 11
    Dernier message: 13/01/2004, 17h37
  5. [VB6] Code source pour modifier MsgBox
    Par khany dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 25/02/2003, 15h13

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