Erstellen Sie eine neue Tabelle Namens z.B.:"Ribbons" mit folgenden Feldern:
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 Error1 Dim strSQL As String Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset strSQL = "SELECT * FROM [Ribbons]; " ' [Ribbons] müssen Sie durch Ihren Tabellennamen ersetzen. cnn.Open CurrentProject.Connection rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic Do Until rst.EOF Application.LoadCustomUI _ rst("RibbonName").Value, rst("RibbonXml").Value strRibbon = rst("RibbonName").Value rst.MoveNext Loop rst.Close Set rst = Nothing cnn.Close Set cnn = Nothing Error1_Exit: On Error Resume Next rs.Close Set rs = Nothing Set db = Nothing Exit Function Error1: Select Case Err Case 32609 ' Ribbon schon geladen Case Else MsgBox "Error: " & Err.Number & vbCrLf & _ Err.description, vbCritical, _ "Error", Err.HelpFile, Err.HelpContext End Select Resume Error1_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.