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

IHM Discussion :

Code VBA pour ruban perso [AC-2010]


Sujet :

IHM

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Décembre 2009
    Messages
    276
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 276
    Par défaut Code VBA pour ruban perso
    Bonjour,

    Je découvre la cration de ruban personnalisé sous access 2010.
    J'ai utilisé l'assistant ruban mis en ligne par (arkham46.developpez.com/) et je peux voir les onglets créés dans mon applicatif.

    Voici le code XML :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
        <ribbon startFromScratch="false">
             <tabs>
                  <tab id="tab1" label="TAB">
                       <group id="group1" label="GROUPE">
                            <button id="button1" label="Mon bouton" imageMso="ChartTypeOtherInsertGallery"/>
                            <button id="button2" label="Mon bouton" imageMso="ChartTypeOtherInsertGallery"/>
                            <menu id="menu1" label="Mon menu">
                                 <button id="button3" onAction="button3_OnAction" label="Sélection catalogue"/>
                            </menu>
                       </group>
                  </tab>
             </tabs>
        </ribbon>
    </customUI>

    En revanche, je n'arrive pas à associer un évènement sur un bouton.
    J'ai bien créé un module 'ruban_perso' dans lequel j'ai mis une action :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub button3_OnAction(control As IRibbonControl)
     
        DoCmd.OpenForm "F_Synthèse Catalogue", acNormal, "", "", , acNormal
     
    End Sub
    Lorsque je clique sur mon bouton 'Sélection catalogue', j'ai le message suivant :

    Microsoft acces ne peut pas executer la macro ou fonction callback "Ribbon_onAction"
    Assurez vous que celle-ci existe et que ces parametres sont valides.

    J'ai bien activé Microsoft Office 14.0 Object Library, mais pas moyen d'ouvrir mon formulaire.

    Merci de votre aide précieuse.
    Cordialement

  2. #2
    Membre émérite

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

    Informations forums :
    Inscription : Octobre 2009
    Messages : 789
    Par défaut
    Bonsoir,

    Essaies simplement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub button3_OnAction(control As IRibbonControl)
        DoCmd.OpenForm "F_Synthèse Catalogue"
    End Sub
    C'est ta dernière variable qui n'est pas bonne.

    Cordialement

    Christophe

  3. #3
    Expert confirmé
    Avatar de Dolphy35
    Homme Profil pro
    Responsable Systemes d'Information
    Inscrit en
    Octobre 2004
    Messages
    4 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable Systemes d'Information
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2004
    Messages : 4 373
    Par défaut
    Bonjour,

    Il y a une incohérence dans les noms de module. Depuis l'apply d'Arkham il y a un bouton VBA, que se passe t-il lors du clic sur ce bouton ?

    Dolphy

  4. #4
    Membre éclairé
    Inscrit en
    Décembre 2009
    Messages
    276
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 276
    Par défaut
    Bonjour Marsouin,

    Citation Envoyé par marsouin_89 Voir le message
    Bonsoir,

    Essaies simplement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub button3_OnAction(control As IRibbonControl)
        DoCmd.OpenForm "F_Synthèse Catalogue"
    End Sub
    C'est ta dernière variable qui n'est pas bonne.

    Cordialement

    Christophe
    J'ai supprimé la dernière variable mais toujours le même message.
    En revanche, en bidouillant un peu, j'ai supprimé le 'Private' de la fonction et j'ai enfin pu ouvrir mon formulaire : comme quoi ....

    Bonjour Dolphy,

    Citation Envoyé par Dolphy35 Voir le message
    Bonjour,

    Il y a une incohérence dans les noms de module. Depuis l'apply d'Arkham il y a un bouton VBA, que se passe t-il lors du clic sur ce bouton ?

    Dolphy
    J'ai regardé attentivement l'apply d'Arkham mais je n'ai pas vu de bouton VBA.
    Il se trouve où ?
    J'ai la version 2.0.5. du 01/12/2011.
    Y en a t'il une nouvelle ?

    Merci à tous les 2.
    Cdt

  5. #5
    Expert confirmé
    Avatar de Dolphy35
    Homme Profil pro
    Responsable Systemes d'Information
    Inscrit en
    Octobre 2004
    Messages
    4 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable Systemes d'Information
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2004
    Messages : 4 373
    Par défaut
    Bonjour,

    C'est bien la dernière version

    Lorsque tu es dans les propriétés de ton bouton et que tu sélectionne OnAction sur la droite tu as un bouton VBA, celui-ci permet de basculer vers le module VBA de ton bouton. Si tu clic sur ce bouton l'application se positionne t'elle sur la bonne procédure ?

    Sinon enlève le Private de la procédure.

    Dolphy

  6. #6
    Membre éclairé
    Inscrit en
    Décembre 2009
    Messages
    276
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 276
    Par défaut
    Bonjour Dolphy,

    Citation Envoyé par Dolphy35 Voir le message
    Bonjour,

    C'est bien la dernière version

    Lorsque tu es dans les propriétés de ton bouton et que tu sélectionne OnAction sur la droite tu as un bouton VBA, celui-ci permet de basculer vers le module VBA de ton bouton. Si tu clic sur ce bouton l'application se positionne t'elle sur la bonne procédure ?

    Sinon enlève le Private de la procédure.

    Dolphy
    Désolé, je dois être bigleux mais je n'ai aucun bouton VBA à droite de OnAction.
    J'ai la valeur proposée : Ribbon_OnAction et la signature : Sub Ribbon_OnAction(control As IRibbonControl)

    Je te joins une capture pour te montrer ma vue.
    Merci de ton aide.

    Cordialement
    Images attachées Images attachées  

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

Discussions similaires

  1. Un code VBA pour récupérer un type de donnée ?
    Par KEROZEN dans le forum VBA Access
    Réponses: 22
    Dernier message: 26/09/2019, 11h12
  2. Débutante - Code VBA pour MsgBox avec actions multiples
    Par kisscool35 dans le forum Access
    Réponses: 5
    Dernier message: 22/08/2006, 17h43
  3. [VBA-A] Code vba pour inclure un formulaire Acces
    Par MadSquirrel dans le forum VBA Access
    Réponses: 2
    Dernier message: 12/04/2006, 18h19
  4. Réponses: 3
    Dernier message: 06/09/2005, 10h27

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