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 :

Désactiver "Quitter" dans menu "Fichier"


Sujet :

VBA Access

  1. #1
    Membre actif Avatar de quanou
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    311
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 311
    Points : 247
    Points
    247
    Par défaut Désactiver "Quitter" dans menu "Fichier"
    Bonjour,

    J'aimerais pouvoir forcer l'utilisateur à quitter l'application via un bouton, où je pourrais maîtriser le code. J'ai trouvé ceci :
    http://support.microsoft.com/kb/300688/en-us

    Ca marche bien pour le bouton X "Fermer" mais pas pour le menu fichier, à cette ligne.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
    L'argument attendu étant index et non le nom.

    Si vous avez d'autres idées, merci de votre aide

  2. #2
    Membre expert
    Avatar de FreeAccess
    Homme Profil pro
    Un monde ou prendre est plus facile qu'apprendre.
    Inscrit en
    Mars 2006
    Messages
    2 745
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Un monde ou prendre est plus facile qu'apprendre.

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 745
    Points : 3 834
    Points
    3 834
    Par défaut
    Bonjour,

    Je viens de tester sous AC2003.....il faut juste changer quelque peu le code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    'Disable the Menu Option
    Sub ExitMenuState(blnExitState As Boolean)
        Application.CommandBars("File").Controls("Quitter").Enabled = blnExitState
    End Sub
    J'espère que cela répondra à ton problème...

  3. #3
    Membre actif Avatar de quanou
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    311
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 311
    Points : 247
    Points
    247
    Par défaut
    Salut,

    Ca marche ! Egalement en AC2000

    J'ai bien pensé à traduire mais j'ai fait et pour "Fichier" et pour "Quitter"...

    Merci beaucoup !

  4. #4
    Futur Membre du Club
    Inscrit en
    Juillet 2009
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Juillet 2009
    Messages : 4
    Points : 5
    Points
    5
    Par défaut
    Bonjour,
    Ce sujet a été posté depuis longtemps mais j'ai le même problème sur cette ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    (Sub ExitMenuState(blnExitState As Boolean)
        Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
    End Sub)
    mais j'utilise Access 2007 version anglaise, et il me sort :
    run-time error 5, invalide procedure call or argument
    Est-ce quelqu'un pourrait m'aider?

    Merci

  5. #5
    Membre averti
    Homme Profil pro
    Amateur
    Inscrit en
    Octobre 2010
    Messages
    205
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Amateur

    Informations forums :
    Inscription : Octobre 2010
    Messages : 205
    Points : 360
    Points
    360
    Par défaut
    Bonjour,

    Je ne suis pas sûr que cette procédure sur les barres d'outils Access 2000-2003 puisse s'appliquer à Access 2007, qui n'utilisent plus les barres d'outils mais le ruban...

    Sinon, il y a une discussion ici http://www.developpez.net/forums/sho...errerid=391891 qui en parle, mais le bouton n'est pas désactivé, il est "intercepté"

    Cordialement,

  6. #6
    Membre éprouvé

    Homme Profil pro
    Inscrit en
    Octobre 2009
    Messages
    789
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Bas Rhin (Alsace)

    Informations forums :
    Inscription : Octobre 2009
    Messages : 789
    Points : 1 266
    Points
    1 266
    Par défaut
    Bonjour,

    En effet, je confirme.

    J'ai migré mes applications 2003 en 2007 et le fonctionnement des barres d'outils est totalement différents.

    La désactivation du bouton Quitter sous 2007 se code dans le xml du ruban personnalisé.
    Il y a d'excellents tuto disponibles sur développez.com.

    Cordialement

    Christophe

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

Discussions similaires

  1. [vbnet 1.1]Inserer deux simple quote sans texte dans une db
    Par ChristopheOce dans le forum Windows Forms
    Réponses: 8
    Dernier message: 15/03/2007, 09h51
  2. [Fonction] Quote et guillemet dans un textarea
    Par ddelec24 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 11/03/2007, 16h51
  3. Réponses: 6
    Dernier message: 08/08/2006, 10h14
  4. Réponses: 5
    Dernier message: 15/04/2005, 15h22

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