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

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Associations - ONG

    Informations forums :
    Inscription : février 2019
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Boîte Message à 2 boutons sur Acess

    Bonjour,
    Je n'arrive pas à coder en VB une instruction simple qui réaliserait ceci:

    Un message s'affiche : "Voulez-vous vraiment quitter Access ?" avec 2 boutons OK et Annuler (ça peut aussi le faire avec Oui et Non).
    Si l'utilisateur clique sur OK (ou Oui), il quitte Access. S'il quitte sur Annuler (ou Non), il ne se passe rien.

    Quelqu'un pourrait m'écrire les quelques lignes qui vont bien.

    NB : Je n'ai pas trouvé de Macro Access qui fasse ça. Donc il faut l'écrire en VB.

    Merci !

  2. #2
    Expert éminent
    Avatar de tee_grandbois
    Homme Profil pro
    retraité mais encore activé
    Inscrit en
    novembre 2004
    Messages
    4 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité mais encore activé

    Informations forums :
    Inscription : novembre 2004
    Messages : 4 642
    Points : 7 900
    Points
    7 900

    Par défaut

    Bonjour PurgonPierre,
    NB : Je n'ai pas trouvé de Macro Access qui fasse ça. Donc il faut l'écrire en VB.
    cela peut s'écrire en Macro Access mais il faut connaitre la syntaxe, ce qui n'est pas évident au premier abord.

    En premier lieu, il faut connaitre la codification des boutons du message, il faut donc avoir lu la documentation de la fonction Msgbox (BoîteMessage en français, puisqu'on est dans l'environnement Macro et de ce fait l'interface est dans la langue locale) et plus particulièrement les parties Paramètres et Valeurs de Retour.

    Il faut également noter qu'un exemple est fourni pour l'utilisation de la fonction en VBA (Visual Basic for Applications) et non pas VB (Visual Basic) qui est un autre langage même si ils ont beaucoup de similarités.

    Pour convertir ce qui suit en macro Access
    "Voulez-vous vraiment quitter Access ?" avec 2 boutons OK et Annuler
    voici ce qu'il faut taper:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    BoîteMsg("Voulez-vous vraiment quitter Access ?";1+32+256;"Quitter")=1
    mais il faut d'abord sélectionner l'action Si et cliquer sur l'icône générateur d'expression:

    Nom : Mac__GenExpress.JPG
Affichages : 41
Taille : 24,0 Ko

    sélectionner ensuite la catégorie Messages des fonctions intégrées et choisir BoîteMsg

    Nom : mac_BoiteMsg.JPG
Affichages : 43
Taille : 46,9 Ko

    remplacer le texte du générateur par le code fourni plus haut, puis ajouter l'action QuitterAccess avec l'option Quitter
    La macro est terminée. Si on appuie sur Annuler il ne se passera rien puis qu'il ne doit rien se passer ...


    Nom : mac_QuitterAccess.JPG
Affichages : 39
Taille : 27,0 Ko

    Un dernier écran pour une meilleure compréhension:
    Nom : Mac_EnvrVBA.JPG
Affichages : 39
Taille : 49,2 Ko

    puisque dans l'environnement Macro Access les constantes VBA ne sont pas connues il suffit de se reporter à la documentation de la fonction pour remplacer ces constantes par leur équivalent numérique.
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...

  3. #3
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2009
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Réunion

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : octobre 2009
    Messages : 113
    Points : 130
    Points
    130

    Par défaut

    Bonjour,

    En complément de la réponse de tee_grandbois ;
    En VBA en affectant ce bout de code à un bouton :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub quitter_Click()
    Dim reponse As String
    reponse = MsgBox("Voulez-vous vraiment quitter Access ?", vbOKCancel)
    If reponse = vbOK Then
       Quit
    End If
    End Sub

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Associations - ONG

    Informations forums :
    Inscription : février 2019
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Boîte message avec 2 boutons sur Access

    Bonjour,

    Merci à tee-grandbois de cette réponse rapide, claire et précise !

    Pour le code, j'ai trouvé une réponse sur ce même forum, mais dans le domaine Excel. Le code suivant fonctionne également en affectant un bouton Access. Je n'ai pas testé celui de Volsan qui fonctionne sans doute également.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Commande19_Click()
    If MsgBox("Voulez vous vraiment quitter Access ?", vbYesNo, "Demande de confirmation") = vbYes Then
            Quit
        End If
    End Sub
    Mais le fait de pouvoir programmer une boîte message de ce type avec une macro Access put intéresser tous ceux qui comme moi ne sont pas très à l'aise avec les codes VBA et VB, d'autant que l'on peut facilement transformer une macro en code VBA ; l'inverse non...

    Merci de votre aide.
    Pierre

Discussions similaires

  1. message boite dialogue sur bouton
    Par justine91 dans le forum VBA Access
    Réponses: 15
    Dernier message: 25/02/2014, 14h55
  2. Envoyer automatiquement un message en cliquant sur un bouton
    Par fraginfo dans le forum Thunderbird
    Réponses: 0
    Dernier message: 11/01/2009, 12h19
  3. Message d'alert sur un bouton
    Par salsero1 dans le forum ASP.NET
    Réponses: 7
    Dernier message: 24/01/2008, 09h47
  4. Boîte de message sans bouton "Veuillez patienter..."
    Par Droïde Système7 dans le forum Delphi
    Réponses: 18
    Dernier message: 14/02/2007, 10h38
  5. Détruire un bouton sur son OnClick
    Par Volfoni dans le forum C++Builder
    Réponses: 5
    Dernier message: 08/06/2006, 12h00

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