Sie sind hier:   Startseite > Access - Ribbons > Ribbons in die Datenbank laden > ... aus einer beliebigen ADP Tabelle

... aus einer beliebigen ADP Tabelle


Erstellen Sie eine neue Tabelle Namens z.B.:"Ribbons" mit folgenden Feldern:

Tabelle ADP 


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()

Das Autoexec-Makro

Starten Sie die Datenbank neu

Stellen Sie den Ribbon für die Datenbank ein:

Ribbon OptionenUnter "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.

 

Letzte Änderungen:

18.03.2021
Neuer Download für Excel hinzugefügt. ...

25.10.2018
Seite "Vertrauenswürdige Speicherorte" - aktualisiert.. ...

22.10.2018
Neuer Download hinzugefügt. ...

08.04.2018
IDBE RibbonCreator 2016 (x86 and x64) für Office 2013 und Office 2016 - Neue Version. ...

 

Letzte Änderung: