XML-Dokument mit Application.LoadCustomUI laden Bedingungen auch direkt im Klassenmodul des Formulars unterbringen. Das onAction- Attribut legen Sie dabei wie folgt auf den Wert =onAction_Form() fest: <button id="btn1" image="form_yellow_32" label="Beispielbutton" onAction="=onAction_ Form()"/> Wenn Sie nun die folgende Funktion im Klassenmodul des Formulars unterbringen und das Ribbon unter Name des Menübands in den Eigenschaften des Formulars angeben, lösen Sie mit einem Klick auf die Ribbon-Schaltfläche direkt diese Funktion aus: Private Function OnAction_Form() MsgBox "onAction im Formular wurde aufgerufen" End Function Sie können so sogar noch benutzerdefinierte Parameter übergeben. Allerdings ist es nicht mehr möglich, Werte für get...-Callbacks zurückzugeben ­ dies müssen Sie dann doch in einem Standardmodul erledigen. 12.12 XML-Dokument mit Application.LoadCustomUI laden Neben dem Speichern des Ribbon-XML-Dokuments in der Tabelle USysRibbons und dem Festlegen der beim Start einzulesenden Ribbon-Definition gibt es noch eine weite- re Möglichkeit, Ribbons anzulegen. Diese erfordert das Vorhandensein des XML-Dokuments in einem beliebigen Format ­ wie oben beschrieben im Memofeld der Tabelle USysRibbons oder einer anderen Tabelle gespeichert oder auch in Form einer externen Textdatei. Sie müssen nur sicherstellen, dass das XML-Dokument in einer String-Variablen ge- speichert vorliegt. Anschließend können Sie dann die Methode LoadCustomUI des Application-Objekts verwenden, um ein Ribbon mit der angegebenen Definition zur Liste der verfügbaren Ribbons hinzuzufügen. Die folgende Routine liest zunächst mit der Funktion TextdateiLesen (siehe Listing 12.26) die in einer Datei gespeicherte Ribbon-Definition ein und weist diese dann per LoadCus tomUI-Methode der Liste der benutzerdefinierten Ribbons der aktuellen Datenbank zu. Diese können Sie dann in den Access-Optionen unter Aktuelle Datenbank|Menüband und Symbolleistenoptionen|Name des Menübands auswählen. Public Sub DynamischeZuweisungDatei() Dim strRibbon As String strRibbon = TextdateiLesen(CurrentProject.Path & "\Ribbon.xml") 737