Une base de données Access Pro a un bandeau très riche. Lorsqu'elle est ouverte par un utilisateur non Pro, le ruban se réduit à l'onglet "Fichier" avec 3 maigres choix: Imprimer, Options de Confidentialité, Quitter.
Comment puis l'enrichir pour les utilisateurs de la base ?
J'ai essayé un VBA avec un fichier .XML comme lu dans la documentation Access mais l'AutoExec ne s'exécute pas et le .loadCustomUI ne fait pas varier le menu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Option Compare Database Public Sub AutoExec() Application.LoadCustomUI "Christian", "customUI.xml" MsgBox "loadCustumUI fait" End Sub
"customUI.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
18
19
20
21
22
23
24
25
26
27
28
29 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon> <tabs> <tab idMso="TabHome"> <group idMso="GroupFont" visible="false" /> </tab> <tab id="CustomTab" label="My Tab"> <group id="SampleGroup" label="Sample Group"> <toggleButton id="ToggleButton1" size="large" label="Large Toggle Button" getPressed="MyToggleMacro" /> <checkBox id="CheckBox1" label="A CheckBox" screentip="This is a check box" onAction="MyCheckboxMacro" /> <editBox id="EditBox1" getText="MyTextMacro" label="My EditBox" onChange="MyEditBoxMacro"/> <comboBox id="Combo1" label="My ComboBox" onChange="MyComboBoxMacro"> <item id="Zip1" label="33455" /> <item id="Zip2" label="81611" /> <item id="Zip3" label="31561" /> </comboBox> <advanced> <button id="Launcher1" screentip="My Launcher" onAction="MyLauncherMacro" /> </advanced> </group> <group id="MyGroup" label="My Group" > <button id="Button" label="My Large Button" size="large" onAction="MyButtonMacro" /> <button id="Button2" label="My Normal Button" size="normal" onAction="MyOtherButtonMacro" /> </group > </tab> </tabs> </ribbon> </customUI>
Partager