You are here: Home > Access - Ribbons > Load Ribbons Into The Database > ... From XML File
... From XML File
If you want to load ribbon from a Ribbon XML file follow these instructions:
In a standard module create the function "LoadRibbons":
Public Function LoadRibbons()
'Load ribbons from XML file into the database
On Error GoTo Error1
Dim f As Long
Dim strText As String
Dim strOut As String
f = FreeFile
Open "C:\Folder\Ribbon\AccRibbon.xml" For Input As f
' C:\Folder\... has to be replaced by your folder/filename.
Do While Not EOF(f)
Line Input #f, strText
strOut = strOut & strText
Loop
Application.LoadCustomUI "AppRibbon_1", strOut
Error1_Exit:
On Error Resume Next
Close f
Exit Function
Error1:
Select Case Err
Case 32609
' Ribbon already loaded
Case Else
MsgBox "Error: " & Err.Number & vbCrLf & _
Err.description, vbCritical, _
"Error", Err.HelpFile, Err.HelpContext
End Select
Resume Error1_Exit
End Function
Create a macro named "AutoExec" which will be run when you open the database:
|
Action: |
RunCode |
|
Function Name: |
LoadRibbons() |
Re-start the database.
Select a ribbon for this database:
"Office Button" / Button "Access-Options" / "Current Database" / "Ribbon and Toolbar Options" / "Ribbon Name:" Select the ribbon that should be loaded when you open the database.
After another re-start of the database your ribbon will be displayed.

