Manche Aufgaben im Alltag eines Access-Entwicklers wiederholen sich immer wieder und unterscheiden sich nur durch Kleinigkeiten. Zum Beispiel sehen Detailformulare, Übersichtsformulare oder auch Formulare zum Verwalten von Daten in Haupt- und Unterformular immer gleich aus – wenn auch für andere Daten. Im Beitrag „Tabellendaten mit Übersicht und Details anzeigen“ (www.access-im-unternehmen.de\/1488) haben wir grundsätzlich gezeigt, wie wir ein Hauptformular mit einer Übersicht in einem Unterformular anlegen und programmieren können. Der Beitrag „Detailformular per Mausklick erstellen“ (www.access-im-unternehmen.de\/10) wiederum liefert ein Beispiel dafür, wie wir ein einfaches Detailformular schnell definieren und per Mausklick erstellen können. Im vorliegenden Beitrag wollen wir beides kombinieren – also ein Übersichtsformular mit Haupt- und Unterformular in einem Konfigurationsformular einrichten und dann automatisch erstellen.<\/b><\/p>\n
Im oben genannten Beitrag Tabellendaten mit Übersicht und Details anzeigen <\/b>(www.access-im-unternehmen.de\/1488<\/b>) haben wir gezeigt, wie ein einfaches Formular zum Anzeigen der Übersicht über die Daten eines Formulars erstellt werden kann.<\/p>\n
Dieses soll folgende Elemente beinhalten und sieht in der Formularansicht wie in Bild 1 aus:<\/p>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2024_06\/pic_1528_001.png\")
<\/p>\n
Bild 1: Beispiel für ein Übersichtsformular<\/span><\/b><\/p>\n Außerdem soll sich das Unterformular an die Größe des Hauptformulars anpassen, wenn der Benutzer dieses vergrößert. Zum Erstellen eines solchen Formulars wollen wir in diesem Beitrag ein Konfigurationsformular erstellen sowie den Code, der nötig ist, um das Formular auf Knopfdruck anhand der vorgenommenen Einstellungen zu erstellen.<\/p>\n Dabei wollen wir auch direkt die Möglichkeit schaffen, das im Beitrag Detailformular per Mausklick erstellen <\/b>(www.access-im-unternehmen.de\/10<\/b>) erstellte Formular zum Erstellen neuer oder zum Bearbeiten vorhandener Datensätze aufzurufen beziehungsweise den Namen dieses Formulars zu diesem Zweck auszuwählen.<\/p>\n Wir beginnen, indem wir das Konfigurationsformular Schritt für Schritt zusammenstellen und dabei gleichzeitig den Code entwickeln, der zum Erstellen des Formulars dienen soll.<\/p>\n Im gleichen Zuge stellen wir auch die Tabellen zusammen, welche die Konfigurationsdaten erfassen. Wir wollen diese speichern und jederzeit erneut abrufen können.<\/p>\n Die dazu verwendeten Tabellen heißen tblOverviewforms <\/b>und tblOverviewFields<\/b>. Die Tabellen sind ähnlich aufgebaut wie in der Lösung zum Erstellen von Detailformularen. Die Tabelle tblOverviewForm<\/b> sehen wir in der Entwurfsansicht in Bild 2. Sie enthält die wesentlichen Informationen zum Erstellen des Hauptformulars und der Steuerelemente im Hauptformular.<\/p>\n Bild 2: Tabelle für die Daten zum Erstellen von Haupt- und Unterformular<\/span><\/b><\/p>\n Die Tabelle tblOverviewFields <\/b>enthält die Daten der Felder, die für die Übersicht im Unterformular angezeigt werden sollen (siehe Bild 3).<\/p>\n Bild 3: Tabelle für die Daten der Felder im Unterformular<\/span><\/b><\/p>\n Wir arbeiten wieder in zwei Schritten: Wir werden zunächst das Konfigurationsformular in der gleichen Anwendung entwickeln, in der wir auch testweise die Formulare anlegen und aus der die Tabellen oder Abfragen stammen, die als Grundlage für das Übersichtsformular dienen. Erst wenn dies erledigt ist, wandeln wir die Datenbankdatei in eine Add-In-Datenbank um.<\/p>\n Das Konfigurationsformular sieht in der Formularansicht wie in Bild 4 aus.<\/p>\n Bild 4: Formulare mit den Daten zum Erstellen des Übersichtsformulars<\/span><\/b><\/p>\n Es enthält oben links die Basisinformationen des zu erstellenden Formulars:<\/p>\n Im unteren Bereich sehen wir schließlich noch ein Unterformular, das alle Felder der für die Eigenschaft Datensatzquelle <\/b>ausgewählten Tabelle oder Abfrage aufnimmt. Hier können wir individuelle Einstellungen für diese Felder vornehmen, zum Beispiel, ob dieses Feld angezeigt oder ignoriert werden soll. Außerdem können wir die Beschriftung für die Spaltenköpfe hier abweichend von den Feldnamen und den im Tabellenentwurf gespeicherten Beschriftungen vornehmen. Mit Fieldindex <\/b>geben wir die Reihenfolge an und mit FieldWidth <\/b>die Breite des Feldes. Außerdem finden wir hier noch die typischen Eigenschaften für Felder, die als Kombinationsfelder ausgelegt sind und die wir hier auch nochmal individuell anpassen können.<\/p>\n Der erste Schritt ist die Auswahl der Tabelle oder Abfrage, deren Daten im Unterformular angezeigt werden soll. Dazu benötigen wir ein Kombinationsfeld, mit dem wir alle Tabellen und Abfragen der aktuellen Datenbank auswählen können.<\/p>\n Dieses Kombinationsfeld wollen wir mit allen Tabellen und Abfragen füllen, die in der Tabelle MSysObjects <\/b>vorhanden sind. Dabei müssen wir die Elemente erfassen, die im Feld Type <\/b>einen der Werte 1<\/b>, 4<\/b>, 5 <\/b>oder 6 <\/b>enthalten und deren Wert im Feld Name <\/b>nicht mit F_ <\/b>oder MSys <\/b>beginnt.<\/p>\n Allerdings können wir dazu später in der Add-In-Datenbank nicht einfach eine Abfrage zuweisen, die auf der Tabelle MSysObjects <\/b>basiert. Damit würden wir nämlich auf die Tabelle MSysObjects <\/b>der Add-In-Datenbank zugreifen und nicht auf die der Host-Datenbank, der wir das Formular hinzufügen wollen. Also müssen wir ein Recordset erstellen und dieses mit den entsprechenden Daten der Tabelle MSysObjects<\/b> der Host-Datenbank füllen.<\/p>\n Das erledigen wir in der Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird (siehe Listing 1).<\/p>\n Listing 1: Aktionen beim Starten des Formulars frmOverviewForms<\/span><\/b><\/p>\n Die Prozedur definiert zwei verschiedene Database<\/b>-Objekte, von denen das erste mit CurrentDb <\/b>das Database<\/b>-Objekt der Host-Datenbank referenziert und das zweite mit CodeDb <\/b>das Database<\/b>-Objekt der Add-In-Datenbank. Solange wir noch mit einer Datenbank entwickeln, beziehen sich beide Objektvariablen auf das gleiche Database<\/b>-Objekt. Mit der Variablen rst <\/b>referenzieren wir die Datensätze der Tabelle MSysObjects <\/b>der Host-Datenbank für das Kombinationsfeld der Datensatzquellen. Dieses weisen wir der Recordset<\/b>-Eigenschaft des Kombinationsfeldes cboDatasource <\/b>zu.<\/p>\n Das Recordset rstIcons <\/b>stellen wir auf die Tabelle MSysResources <\/b>der Add-In-Datenbank ein. Diese Tabelle enthält die Icons, die wir den Schaltflächen der zu erstellenden Formulare zuweisen wollen. <\/p>\n Das Recordset weisen wir den Kombinationsfeldern cboOKIcon<\/b>, cboAddNewIcon<\/b>, cboDeleteIcon <\/b>und cboEditIcon <\/b>zu.<\/p>\n Außerdem stellt die Prozedur beim Laden Standardwerte für die Kontrollkästchen und Textfelder der Schaltflächen ein.<\/p>\n Der erste Schritt beim Erstellen ist die Auswahl einer Datensatzquelle, auf deren Basis das Übersichtsformular erstellt werden soll. Das Auswählen eines der Einträge des Kombinationsfeldes cboDatasource <\/b>löst das Ereignis Nach Aktualisierung <\/b>aus, für das wir die Prozedur aus Listing 2 hinterlegen.<\/p>\n Listing 2: Aktualisieren des Kombinationsfeldes cboDatasource<\/span><\/b><\/p>\n Die Prozedur ruft eine weitere Funktion namens ReadOverviewFieldsFromTable <\/b>auf, der wir die gewählte Tabelle oder Abfrage übergeben und die wir gleich beschreiben. Hat diese Funktion die Felder erfolgreich ausgelesen und in die Tabelle tblOverviewFields <\/b>geschrieben, wird das Unterformular sfmOverviewforms <\/b>aktualisiert.<\/p>\n Wenn txtFormname <\/b>noch nicht gefüllt ist, trägt die Prozedur automatisch den Namen der Datenquelle ein, wobei vorher Präfixe wie tbl <\/b>oder qry <\/b>durch frm <\/b>ersetzt werden. Das Unterformular erhält den gleichen Namen, allerdings wird das Präfix frm <\/b>durch sfm <\/b>ersetzt.<\/p>\n Für den Titel wird der gleiche Ausdruck eingetragen, jedoch werden die Präfixe tbl <\/b>und qry <\/b>ersatzlos gestrichen.<\/p>\n Die im Unterformular anzuzeigenden Felder werden erstmalig ausgelesen, sobald der Benutzer die Datensatzquelle selektiert hat. Dies löst die Prozedur cboDatasource_AfterUpdate <\/b>und in der Folge die Funktion ReadOverviewFieldsFromTable <\/b>aus. Diese Funktion nimmt den Namen der Tabelle oder Abfrage entgegen, die als Datensatzquelle gewählt wurde (siehe Listing 3). Dann referenziert sie die Host- und die Add-In-Database<\/b>-Objekte mit den Variablen db <\/b>und dbc<\/b>.<\/p>\n Listing 3: Aktualisieren der Felder für das Übersichtsformular<\/span><\/b><\/p>\n Für die Add-In-Datenbank referenziert sie mit der Variablen rst <\/b>die Datensätze der Tabelle tblOverviewFields<\/b>, die über das Fremdschlüsselfeld OverviewFormID <\/b>mit dem aktuellen Primärschlüsselwert des Hauptformulars verbunden sind. Findet die Funktion hier bereits Datensätze, verschiebt sie den Datensatzzeiger auf den letzten Datensatz, um mit rst.RecordCount <\/b>die Anzahl der Datensätze zu ermitteln. Dann stellt sie die Variable bolReadFields <\/b>auf True <\/b>und speichert alle Änderungen im Formular.<\/p>\n Sind nun bereits Datensätze vorhanden, fragt die Funktion den Benutzer, ob diese neu eingelesen werden sollen. Antwortet der Benutzer mit Ja, behält bolReadFields <\/b>den Wert True <\/b>und die Felder werden nachfolgend neu ausgelesen. Anderenfalls werden die Felder nicht neu eingelesen.<\/p>\n Im Falle des Neueinlesens löscht die Funktion zunächst alle Einträge der Tabelle tblOverviewfields<\/b>, die dem aktuell im Formular angezeigten Datensatz der Tabelle tblOverviewForms <\/b>zugeordnet sind.<\/p>\n Dann stellt sie das Recordset rstSource <\/b>auf die mit strDataSource <\/b>übergebene Tabelle oder Abfrage ein. Anschließend durchläuft sie alle Felder dieses Recordsets. Dabei ruft sie für jedes Feld die Funktion GetControlProperties <\/b>auf und übergibt dieser mit fld <\/b>einen Verweis auf das Feld sowie die Variablen varCaption<\/b>, intControlType<\/b>, varBoundColumn<\/b>, varRowSourceType<\/b>, varRowSource<\/b>, varColumnCount <\/b>und varColumnWidths<\/b>. Diese Funktion, die wir weiter unten beschreiben, liest die Werte für die Variant<\/b>-Parameter aus den Eigenschaften des Field<\/b>-Objekts aus fld <\/b>aus.<\/p>\n Die folgenden Anweisungen tragen einige Informationen in das Recordset auf Basis der Tabelle tblOverviewfields <\/b>ein. Dazu gehört der Primärschlüsselwert des aktuell im Hauptformular angezeigten Datensatzes der Tabelle tblOverviewForms<\/b>, damit die Daten dem jeweils zu erstellenden Formular zugeordnet werden können.<\/p>\n Außerdem trägt sie den Feldnamen, den Index, den Wert 2000 als Feldbreite, die Beschriftung, den Steuerelementinhalt und einige Eigenschaften bezüglich eventuell in der Tabelle definierter Nachschlagefelder ein. Dazu gehören ControlType<\/b>, RowSourceType<\/b>, RowSource<\/b>, BoundColumn<\/b>, ColumnCount <\/b>und ColumnWidths<\/b>. Damit wird für jedes Feld der Datensatzquelle ein Datensatz in der Tabelle tblOverviewfields <\/b>gespeichert und das Unterformular zur Anzeige dieser Felder aktualisiert.<\/p>\n Die soeben angesprochene Funktion GetControlProperties <\/b>liest die verschiedenen Eigenschaften des mit dem Parameter fld <\/b>übergebenen Feldes ein und liefert diese in Rückgabeparametern zurück (siehe Listing 4).<\/p>\n Listing 4: Einlesen der Feldeigenschaften<\/span><\/b><\/p>\n Einige Eigenschaften von Feldern kann man einfach so einlesen, aber bei einigen ist dies nicht so einfach möglich: Es werden nämlich nicht alle Eigenschaften für jedes Feld angelegt. Beispielweise wird die Eigenschaft Caption <\/b>nur für ein Feld hinterlegt, wenn der Benutzer die Eigenschaft Beschriftung <\/b>über den Tabellenentwurf eingestellt hat. Anderenfalls ist die Property <\/b>namens Caption <\/b>schlicht nicht vorhanden und der Versuch, diese auszulesen, löst einen Fehler aus.<\/p>\n Daher lesen wir diese Werte bei deaktivierter Fehlerbehandlung ein. Das ist der Fall bei der Eigenschaft Caption<\/b>, aber auch bei DisplayControl<\/b>. Letztere legt fest, ob ein Feld im Datenblatt als Textfeld, Kontrollkästchen oder Kombinationsfeld angezeigt wird. Im Falle eines Kombinationsfeldes stehen noch einige weitere Eigenschaften zur Verfügung. Um also herauszufinden, ob wir diese auch einlesen müssen, lesen wir zuerst den Wert der Eigenschaft DisplayControl <\/b>ein. Lautet dieser acComboBox<\/b>, lesen wir auch noch die nun verfügbaren Eigenschaften BoundColumn<\/b>, RowSourceType<\/b>, RowSource<\/b>, ColumnCount <\/b>und ColumnWidths <\/b>in die entsprechenden Rückgabeparameter ein. Im Falle von acTextBox <\/b>oder acCheckBox <\/b>müssen keine weiteren Parameter eingelesen werden.<\/p>\n Damit haben wir alle Informationen erfasst, die wir zum Erstellen des Übersichtsformulars benötigen und können nun den Code zusammenstellen. Dabei beginnen wir mit dem Unterformular, dass die Daten der Tabelle in der Datenblattansicht anzeigen soll. Wenn wir dieses erstellt haben, fügen wir den Code zum Erstellen des Hauptformulars hinzu. Dieses wird schließlich auch ein Unterformularsteuerelement enthalten, das wir mit dem Unterformular füllen.<\/p>\n Wir verwenden eine einfache Funktion zum Erstellen der beiden Formulare. Diese heißt CreateNewForm<\/b> und erwartet den Namen des zu erstellenden Formulars als einzigen Parameter. Wie daran gut zu erkennen ist, erledigt die Funktion nichts anderes, als ein neues Formular zu erstellen (siehe Listing 5). Sie prüft mit der Hilfsfunktion ExistsForm, ob bereits ein Formular mit dem angegebenen Namen vorhanden ist:<\/p>\n Listing 5: Funktion zum Erstellen von Formularen<\/span><\/b><\/p>\n Falls ja, fragt die Funktion, ob das Formular überschrieben werden soll. Antwortet man mit Ja<\/b>, versucht die Routine, das Formular mit einer weiteren Funktion namens DeleteForm <\/b>zu löschen:<\/p>\n Gelingt dies nicht, wird die Funktion verlassen und liefert den Wert False <\/b>zurück. Auch wenn man auf die Frage, ob ein bestehendes Formular überschrieben werden soll, mit \n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2024_06\/pic_1528_002.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2024_06\/pic_1528_003.png\")
<\/p>\nVon der einfachen Access-Anwendung zum Add-In<\/h2>\n
![\"Formulare](\"..\/fileadmin\/_temp_\/2024_06\/pic_1528_004.png\")
<\/p>\n\n
Tabelle oder Abfrage mit den anzuzeigenden Daten auswählen<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>dbc As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstIcons As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> dbc = CodeDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT Name FROM MSysObjects WHERE Type IN (1, 4, 5, 6) AND Name NOT LIKE ''F_*'' \" _\r\n & \"AND Name NOT LIKE ''MSys*'' AND Name NOT LIKE ''USys*'' AND Name NOT LIKE ''~*''\", dbOpenDynaset)\r\n Set<\/span> Me!cboDatasource.Recordset = rst\r\n Set<\/span> rstIcons = dbc.OpenRecordset(\"SELECT id, [Name] FROM MSysResources WHERE Extension = ''png'' ORDER BY [Name]\", _\r\n dbOpenDynaset)\r\n Set<\/span> Me.cboOKIcon.Recordset = rstIcons\r\n Me!chkOKButton.DefaultValue = True<\/span>\r\n Me!txtOKCaption.DefaultValue = \"\"\"OK\"\"\"\r\n Me!txtOKCode.DefaultValue = \"\"\"Debug.Print<\/span> \"\"\"\"OK\"\"\"\"\"\"\"\r\n Me!cboOKIcon.DefaultValue = 13\r\n Set<\/span> Me!cboAddNewIcon.Recordset = rstIcons\r\n Me!chkAddNewButton.DefaultValue = True<\/span>\r\n Me!txtAddNewCaption.DefaultValue = \"\"\"Anlegen\"\"\"\r\n Me!txtAddNewCode.DefaultValue = \"\"\"Debug.Print<\/span> \"\"\"\"Anlegen\"\"\"\"\"\"\"\r\n Me!cboAddNewIcon.DefaultValue = 10\r\n Set<\/span> Me!cboDeleteIcon.Recordset = rstIcons\r\n Me!chkDeleteButton.DefaultValue = True<\/span>\r\n Me!txtDeleteCaption.DefaultValue = \"\"\"Löschen\"\"\"\r\n Me!txtDeleteCode.DefaultValue = \"\"\"Debug.Print<\/span> \"\"\"\"Löschen\"\"\"\"\"\"\"\r\n Me!cboDeleteIcon.DefaultValue = 12\r\n Set<\/span> Me!cboEditIcon.Recordset = rstIcons\r\n Me!chkEditButton.DefaultValue = True<\/span>\r\n Me!txtEditCaption.DefaultValue = \"\"\"Bearbeiten\"\"\"\r\n Me!txtEditCode.DefaultValue = \"\"\"Debug.Print<\/span> \"\"\"\"Bearbeiten\"\"\"\"\"\"\"\r\n Me!cboEditIcon.DefaultValue = 11\r\n Me!chkAutoCenter.DefaultValue = True<\/span>\r\n Me!cboButtonStyleID.DefaultValue = dbc.OpenRecordset(\"SELECT ButtonStyleID FROM tblButtonStyles\", _\r\n dbOpenDynaset).Fields(0)\r\n Me!txtSubformHeight.DefaultValue = 5000\r\n Me!txtSubformWidth.DefaultValue = 10000\r\n Me!txtMargin.DefaultValue = 50\r\n Me!chkSearchTextbox.DefaultValue = True<\/span>\r\n Me!txtSearchCaption.DefaultValue = \"\"\"Suchen nach\"\"\"\r\n Me!txtSearchCode.DefaultValue = \"\"\"Debug.Print<\/span> \"\"\"\"Suchen\"\"\"\"\"\"\"\r\n If <\/span>Not<\/span> Len<\/span>(Nz(Me.OpenArgs, \"\")) = 0 Then<\/span>\r\n Me!cboDatasource = Me.OpenArgs\r\n cboDatasource_AfterUpdate\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAuswählen einer Datensatzquelle für das zu erstellende Übersichtsformular<\/h2>\n
Private Sub <\/span>cboDatasource_AfterUpdate()\r\n If <\/span>ReadOverviewFieldsFromTable(Me!cboDatasource) = True<\/span> Then<\/span>\r\n Me!sfmOverviewforms.Form.Requery\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtFormname, \"\")) = 0 Then<\/span>\r\n Me!txtFormname = Replace<\/span>(Replace<\/span>(Me!cboDatasource, \"tbl\", \"frm\"), \"qry\", \"frm\")\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtUnterformularname, \"\")) = 0 Then<\/span>\r\n Me!txtUnterformularname = Replace<\/span>(Me!txtFormname, \"frm\", \"sfm\")\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtFormTitle, \"\")) = 0 Then<\/span>\r\n Me!txtFormTitle = Replace<\/span>(Replace<\/span>(Me!cboDatasource, \"tbl\", \"\"), \"qry\", \"\")\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nEintragen der Feldnamen für die Übersicht im Unterformular<\/h2>\n
Public Function <\/span>ReadOverviewFieldsFromTable(strDataSource As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database, dbc As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset, rstSource As <\/span>DAO.Recordset\r\n Dim <\/span>bolReadFields As Boolean<\/span>, lngControlType As <\/span>AcControlType\r\n Dim <\/span>varRowSourceType As Variant<\/span>, varRowSource As Variant<\/span>, varBoundColumn As Variant<\/span>\r\n Dim <\/span>varCaption As Variant<\/span>, varColumnCount As Variant<\/span>, varColumnWidths As Variant<\/span>\r\n Dim <\/span>fld As <\/span>DAO.Field, i As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> dbc = CodeDb\r\n Set<\/span> rst = dbc.OpenRecordset(\"SELECT * FROM tblOverviewfields WHERE OverviewformID = \" & Me!OverviewformID, _\r\n dbOpenDynaset)\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n rst.MoveLast\r\n End If<\/span>\r\n bolReadFields = True<\/span>\r\n Me.Dirty = False<\/span>\r\n If <\/span>Not<\/span> rst.RecordCount = 0 Then<\/span>\r\n bolReadFields = MsgBox<\/span>(\"Sollen die Felder neu eingelesen werden?\", vbYesNo + vbExclamation, _\r\n \"Felder neu einlesen?\") = vbYes\r\n End If<\/span>\r\n If <\/span>bolReadFields = True<\/span> Then<\/span>\r\n dbc.Execute \"DELETE FROM tblOverviewfields WHERE OverviewformID = \" & Me!OverviewformID, dbFailOnError\r\n Set<\/span> rstSource = db.OpenRecordset(strDataSource, dbOpenDynaset)\r\n For Each fld In rstSource.Fields\r\n Call<\/span> GetControlProperties(fld, varCaption, intControlType, varBoundColumn, varRowSourceType, _\r\n varRowSource, varColumnCount, varColumnWidths)\r\n rst.AddNew<\/span>\r\n rst!OverviewformID = Me!txtOverviewFormID\r\n rst!FieldName = fld.Name\r\n rst!Fieldindex = i\r\n rst!FieldWidth = 2000\r\n rst!FieldHeight = 300\r\n rst!FieldColumn = 1\r\n rst!Fieldlabel = Nz(varCaption, fld.Name)\r\n rst!ControlType = lngControlType\r\n rst!RowSourceType = varRowSourceType\r\n rst!RowSource = varRowSource\r\n rst!BoundColumn = varBoundColumn\r\n rst!ColumnCount = varColumnCount\r\n rst!ColumnWidths = varColumnWidths\r\n rst.Update\r\n i = i + 1\r\n Next<\/span> fld\r\n ReadOverviewFieldsFromTable = True<\/span>\r\n Me!sfmOverviewforms.Form.Requery\r\n Else<\/span>\r\n ReadOverviewFieldsFromTable = False<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nEinlesen der Feldeigenschaften<\/h2>\n
Public Function <\/span>GetControlProperties(fld As <\/span>DAO.Field, varCaption As Variant<\/span>, intControlType As <\/span>AcControlType, _\r\n varBoundColumn As Variant<\/span>, varRowSourceType As Variant<\/span>, varRowSource As Variant<\/span>, varColumnCount As Variant<\/span>, _\r\n varColumnWidths As Variant<\/span>)\r\n intControlType = 0\r\n varCaption = Null\r\n varBoundColumn = Null\r\n varRowSourceType = Null\r\n varRowSource = Null\r\n varColumnCount = Null\r\n varColumnWidths = Null\r\n On Error Resume Next<\/span>\r\n varCaption = fld.Properties(\"Caption\")\r\n intControlType = fld.Properties(\"DisplayControl\")\r\n Select Case intControlType\r\n Case <\/span>acTextBox\r\n Debug.Print<\/span> fld.Name, \"acTextBox\"\r\n Case <\/span>acComboBox\r\n varBoundColumn = fld.Properties(\"BoundColumn\")\r\n varRowSourceType = fld.Properties(\"RowSourceType\")\r\n varRowSource = fld.Properties(\"RowSource\")\r\n varColumnCount = fld.Properties(\"ColumnCount\")\r\n varColumnWidths = fld.Properties(\"ColumnWidths\")\r\n Case <\/span>acCheckBox\r\n Debug.Print<\/span> fld.Name, \"acCheckBox\"\r\n Case Else<\/span>\r\n Debug.Print<\/span> \"anderer Controltype\", intControlType\r\n End Select<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Function<\/span><\/pre>\nÜbersichtsformulare per Code erstellen<\/h2>\n
Funktion zum Erstellen eines neuen Formulars<\/h2>\n
Public Function <\/span>CreateNewForm(strName As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>frm As <\/span>Form\r\n Dim <\/span>strNameTemp As String<\/span>\r\n If <\/span>ExistsForm(strName) Then<\/span>\r\n If MsgBox<\/span>(\"Formular ''\" & strName & \"'' ist bereits vorhanden. Überschreiben?\", vbYesNo + vbExclamation, _\r\n \"Formular überschreiben\") = vbYes Then\r\n If <\/span>DeleteForm(strName) = False<\/span> Then<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Set<\/span> frm = CreateForm()\r\n strNameTemp = frm.Name\r\n frm.Visible = True<\/span>\r\n DoCmd.Close acForm, frm.Name, acSaveYes\r\n DoCmd.Rename strName, acForm, strNameTemp\r\n CreateNewForm = True<\/span>\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>ExistsForm(strForm As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>objForm As <\/span>AccessObject\r\n For Each objForm In CurrentProject.AllForms\r\n If <\/span>objForm.Name = strForm Then<\/span>\r\n ExistsForm = True<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Next<\/span> objForm\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>DeleteForm(strName As String<\/span>) As Boolean<\/span>\r\n On Error Resume Next<\/span>\r\n DoCmd.DeleteObject acForm, strName\r\n If <\/span>Err.Number = 0 Then<\/span>\r\n DeleteForm = True<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> Err.Description, vbCr<\/span>itical + vbOKOnly, _\r\n \"Löschen fehlgeschlagen\"\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n