Im Beitrag „Schnelle Schaltflächen mit Stil“ (www.access-im-unternehmen.de\/1563) haben wir ein Formular vorgestellt, mit dem wir komfortabel Schaltflächen anlegen können – mit Icon, Beschriftung, passendem Namen und Ereignisprozedur. Dieses Formular lässt sich in dieser Lösung allerdings nur nutzen, wenn es in der gleichen Anwendung enthalten ist, deren Formulare wir damit anpassen wollen. Um dies praktischer zu gestalten, wollen wir die Lösung in einen Assistenten umwandeln, der beim Hinzufügen eines Buttons zu einem Formular automatisch angezeigt wird. Die dazu notwendigen Schritte beschreiben wir in diesem Beitrag.<\/b><\/p>\n
Steuerelement-Wizards<\/h2>\n
Die Grundlagen zum Erstellen von Steuerelement-Assistenten haben wir bereits im Beitrag Steuerelement-Wizards programmieren <\/b>(www.access-im-unternehmen.de\/1593<\/b>) beschrieben.<\/p>\nLösung in Button-Wizards umprogrammieren<\/h2>\n
Um aus der Access-Datenbank mit dem Formular zum Erstellen von Schaltflächen (siehe Bild 1) einen Steuerelement-Wizard zu machen, benennen wir diese in eine .accda<\/b>-Datei um.<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2026_03\/pic_1594_001.png\")
<\/p>\n
Bild 1: Formular zum Erstellen von Schaltflächen<\/span><\/b><\/p>\n Außerdem fügen wir eine Tabelle namens USysRegInfo<\/b> hinzu, in der wir die Informationen speichern, die beim Installieren des Wizards über den Add-In-Manager von Access in der Registry landen sollen.<\/p>\n Diese werden beim Start von Access ausgelesen, damit der Wizard an der entsprechenden Stelle aufgerufen wird.<\/p>\n Wie diese Tabelle aufgebaut ist und was die einzelnen Einträge bedeuten, erläutern wir ausführlich im oben genannten Beitrag. In diesem Fall enthält sie die Einträge aus Bild 2.<\/p>\n Bild 2: Die Tabelle USysRegInfo mit den Informationen des Wizards für die Registry<\/span><\/b><\/p>\n Wichtig ist, dass der Wert in der Zeile mit dem Wert Library <\/b>im Feld ValName <\/b>mit dem Namen der .accda<\/b>-Datei übereinstimmt und das wir die zum Starten verwendete VBA-Funktion genauso nennen wie für Function <\/b>angegeben.<\/p>\n In einem neuen Modul namens mdlAddIn <\/b>hinterlegen wir die Funktion, die beim Starten des Wizards aufgerufen werden soll. Diese gestalten wir wie in Listing 1. Die Startzeile der Funktion muss genauso aufgebaut sein und muss zwingend die angegebenen Parameter enthalten.<\/p>\n Listing 1: Funktion, die beim Start des Wizards aufgerufen wird<\/span><\/b><\/p>\n In der Funktion rufen wir das Formular frmButtonWizard <\/b>als modalen Dialog auf und übergeben diesem mit OpenArgs <\/b>den Namen der neu erstellten Schaltfläche.<\/p>\n Diese Funktion hat eine Fehlerbehandlung, die speziell den Fehler 2501 <\/b>nicht behandelt. Dieser tritt auf, wenn wir später im Ereignis Form_Open <\/b>des Formulars das Öffnen mit Cancel = True <\/b>abbrechen. Die entsprechende eingebaute Fehlermeldung wollen wir unterbinden, da wir bereits durch eine Meldung in Form_Open <\/b>darauf hinweisen, dass das Formular nicht geöffnet werden konnte.<\/p>\n Damit haben wir bereits das Grundgerüst erstellt und können den Wizard installieren. Dazu schließen wir die Wizard-Datenbank und öffnen eine beliebige andere Access-Datenbank im Administrator-Modus. Hier starten wir über den Ribbon-Befehl Datenbanktools|Add-Ins|Add-Ins|Add-In-Manager <\/b>den Add-In-Manager, klicken auf Neues hinzufügen… <\/b>und wählen unsere .accda<\/b>-Datei aus.<\/p>\n Danach können wir prüfen, ob der Assistent gestartet wird, wenn wir einem Formular in der Entwurfsansicht einen neuen Button hinzufügen.<\/p>\n Dieser sollte nun im Dialog Generator auswählen <\/b>neben dem eingebauten Eintrag Befehlsschaltflächen-Assistent <\/b>erscheinen.<\/p>\n Wenn wir dort den Eintrag amvButtonWizard <\/b>anklicken und das Formular frmButtonWizard <\/b>erscheint, sind wir auf dem richtigen Weg.<\/p>\n Das Formular des Button-Wizards ist allerdings aktuell noch so programmiert, dass einfach eine neue Schaltfläche angelegt wird, und nicht die durch das Hinzufügen über die Toolbox erzeugte Schaltfläche angepasst wird. Dies werden wir in den folgenden Abschnitten ändern.<\/p>\n Um die Anpassung durchzuführen und gleichzeitig testen zu können, schließen wir die Datenbank, über die wir den Wizard installiert haben.<\/p>\n Dann öffnen wir die .accda<\/b>-Datenbank selbst – allerdings die Version, die durch den Add-In-Manager in das Add-Ins-Verzeichnis kopiert wurde. Dieses Verzeichnis können wir mit der folgenden Prozedur ermitteln, die eine Funktion der nicht dokumentierten Klasse Wizhook <\/b>nutzt:<\/p>\n Diese liefert auf unserem System das folgende Verzeichnis:<\/p>\n Die in diesem Verzeichnis enthaltene Datei amvButtonWizard.accda <\/b>öffnen wir schließlich.<\/p>\n Hier passen wir das Ereignis Form_Open <\/b>an (siehe Listing 2). Diesem fügen wir eine Prüfung hinzu, ob mit dem Öffnungsargument, das wir mit Me.OpenArgs <\/b>auslesen, der Name des neu erstellten und anzupassenden Steuerelements übergeben wurde. Falls nicht, wird das Öffnen des Assistenten an dieser Stelle abgebrochen.<\/p>\n Listing 2: Prozedur, die beim Öffnen des Formulars ausgelöst wird<\/span><\/b><\/p>\n Anderenfalls speichern wir den Namen dieses Buttons in der TempVar<\/b>-Variablen Steuerelementname<\/b>. Damit sind die Arbeiten an der Form_Open<\/b>-Prozedur abgeschlossen.<\/p>\n Außerdem müssen wir in den beiden Prozeduren txtSteuerelementname_Change <\/b>und txtBeschriftung_Change <\/b>die Zeile auskommentieren, welche die TempVars<\/b>-Variable Steuerelementname <\/b>ändert.<\/p>\n Jetzt müssen wir den Schritt anpassen, der das im Formular konfigurierte Steuerelement anlegt.<\/p>\n Wir wollen hier kein neues Steuerelement anlegen, sondern die durch den Benutzer angelegte Schaltfläche soll nach den Angaben im Formular angepasst werden.<\/p>\n Wie erwähnt, hat die bisherige Lösung einen neuen Button angelegt – wir wollen aber den über die Toolbox angelegten Button anpassen. So hat der Benutzer auch die volle Kontrolle darüber, wo das Steuerelement angelegt wird.<\/p>\n Diese Aktion findet in der Prozedur SchaltflaecheAnlegen <\/b>statt.<\/p>\n Hier können wir zunächst den Aufruf der Prozedur PositionLetzterButton <\/b>entfernen, die dafür gedacht war, die neue Schaltfläche unter der zuletzt angelegten Schaltfläche einzufügen – da wir nun selbst bestimmen, wo die neue Schaltfläche angelegt werden soll, brauchen wir diese Funktion nicht mehr. Damit können wir auch die Tabelle tblHistory <\/b>aus der Anwendung entfernen und alle Anweisungen, die auf diese Tabelle zugreifen.<\/p>\n Die Prozedur sieht jetzt wie in Listing 3 aus. Sie prüft, ob bereits eine Schaltfläche mit dem vorgesehenen Namen vorhanden ist. In diesem Fall wird der Vorgang abgebrochen.<\/p>\n Listing 3: Prozedur zum Anpassen des angelegten Steuerelements<\/span><\/b><\/p>\n Dann referenziert sie das zu bearbeitende Formular und das neue Steuerelement mit den Variablen frm<\/b> und cmd<\/b>. <\/p>\n Für das mit cmd <\/b>referenzierte Steuerelement stellt sie alle Eigenschaften mit wenigen Ausnahmen auf die Eigenschaften ein, die wir für die Vorschau-Schaltfläche im Formular frmButtonWizard <\/b>eingestellt haben.<\/p>\n Danach ermittelt sie das Bild der Vorschau-Schaltfläche, kopiert dieses in die Tabelle MSysResources <\/b>der Zieldatenbank und stellt die Eigenschaft Picture <\/b>der neuen Schaltfläche auf dieses ein.<\/p>\n Schließlich legt sie noch den Namen der Schaltfläche fest und fügt die Ereignisprozedur hinzu.<\/p>\n Danach wird das Wizard-Formular geschlossen.<\/p>\n Es wurden noch einige weitere Änderungen am Code durchgeführt, die sich im Wesentlichen auf Vereinfachungen und Anpassungen für die Benutzung als Schaltflächen-Wizard beziehen.<\/p>\n Die Lösung können wir nun immer einsetzen, wenn wir eine neue Schaltfläche zum Formular hinzufügen oder wenn wir eine bestehende Schaltfläche anpassen wollen.<\/p>\n Zum Hinzufügen einer neuen Schaltfläche wählen wir diese aus der Toolbox aus und klicken an die gewünschte Stelle im Formularentwurf. Dies zeigt die Auswahl der verfügbaren Wizards an.<\/p>\n Voraussetzung dafür ist, dass wir die Steuerelement-Assistenten aktiviert haben – dazu aktivieren wir die Option Steuerelement-Assistenten verwenden <\/b>in der Toolbox. <\/p>\n Wir können auch dafür sorgen, dass der Assistent direkt aufgerufen wird, sobald wir eine neue Schaltfläche anlegen. Dafür müssen wir alle anderen Schaltflächen-Assistenten entfernen, zum Beispiel den eingebauten Assistenten namens Befehlsschaltflächen-Assistent<\/b>. Dazu öffnen wir die Registry und gehen zum entsprechenden Zweig, auf unserem System:<\/p>\n Diesen löschen wir wie in Bild 3.<\/p>\n Bild 3: Löschen des eingebauten Schaltflächen-Assistenten<\/span><\/b><\/p>\n Danach erscheint der amvButtonWizard <\/b>direkt und wir können die gewünschten Einstellungen vornehmen, bevor wir diese mit einem Klick auf Schaltfläche anlegen <\/b>übernehmen (siehe Bild 4).<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2026_03\/pic_1594_002.png\")
<\/p>\nStartfunktion für den Wizard anlegen<\/h2>\n
Public Function <\/span>Autostart_amvButtonWizard(Optional<\/span> strControlName As String<\/span>, Optional<\/span> strLabelName As String<\/span>) _\r\n As Variant<\/span>\r\n On Error GoTo<\/span> Fehler\r\n DoCmd.OpenForm \"frmButtonWizard\", WindowMode:=acDialog, OpenArgs:=strControlName\r\nEnde:\r\n Exit Function<\/span>\r\nFehler:\r\n Select Case Err.Number\r\n Case <\/span>0\r\n Case <\/span>2501\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & Err.Number & vbCrLf<\/span> & Err.Description, vbOKOnly + vbCr<\/span>itical, _\r\n \"Fehler beim Start von amvButtonWizard\"\r\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\nWizard installieren<\/h2>\n
Anpassen des Formulars frmButtonWizard<\/h2>\n
Public Sub <\/span>AddInDir()\r\n WizHook.Key = 51488399\r\n Debug.Print<\/span> WizHook.OfficeAddInDir\r\nEnd Sub<\/span><\/pre>\nC:\\Users\\[Benutzername]\\AppData\\Roaming\\Microsoft\\AddIns\\<\/pre>\n
Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n Dim <\/span>lngError As Long<\/span>\r\n Dim <\/span>varPictureData As Variant<\/span>\r\n Dim <\/span>dbc As <\/span>DAO.Database\r\n \r\n Set<\/span> dbc = CodeDb\r\n dbc.Execute \"DELETE FROM tblHistory\", dbFailOnError\r\n On Error Resume Next<\/span>\r\n \r\n TempVars(\"Form\") = Screen.ActiveForm.Name\r\n lngError = Err.Number\r\n On Error GoTo<\/span> 0\r\n \r\n If <\/span>IsNull(Me.OpenArgs) Then<\/span>\r\n MsgBox<\/span> \"Es wurde kein zu bearbeitender Button übergeben.\", vbOKOnly + vbExclamation, \"Kein Button übergeben\"\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n TempVars(\"Steuerelementname\") = Me.OpenArgs\r\n \r\n If <\/span>Not<\/span> lngError = 0 Then<\/span>\r\n MsgBox<\/span> \"Es ist kein Formular geöffnet, dem ein Button hinzugefügt werden kann.\", vbOKOnly + vbExclamation, _\r\n \"amvButtonWizard - Kein Formular geöffnet.\"\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n Else<\/span>\r\n If <\/span>Not<\/span> Screen.ActiveForm.CurrentView = 0 Then<\/span>\r\n MsgBox<\/span> \"Das Formular, dem ein Button hinzugefügt werden soll, muss in der Entwurfsansicht geöffnet sein.\", _\r\n vbOKOnly + vbExclamation, \"amvButtonWizard - Formular nicht im Entwurf geöffnet\"\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n \r\n TempVars(\"Picture\") = \"\"\r\n TempVars(\"Beschriftung\") = \"\"\r\n \r\n Call<\/span> LoadImages\r\nEnd Sub<\/span><\/pre>\nSchaltfläche anpassen statt anlegen<\/h2>\n
Private Sub <\/span>SchaltflaecheAnlegen()\r\n Dim <\/span>frm As <\/span>Access.Form\r\n Dim <\/span>cmd As <\/span>Access.CommandButton\r\n Dim <\/span>prp As <\/span>Property\r\n Dim <\/span>strPicture As String<\/span>\r\n Dim <\/span>lngPictureID As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>dbc As <\/span>DAO.Database\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> dbc = CodeDb\r\n \r\n If <\/span>SchaltflaecheSchonVorhanden(Me.txtSteuerelementname) = True<\/span> Then<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n \r\n Set<\/span> frm = Forms(TempVars(\"Form\")) \r\n Set<\/span> cmd = frm.Controls(TempVars(\"Steuerelementname\")) \r\n With<\/span> cmd\r\n For Each prp In cmdVorschau.Properties\r\n Select Case prp.Name\r\n Case <\/span>\"Top\", \"Left\"\r\n Case <\/span>\"EventProcPrefix\", \"ControlType\", \"Section\", \"RowStart\", \"RowEnd\", \"ColumnStart\", \"ColumnEnd\", _\r\n \"TabIndex\", \"InSelection\", \"Name\"\r\n Case Else<\/span>\r\n On Error Resume Next<\/span>\r\n .Properties(prp.Name) = prp.Value\r\n On Error GoTo<\/span> 0\r\n End Select<\/span>\r\n Next<\/span> prp\r\n strPicture = Me.cmdVorschau.Picture \r\n If <\/span>Not<\/span> strPicture = \"(keines)\" Then<\/span>\r\n lngPictureID = dbc.OpenRecordset(\"SELECT ID FROM \" & cStrResourcesTable & \" WHERE Name = '\" _\r\n & TempVars(\"Picture\") & \"'\", dbOpenDynaset).Fields(\"ID\")\r\n BildKopierenVonResourceZuResource dbc, db, cStrResourcesTable, \"MSysResources\", lngPictureID\r\n End If<\/span>\r\n .Picture = TempVars(\"Picture\")\r\n .Name = Nz(Me.txtSteuerelementname, \"\")\r\n .OnClick = \"[Event Procedure]\"\r\n .Parent.HasModule = True<\/span>\r\n Call<\/span> EreignisprozedurAnlegen(TempVars(\"Form\"), Me.txtSteuerelementname)\r\n Call<\/span> AccessAktivieren\r\n End With<\/span>\r\n \r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\nWeitere Änderungen am Code der Lösung<\/h2>\n
Einsatz der Lösung<\/h2>\n
HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\ClickToRun\\REGISTRY\\MACHINE\\Software\\Wow6432Node\\Microsoft\\Office\\16.0\\Access\\Wizards\\Control Wizards\\CommandButton<\/pre>\n
![\"Löschen](\"..\/fileadmin\/_temp_\/2026_03\/pic_1594_003.png\")
<\/p>\n![\"Anpassen](\"..\/fileadmin\/_temp_\/2026_03\/pic_1594_004.png\")
<\/p>\n
![\"Anpassen](\"..\/fileadmin\/_temp_\/2026_03\/pic_1594_005.png\")
<\/p>\n