Discussion :

[florianc31]

Bonjour,

je sollicite votre aide car j'ai un petit souci.

Voila je dois réaliser un Ruban personnaliser sous access 2010

j'ai donc développer en VBA et XML.

au jour d'aujourd'hui j'ai réussi a implémenté des boutons qui ouvre un formulaire
mais je n'arrive pas a faire la même choses avec les requêtes et les états.

voila un extres du code XML et VBA

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
16
17
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
         <tabs>
              <tab id="Onglet1" label="Menu">
                   <!--Pour tout rajout ID devra comporter l'attribue correspondant suivit du chiffre 1-->
                   <group id="group1">
                        <menu id="menu1" label="Commandes" size="large">
                             <menu id="menu10" label="Commandes">
                                  <button id="button10.1" label="Commandes Clients" onAction="Commandes"/>
                                  <button id="button10.2" label="Commandes EDI" onAction="CommandesEDI"/>
                                  <button id="button10.3" label="Commandes eSupply" onAction="F_ESUPPLY"/>
                             </menu>
                             <menu id="menu11" label="Contrôle Commandes">
                                  <button id="button11.1" label="Contrôle Commandes Double"/>
                                  <!--Requete-->
                                  

et VBA

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
16
17
'Menu Commandes
 
Sub onAction(ByVal control As IRibbonControl)
 
End Sub
 
Public Sub Commandes(ByVal control As IRibbonControl)
DoCmd.OpenForm "Commandes"
End Sub
 
Public Sub CommandesEDI(ByVal control As IRibbonControl)
DoCmd.OpenForm "CommandesEDI"
End Sub
 
Public Sub F_ESUPPLY(ByVal control As IRibbonControl)
DoCmd.OpenForm "F_ESUPPLY"
End Sub

le nom de la requête est Select_Com_Double.

merci pour votre aide.

[florianc31]

Merci pour voS réponseS.