Bonjour,
Je sollicite votre aide car j'ai un problème de noob !
Je fais un ruban simple, j'ai suivi le guide :https://warin.developpez.com/access/ruban/#LVI.A.1
Je souhaite juste ouvrir un formulaire via mon ruban
Mais j'ai une erreur 2450, il ne trouve pas mon formulaire...
Le code du fichier XML est celui ci:
Code XML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="tabEvenement" label="EVENEMENT" visible="true"> <group id="grpEnregistrement" label="Menu"> <button id="BTAccueil" label="Vers l'Accueil" imageMso="RmsNavigationBarHome" size="normal" onAction="BTAccueil_action"/> </group> </tab> </tabs> </ribbon> </customUI>
j'ai créé un module mduRibbon
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 Option Compare Database Option Explicit Public Function LoadRibbon() Dim strXML As String Dim oFso As New FileSystemObject Dim oFtxt As TextStream 'Charge le fichier XML en mémoire Set oFtxt = oFso.OpenTextFile(CurrentProject.Path & _ "\EVENEMENT.XML", ForReading) 'Récupère le contenu strXML = oFtxt.ReadAll 'Charge le rubban personnalisé correspondant Application.LoadCustomUI "EVENEMENT", strXML End Function Public Sub BTAccueil_action(ByVal control As IRibbonControl) Dim oFrm As Form Set oFrm = Forms!faccueil End Sub
Juste pour info, si à la place de set oFrm, je mets un msgbox, ca marche.
Partager