Ouvrir un formulaire via un ruban :erreur 2450
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:
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:
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.
