Eine immer wiederkehrende Aufgabe in meinem Programmieralltag ist das Erstellen von Formularen, die ein Unterformular mit Daten in der Datenblattansicht enthalten. Das umfasst einige Schritte, die ich immer wieder manuell durchgeführt habe. Bis ich die Lösung für diesen Beitrag programmiert habe. Einen Assistenten, den ich starte, statt im Ribbon den Befehl zum Erstellen eines neuen, leeren Formulars in der Entwurfsansicht aufzurufen. Und der lediglich eine Information benötigt: Welche Tabelle oder Abfrage soll die Daten für das Unterformular bereitstellen? Das Ganze in einem Assistenten verpackt, der in jeder geöffneten Access-Datenbank per Mausklick gestartet werden kann. Nachfolgend finden Sie die Anleitung, wie ich diesen Assistenten erstellt habe und wie er funktioniert.<\/b><\/p>\n
Die Anzeige der Daten einer Tabelle oder Abfrage in einem Unterformular wird oft benötigt. Das Unterformular zeigt die Daten in der Datenblattansicht an. Im Hauptformular kann man beliebige Steuerelemente zum Bearbeiten oder Hinzufügen von Datensätzen, zum Anzeigen eines Detailformulars zum ausgewählten Datensatz, zum Löschen von Datensätzen oder zum Filtern oder Sortieren der Datensätze anzeigen.<\/p>\n
Die Anzeige der Daten in der Datenblattansicht ermöglicht außerdem die Nutzung der Filter- und Sortiermöglichkeiten dieser Ansicht. Zudem können wir Spalten anordnen oder ein- und ausblenden.<\/p>\n
Das Anlegen einer solchen Kombination aus Haupt- und Unterformular erfordert einige Schritte, die wir nachfolgend auflisten:<\/p>\n
Diese Schritte habe ich in der Vergangenheit hunderte, wenn nicht tausende Male durchgeführt. Also beschloss ich, einen Wizard zu programmieren, der mit diese immer wiederkehrenden Schritte abnimmt und ein Formular wie das aus Bild 1 schnell erstellt.<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2026_02\/pic_1595_001.png\")
<\/p>\n
Bild 1: Formular mit Unterformular in der Datenblattansicht<\/span><\/b><\/p>\n Damit ist eine Basis geschaffen, der ich dann die weiteren Steuerelemente hinzufügen kann.<\/p>\n Der Wizard wird einfach über den Eintrag Formular-Assistent <\/b>im Ribbon aufgerufen. Dies zeigt alle verfügbaren Assistenten an (siehe Bild 2).<\/p>\n Bild 2: Unser Assistent in der Liste der Formular-Assistenten<\/span><\/b><\/p>\n Hier wählen wir unseren Assistenten aus und selektieren die Datensatzquelle für das zu erstellende Formular. Diese ist bereits voreingestellt, wenn beim Aufrufen des Assistenten schon eine Tabelle oder Abfrage im Navigationsbereich ausgewählt war.<\/p>\n Danach erscheint unser selbst programmiertes Formular, mit dem wir weitere Details festlegen können (siehe Bild 3).<\/p>\n Bild 3: Der Wizard zum Erstellen von Unterformularen in der Datenblattansicht<\/span><\/b><\/p>\n Dabei handelt es sich um die folgenden Informationen:<\/p>\n Wenn wir nun auf Formular erstellen<\/b> klicken, arbeitet Access kurz und präsentiert anschließend das neue Formular (siehe Bild 4).<\/p>\n Bild 4: Das neu erstellte Formular mit Unterformular<\/span><\/b><\/p>\n Starten wir den Assistenten danach erneut für die gleiche Datensatzquelle, zeigt dieser direkt an, dass die automatisch vorgeschlagenen Formularnamen bereits existieren (siehe Bild 5).<\/p>\n Bild 5: Hinweis auf bereits vorhandene Formulare<\/span><\/b><\/p>\n In diesem Fall können wir den Namen entweder anpassen oder wir aktivieren die Option Vorhandene Formulare überschreiben<\/b>.<\/p>\n Erst wenn eines von beiden erfolgt ist, wird die Schaltfläche zum Anlegen der Formulare aktiviert.<\/p>\n Damit die Datenbank mit unserer Lösung als Add-In installiert werden kann, benötigen wir eine Tabelle namens USysRegInfo<\/b>, die wir wie in Bild 6 füllen.<\/p>\n Bild 6: Die Tabelle USysRegInfo<\/span><\/b><\/p>\n Diese enthält die Informationen, die beim Installieren in die Registry eingetragen werden.<\/p>\n Wichtig ist der Name der aufzurufenden Funktion beim Starten des Assistenten, hier Autostart_SubformWithDatasheetWizard<\/b>.<\/p>\n Sie hat einen Parameter namens strRecordsource<\/b>, der automatisch mit der Tabelle oder Abfrage gefüllt wird, die wir im Dialog zur Auswahl des Assistenten auswählen.<\/p>\n Diese Funktion sehen wir in Listing 1. Sie ruft lediglich eine weitere Prozedur namens CreateSubformWithDatasheet <\/b>auf, der sie den Namen der Datensatzquelle übergibt.<\/p>\n Listing 1: Funktion, die beim Start des Wizards aufgerufen wird<\/span><\/b><\/p>\n Die Hauptfunktion CreateSubformWithDatasheet <\/b>finden wir in Listing 2. Sie schreibt den Namen des Wizard-Formulars in die Variable strWizForm<\/b> und schließt dieses zunächst, falls es noch geöffnet ist.<\/p>\n Listing 2: Hauptfunktion des Wizards<\/span><\/b><\/p>\n Dann öffnet sie das Formular als modalen Dialog und übergibt die zu verwendende Datensatzquelle mit dem Parameter OpenArgs<\/b>. Im Formular gibt der Benutzer nun die gewünschten Daten ein und macht dieses entweder mit der Schaltfläche Formular erstellen <\/b>unsichtbar oder schließt es mit der Abbrechen<\/b>-Schaltfläche.<\/p>\n Deshalb prüfen wir im folgenden Schritt mit der Hilfsfunktion IstFormularGeoeffnet<\/b>, ob das Formular ausgeblendet oder geschlossen wurde.<\/p>\n Falls das Formular noch geöffnet, aber unsichtbar ist, liest die Prozedur den Namen des zu erstellenden Formulars in strNewForm <\/b>und den des Unterformulars in strNewSubform <\/b>ein. Außerdem liest sie die im Listenfeld lstFields <\/b>ausgewählten Felder mit der Funktion GetSelectedFields <\/b>in die Variable strFields <\/b>ein.<\/p>\n Diese Funktion durchläuft alle selektierten Einträge aus der Eigenschaft ItemsSelected <\/b>und fügt den jeweiligen Eintrag zur Variablen strFields <\/b>hinzu. Die Einträge haben jeweils ein vorangestelltes Semikolon. Nach dem Durchlaufen aller Felder wird noch ein abschließendes Semikolon hinzugefügt und das Ergebnis zurückgegeben:<\/p>\n Das Ergebnis lautet beispielsweise wie folgt:<\/p>\n Außerdem lesen wir den Wert des Kontrollkästchens chkOverwriteForms <\/b>in die Variable bolOverwriteForms <\/b>ein. Damit können wir das Formular nun endgültig schließen.<\/p>\n Nun erstellen wir mit der Funktion CreateSubForm <\/b>zunächst das Unterformular und fügen diesem die ausgewählten Felder als gebundene Steuerelemente mit Beschriftungsfeld hinzu.<\/p>\n Diese Funktion sehen wir uns im Anschluss an.<\/p>\n Die Funktion liefert den Namen des neu erstellten Unterformulars zurück und wir speichern es in strTempForm<\/b>.<\/p>\n Dann benennen wir diese mit der Funktion RenameForm <\/b>in den durch den Benutzer eingegebenen Namen um.<\/p>\n Diese Funktion nimmt den neuen und den alten Namen entgegen und außerdem den Boolean<\/b>-Wert, der angibt, ob bestehende Formulare gelöscht werden sollen.<\/p>\n Wenn ein bestehendes Formular überschrieben werden soll, schließen wir dieses, falls es noch geöffnet ist, und löschen es anschließend mit DoCmd.Delete<\/b>.<\/p>\n Anschließend benennen wir das neu erstellte Formular auf den angegebenen Namen um und liefern den Wert True <\/b>zurück:<\/p>\n War dies nicht erfolgreich, löschen wir das angelegte Formular wieder und verlassen die Prozedur.<\/p>\n War dies erfolgreich, erstellen wir das Hauptformular mit der Funktion CreateForm <\/b>und übergeben dieser den Namen des zu erstellenden Formulars.<\/p>\n Auch diese Funktion beschreiben wir im Anschluss.<\/p>\n Für das neu erstellte Hauptformular rufen wir wiederum die Funktion RenameForm <\/b>auf und übergeben den neuen und den alten Namen, damit das Formular den gewünschten Namen erhält. Wenn dies fehlschlägt, gibt die Funktion einen entsprechenden Hinweis auf. Das Formular wird gelöscht und die Prozedur beendet.<\/p>\n Schließlich öffnen wir das neu erstellte Formular.<\/p>\n In der Fehlerbehandlung geben wir keine Meldung für den Fehler mit der Nummer 2501 <\/b>aus. Dieser wird ausgelöst, wenn wir das Formular öffnen, aber diesem keine Datensatzquelle übergeben wurde.<\/p>\n In diesem Fall wird das Öffnen des Formulars bereits im Ereignis Form_Open <\/b>abgebrochen, was die Anweisung DoCmd.OpenForm <\/b>mit dem Fehler 2501 <\/b>quittiert. Alle anderen Fehler werden per Meldungsfenster angezeigt.<\/p>\n Die Funktion zum Erstellen des Unterformulars heißt CreateSubform <\/b>und nimmt einen Verweis auf die aktuell geöffnete Datenbank, die Datensatzquelle und die Liste der zu erstellenden Felder entgegen (siehe Listing 3).<\/p>\n Listing 3: Funktion zum Erstellen des Unterformulars<\/span><\/b><\/p>\n Sie erstellt ein Recordset auf Basis der übergebenen Datensatzquelle.<\/p>\n Dann erstellt sie mit der Methode CreateForm <\/b>ein neues Formular und speichert einen Verweis darauf in der Variablen sfm<\/b>. Außerdem schreibt sie den automatisch vergebenen Namen für dieses Formular, zum Beispiel Formular1<\/b>, in die Variable strFormTemp<\/b>.<\/p>\n Sie stellt die Eigenschaft RecordSource <\/b>auf die übergebene Datensatzquelle aus strRecordsource <\/b>ein und legt für die Eigenschaft Standardansicht <\/b>(DefaultView<\/b>) den Wert Datenblatt <\/b>fest.<\/p>\n Dann durchläuft sie die Fields<\/b>-Auflistung des Recordsets und schreibt den Namen des aktuellen Felds in die Variable strField<\/b>.<\/p>\n Dieser Variablen fügt sie vorn und hinten ein Semikolon hinzu. Damit können wir per InStr<\/b>-Funktion prüfen, ob das Feld in der Liste aus strFields <\/b>vorkommt:<\/p>\n Nur wenn das Feld dort enthalten ist, folgt der Aufruf einer Select Case<\/b>-Bedingung. Diese ermittelt mit GetControlType <\/b>für das Feld aus fld <\/b>den Steuerelementtyp des Feldes. Dieser kann TextBox<\/b>, ComboBox <\/b>oder CheckBox <\/b>lauten. Die Funktion sieht so aus:<\/p>\n Sie prüft, ob das Feld eine Eigenschaft namens DisplayControl <\/b>aufweist. Diese enthält für Textfelder den Wert 109<\/b>, für Kombinationsfelder den Wert 111 <\/b>und für Kontrollkästchen den Wert 106<\/b>.<\/p>\n Je nach Steuerelementtyp wird einer der folgenden Case-Zweige angesteuert. Im Falle eines Textfeldes erstellt die Prozedur mit der Funktion CreateControl <\/b>ein Steuerelement des Typs acTextBox<\/b> und übergibt weitere Informationen wieden Namen des Feldes, an welches das Steuerelement gebunden werden soll, den Zielbereich (acDetail <\/b>für den Detailbereich) und die Position und die Größe.<\/p>\n Für die vertikale Position verwenden wir einen Wert, der für jedes neu angelegte Steuerelement ein wenig nach unten verschoben wird. Als Steuerelementname legen wir txt <\/b>plus den Namen des Feldes fest, also etwa txtFirma<\/b>.<\/p>\n Für Kombinationsfelder und Kontrollkästchen werden ähnliche Anweisungen ausgeführt, aber die Ergebnisse werden in Variablen des Typs ComboBox <\/b>beziehungsweise CheckBox <\/b>gespeichert.<\/p>\n Schließlich legen wir für das zuvor angelegte Steuerelement noch ein Bezeichnungsfeld an. Dazu rufen wir ebenfalls CreateControl <\/b>auf, übergeben aber als Typ dieses Mal acLabel<\/b>. Außerdem legen wir für den Parameter Parent <\/b>den Namen des Steuerelements fest, zu dem das Bezeichnungsfeld gehören soll.<\/p>\n Damit erreichen wir die Bindung, die dafür sorgt, dass im Entwurf des Formulars direkt das entsprechende Bezeichnungsfeld markiert wird, wenn wir das jeweilige Steuerelement selektieren.<\/p>\n Danach schließen wir das neu erzeugte Unterformular mit DoCmd.Close<\/b>, wobei wir als dritten Parameter den Wert acSaveYes <\/b>übergeben, um das Formular zu speichern. Anschließend geben wir den Namen des Unterformulars als Funktionsergebnis zurück.<\/p>\n Mit der Funktion CreateForm<\/b> aus Listing 4 erstellen wir das Hauptformular und fügen diesem das Unterformular-Steuerelement hinzu, welches das Unterformular anzeigen soll.<\/p>\n Listing 4: Hauptformular anlegen<\/span><\/b><\/p>\n Die Funktion nimmt den Namen des einzufügenden Unterformulars entgegen und legt das neue Hauptformular mit CreateForm <\/b>an. Dann speichert sie den beim Anlegen automatisch vergebenen Namen in der Variablen strFormTemp<\/b>.<\/p>\n Anschließend legt sie einige Eigenschaften für das Formular fest:<\/p>\nFunktionsweise des Wizards<\/h2>\n
![\"Unser](\"..\/fileadmin\/_temp_\/2026_02\/pic_1595_002.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2026_02\/pic_1595_003.png\")
<\/p>\n\n
![\"Das](\"..\/fileadmin\/_temp_\/2026_02\/pic_1595_004.png\")
<\/p>\n![\"Hinweis](\"..\/fileadmin\/_temp_\/2026_02\/pic_1595_005.png\")
<\/p>\nProgrammierung des Assistenten<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_02\/pic_1595_006.png\")
<\/p>\nPublic Function <\/span>Autostart_SubformWithDatasheetWizard(Optional<\/span> strRecordsource As String<\/span>) As Variant<\/span>\r\n On Error GoTo<\/span> Fehler\r\n Call<\/span> CreateSubformWithDatasheet(strRecordsource)\r\n Exit Function<\/span>\r\nFehler:\r\n MsgBox<\/span> Err.Number & \" \" & Err.Description\r\nEnd Function<\/span><\/pre>\nHauptfunktion des Wizards<\/h2>\n
Private Sub <\/span>CreateSubformWithDatasheet(strRecordsource As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strNewForm As String<\/span>\r\n Dim <\/span>strNewSubform As String<\/span>\r\n Dim <\/span>bolOverwriteForms As Boolean<\/span>\r\n Dim <\/span>strWizForm As String<\/span>\r\n Dim <\/span>strTempForm As String<\/span>\r\n Dim <\/span>strFields As String<\/span> \r\n strWizForm = \"frmUnterformularMitDatenblatt\"\r\n On Error Resume Next<\/span>\r\n DoCmd.Close acForm, strWizForm\r\n On Error GoTo<\/span> Fehler\r\n DoCmd.OpenForm strWizForm, WindowMode:=acDialog, OpenArgs:=strRecordsource\r\n If <\/span>IstFormularGeoeffnet(strWizForm) Then<\/span>\r\n strNewForm = Forms(strWizForm)!txtForm\r\n strNewSubform = Forms(strWizForm)!txtSubform\r\n strFields = GetSelectedFields(Forms(strWizForm)!lstFields)\r\n bolOverwriteForms = Forms(strWizForm)!chkOverwriteForms\r\n DoCmd.Close acForm, strWizForm\r\n Else<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n Set<\/span> db = CurrentDb\r\n strTempForm = CreateSubform(db, strRecordsource, strFields)\r\n If <\/span>RenameForm(strNewSubform, strTempForm, bolOverwriteForms) = True<\/span> Then<\/span>\r\n strTempForm = CreateForm(strNewSubform)\r\n If <\/span>RenameForm(strNewForm, strTempForm, bolOverwriteForms) = False<\/span> Then<\/span>\r\n MsgBox<\/span> \"Formular ''\" & strNewForm & \"'' konnte nicht erstellt werden.\", vbExclamation + vbOKOnly, _\r\n \"Fehler bei Erstellung\"\r\n DoCmd.DeleteObject acForm, strTempForm\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Unterformular ''\" & strNewSubform & \"'' konnte nicht erstellt werden.\", vbExclamation + vbOKOnly, _\r\n \"Fehler bei Erstellung\"\r\n DoCmd.DeleteObject acForm, strTempForm\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n DoCmd.OpenForm strNewForm\r\n Exit Sub<\/span>\r\nFehler:\r\n Select Case Err.Number\r\n Case <\/span>0, 2501\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & Err.Number & vbCrLf<\/span> & Err.Description\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>GetSelectedFields(lst As <\/span>ListBox) As String<\/span>\r\n Dim <\/span>var As Variant<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strFields As String<\/span>\r\n For Each var In lst.ItemsSelected\r\n strFields = strFields & \";\" & lst.ItemData(var)\r\n i = i + 1\r\n Next<\/span> var\r\n strFields = strFields & \";\"\r\n GetSelectedFields = strFields\r\nEnd Function<\/span><\/pre>\n;KundeID;Firma;Vorname;AnredeID;Aktiv;<\/pre>\n
Unterformular umbenennen<\/h2>\n
Public Function <\/span>RenameForm(strNew As String<\/span>, strOld As <\/span>_\r\n String, bolOverwriteForms As Boolean<\/span>) As Boolean<\/span>\r\n On Error GoTo<\/span> Fehler\r\n If <\/span>bolOverwriteForms = True<\/span> Then<\/span>\r\n On Error Resume Next<\/span>\r\n DoCmd.Close acForm, strNew<\/span>\r\n On Error GoTo<\/span> Fehler\r\n DoCmd.DeleteObject acForm, strNew<\/span>\r\n End If<\/span>\r\n \r\n DoCmd.Rename strNew, acForm, strOld\r\n RenameForm = True<\/span>\r\n Exit Function<\/span>\r\nFehler:\r\n MsgBox<\/span> \"Fehler \" & Err.Number & vbCrLf<\/span> & Err.Description\r\nEnd Function<\/span><\/pre>\nHauptformular anlegen<\/h2>\n
Funktion zum Erstellen des Unterformulars<\/h2>\n
Public Function <\/span>CreateSubform(db As <\/span>DAO.Database, strRecordsource As String<\/span>, strFields As String<\/span>) As String<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset, fld As <\/span>DAO.Field\r\n Dim <\/span>sfm As <\/span>Form\r\n Dim <\/span>strFormTemp As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>txt As <\/span>Access.TextBox, cbo As <\/span>Access.ComboBox, chk As <\/span>Access.CheckBox, lbl As <\/span>Access.Label\r\n Dim <\/span>strField As String<\/span>\r\n Dim <\/span>strControlName As String<\/span> \r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM \" & strRecordsource & \" WHERE 1=2\", dbOpenSnapshot)\r\n Set<\/span> sfm = Application.CreateForm()\r\n strFormTemp = sfm.Name\r\n With<\/span> sfm\r\n .RecordSource = strRecordsource\r\n .DefaultView = 2\r\n For Each fld In rst.Fields\r\n strField = fld.Name\r\n If <\/span>Not<\/span> InStr<\/span>(1, strFields, \";\" & strField & \";\") = 0 Then<\/span>\r\n Select Case GetControlType(fld)\r\n Case <\/span>acTextBox\r\n Set<\/span> txt = Application.CreateControl(strFormTemp, acTextBox, acDetail, , strField, 1100, _\r\n 100 + i * 400, 1000, 400)\r\n strControlName = \"txt\" & strField\r\n txt.Name = \"txt\" & strControlName\r\n Case <\/span>acComboBox\r\n Set<\/span> cbo = Application.CreateControl(strFormTemp, acComboBox, acDetail, , strField, 1100, _\r\n 100 + i * 400, 1000, 400)\r\n strControlName = \"cbo\" & strField\r\n cbo.Name = \"cbo\" & strControlName\r\n Case <\/span>acCheckBox\r\n Set<\/span> chk = Application.CreateControl(strFormTemp, acCheckBox, acDetail, , strField, 1100, _\r\n 100 + i * 400, 1000, 400)\r\n strControlName = \"chk\" & strField\r\n chk.Name = \"chk\" & strControlName\r\n End Select<\/span>\r\n Set<\/span> lbl = Application.CreateControl(sfm.Name, acLabel, acDetail, strControlName, strField, 100, _\r\n 100 + i * 400, 1000, 400)\r\n With<\/span> lbl\r\n .Name = \"lbl\" & strField\r\n End With<\/span>\r\n End If<\/span>\r\n i = i + 1\r\n Next<\/span> fld\r\n End With<\/span>\r\n DoCmd.Close acForm, strFormTemp, acSaveYes\r\n CreateSubform = strFormTemp\r\nEnd Function<\/span><\/pre>\n;KundeID;Firma;Vorname;AnredeID;Aktiv;<\/pre>\n
Steuerelementtyp für das Feld ermitteln<\/h2>\n
Public Function <\/span>GetControlType(fld As <\/span>DAO.Field)\r\n Dim <\/span>prp As <\/span>DAO.Property\r\n Dim <\/span>lngDisplayControl As Long<\/span>\r\n On Error Resume Next<\/span>\r\n Set<\/span> prp = fld.Properties(\"DisplayControl\")\r\n lngDisplayControl = prp.Value\r\n On Error GoTo<\/span> 0\r\n If <\/span>lngDisplayControl = 0 Then<\/span>\r\n lngDisplayControl = 109\r\n End If<\/span>\r\n GetControlType = lngDisplayControl\r\nEnd Function<\/span><\/pre>\nSteuerelemente zum Unterformular hinzufügen<\/h2>\n
Erstellen des Hauptformulars<\/h2>\n
Public Function <\/span>CreateForm(strSubform As String<\/span>) As String<\/span>\r\n Dim <\/span>frm As <\/span>Form\r\n Dim <\/span>strFormTemp As String<\/span>\r\n Dim <\/span>sfm As <\/span>Access.SubForm\r\n \r\n Set<\/span> frm = Application.CreateForm()\r\n With<\/span> frm\r\n strFormTemp = .Name\r\n .AutoCenter = True<\/span>\r\n .NavigationButtons = False<\/span>\r\n .RecordSelectors = False<\/span>\r\n .ScrollBars = False<\/span>\r\n Set<\/span> sfm = Application.CreateControl(frm.Name, acSubform, acDetail, , , 100, 100, frm.Width - 200, _\r\n frm.Section(acDetail).Height - 200)\r\n With<\/span> sfm\r\n .SourceObject = strSubform\r\n .HorizontalAnchor = acHorizontalAnchorBoth\r\n .VerticalAnchor = acVerticalAnchorBoth\r\n End With<\/span>\r\n End With<\/span>\r\n DoCmd.Close acForm, strFormTemp, acSaveYes\r\n CreateForm = strFormTemp\r\nEnd Function<\/span><\/pre>\n\n