Erstellen Sie eine neue Tabelle Namens z.B.:"tblRibbons" mit folgenden Feldern:
Feldname |
Felddatentyp |
Feldgröße |
ID |
AutoWert |
Long Integer |
RibbonName |
Text |
255 |
RibbonXml |
Memo |
|
Im Feld "RibbonName" erfassen Sie einen eindeutigen Namen für den Ribbon. Das entsprechende XML tragen Sie im Feld "RibbonXML" ein.
Erstellen Sie in einem neuen Modul ein Function Names: "LoadRibbons":
Public Function LoadRibbons() 'Läd die Ribbons in die Datenbank On Error GoTo Fehler Dim db As DAO.Database Set db = Application.CurrentDb Dim rs As DAO.Recordset Set rs = db.OpenRecordset("tblRibbon") ' tblRibbon müssen Sie durch Ihren Tabellennamen ersetzen. Do Until rs.EOF Application.LoadCustomUI _ rs("RibbonName").Value, rs("RibbonXML").Value rs.MoveNext Loop Fehler_Exit: On Error Resume Next rs.Close Set rs = Nothing Set db = Nothing Exit Function Fehler: Select Case Err Case 32609 ' Ribbon schon geladen Case Else MsgBox "Fehler: " & Err.Number & vbCrLf & _ Err.description, vbCritical, _ "Fehler", Err.HelpFile, Err.HelpContext End Select Resume Fehler_Exit End Function
Erstellen Sie ein Makro namens "Autoexec" dieses wir bei Datenbankstart automatisch geladen:
Aktion: |
AuführenCode |
Funktionsname: |
LoadRibbons() |
Starten Sie die Datenbank neu
Stellen Sie den Ribbon für die Datenbank ein:
Unter "Office Button" / Button "Access-Optionen" / "Aktuelle Datenbank" / "Multifunktionsleisten- und Symbolleistenoptionen" / "Name der Multifunktionsleiste" wählen Sie den Ribbon aus, welchen Sie beim Start der Datenbank laden wollen.
Nach einem Datenbank Neustart wird Ihr Ribbon angezeigt.