Unterformulare in der Datenblattansicht nutzen wir normalerweise, wenn wir die Daten einer festen Datenquelle passend zu den Daten im Hauptformular anzeigen wollen – zum Beispiel für Kunden im Hauptformular und ihre Bestellungen im Unterformular. Manchmal möchte man aber auch einfach mal schnell Daten aus beliebigen Tabellen einsehen. Warum dann nicht einfach die Tabelle oder Abfrage in der Datenblattansicht anzeigen? Weil wir dann im Gegensatz zum Haupt-\/Unterformular viel weniger Möglichkeiten haben, was zum Beispiel den Einsatz von VBA angeht. Wenn wir uns etwa die Lösung aus dem Beitrag „Markierte Datensätze aus dem Datenblatt einlesen“ (www.access-im-unternehmen.de\/1548) anschauen, können wir dort per VBA die aktuell markierten Datensätze auslesen. Das ist bei Tabellen oder Abfragen, die wir alleinstehend öffnen, nicht möglich. Deshalb zeigen wir in diesem Beitrag zunächst, wie wir beliebige Tabellen oder Abfragen komfortabel über ein Kombinationsfeld auswählen und dann im Unterformular einblenden können. Anschließend bauen wir noch die Lösung aus dem oben genannten Beitrag ein.<\/b><\/p>\n
Tabellen und Abfragen im Unterformular<\/h2>\n
In Microsoft Access gibt es schon lange die Möglichkeit, für ein Unterformular über die Eigenschaft Herkunftsobjekt <\/b>nicht nur Formulare, sondern auch Tabellen oder Abfragen direkt in der Datenblattansicht anzuzeigen.<\/p>\n
Für Formulare selbst gibt es diese Eigenschaft nicht, diese wird nur für das Unterformular-Steuerelement bereitgestellt.<\/p>\n
Das können wir leicht testen, indem wir einem neuen, leeren Formular ein Unterformular-Steuerelement hinzufügen. Klicken wir dieses an, zeigt das Eigenschaftenblatt im Register Daten <\/b>die Eigenschaft Herkunftsobjekt <\/b>an, mit dem wir neben den Formularen auch alle vorhandenen Tabellen und Abfragen auswählen können (siehe Bild 1).<\/p>\n
![\"Klassische](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_001.png\")
<\/p>\n
Bild 1: Klassische Auswahl der Tabelle oder Abfrage für ein Unterformular<\/span><\/b><\/p>\n Um zwischen den verschiedenen Objekttypen unterscheiden zu können, wird diesen noch die Objektbezeichnung vorangestellt, zum Beispiel Formular, Tabelle oder Abfrage. Danach folgt, durch einen Punkt getrennt, der eigentliche Name des Objekts.<\/p>\n Wählen wir hier beispielsweise den Eintrag Tabelle.tblMitarbeiter<\/b> aus, sehen wir den Namen dieses Eintrags anschließend auch im Unterformular-Steuerelement (siehe Bild 2).<\/p>\n Bild 2: Das gewählte Objekt wird im Unterformular angezeigt.<\/span><\/b><\/p>\n Im Gegensatz zur Verwendung eines Formulars als Unterformular, das nach dem Schließen und erneutem Öffnen des Formulars in der Entwurfsansicht angezeigt wird, sehen wir bei Verwendung einer Tabelle oder Abfrage nach wie vor nur die Bezeichnung.<\/p>\n Wenn wir jedoch in die Formularansicht wechseln, erscheint die Datenblattansicht der gewählten Tabelle oder Abfrage im Unterformular (siehe Bild 3).<\/p>\n Bild 3: Eine Tabelle im Unterformular<\/span><\/b><\/p>\n Wir erstellen nun ein neues Formular, dem wir zusätzlich zu dem Unterformular-Steuerelement namens sfm <\/b>noch ein Kombinationsfeld namens cboTabellenUndAbfragen <\/b>hinzufügen (siehe Bild 4).<\/p>\n Bild 4: Aufbau unseres Beispielformulars<\/span><\/b><\/p>\n Dieses Kombinationsfeld soll alle Tabellen und Abfragen der Datenbank zur Auswahl anbieten, die wir auch im Navigationsbereich von Access sehen können.<\/p>\n Dazu erstellen wir eine Abfrage als Datensatzherkunft des Kombinationsfeldes, welche die Systemtabelle MSysObjekts <\/b>als Quelle verwendet (siehe Bild 5).<\/p>\n Bild 5: Abfrage, die alle Tabellen und Abfragen liefert<\/span><\/b><\/p>\n Um diese Tabelle in den Abfrageentwurf ziehen zu können, müssen wir in den Optionen des Navigationsbereichs die Option Systemobjekte anzeigen <\/b>aktivieren.<\/p>\n Danach fügen wir diese Tabelle zum Abfrageentwurf hinzu und ziehen die beiden Felder Name <\/b>und Type <\/b>in das Entwurfsraster.<\/p>\n Das Feld Type <\/b>verwenden wir, um nur die Tabellen und Abfragen der Datenbank anzuzeigen. Tabellen haben einen der Typen 1<\/b>, 4 <\/b>oder 6 <\/b>(für lokale Tabellen, ODBC-Tabellen oder andere verknüpfte Datenquellen), Abfragen werden dem Typ 5 <\/b>zugeordnet.<\/p>\n Aber auch die Tabellen und Abfragen müssen wir noch weiter filtern, um nur die relevanten Objekte zu erhalten. Wir möchten zum Beispiel keine Systemtabellen sehen. Außerdem sollen keine temporären Objekte sichtbar sein. Dazu stellen wir in der Zeile Kriterium <\/b>für das Feld Name <\/b>den folgenden Ausdruck ein:<\/p>\n Schließlich sortieren wir das Feld Name <\/b>noch in aufsteigender Reihenfolge.<\/p>\n Nach dem Wechsel in die Formularansicht zeigt das Kombinationsfeld nun alle gewünschten Elemente der Datenbank an (siehe Bild 6).<\/p>\n Bild 6: Das Kombinationsfeld zeigt nun alle gewünschten Tabellen und Abfragen an.<\/span><\/b><\/p>\n Nun wollen wir dafür sorgen, dass nach der Auswahl eines der Einträge die entsprechende Tabelle oder Abfrage im Unterformular angezeigt wird.<\/p>\n Dazu hinterlegen wir für die Ereignisprozedur Nach Aktualisierung <\/b>die Prozedur aus Listing 1.<\/p>\n Listing 1: Prozedur zum Anzeigen der gewählten Tabelle oder Abfrage im Unterformular<\/span><\/b><\/p>\n Die Prozedur ermittelt zuerst den Typ des jeweiligen Elements, indem sie diesen per DLookup <\/b>aus der Tabelle MSysObjects <\/b>ausliest.<\/p>\n Wir hätten den Wert dieses Feldes auch in einer Spalte des Kombinationsfeldes bereitstellen und ihn dann von dort auslesen können, aber wir haben uns für diesen Weg entschieden.<\/p>\n Den Typ speichern wir in der Variablen lngType<\/b>. Diesen werten wir in der folgenden Select Case<\/b>-Bedingung aus, wo wir im ersten Teil die Tabellen zuweisen und im zweiten die Abfragen.<\/p>\n Warum können wir die Elemente nicht einfach über den Namen zuweisen? Weil wir diesem zuvor noch den Typ mit einer der Zeichenketten Tabelle <\/b>oder Abfrage <\/b>voranstellen müssen – genau wie in der Eigenschaft Herkunftstyp<\/b>.<\/p>\n Genau genommen wollen wir dies vorsichtshalber international gestalten, denn wenn wir diesen Code in einer englischen Version von Access ausführen, könnte es Probleme geben.<\/p>\n Also fügen wir für die Tabellen den Text Table<\/b> voran und für die Abfragen den Text Query<\/b>.<\/p>\n Hier finden wir direkt noch den Aufruf einer Prozedur namens KontextmenueAnpassen<\/b>, der ebenfalls entweder den Wert Table <\/b>oder Query <\/b>als Parameter erhält. Was es damit auf sich hat, erläutern wir weiter unten.<\/p>\n Das Ergebnis nach der Auswahl einer Tabelle sehen wir in Bild 7. Wir können auf diese Weise nun schnell beliebige Tabellen oder Abfragen im Unterformular anzeigen.<\/p>\n Bild 7: Anzeige einer Tabelle im Unterformular<\/span><\/b><\/p>\n Die Runtime-Version von Access erlaubt uns nicht das Öffnen von Tabellen oder Abfragen über den Navigationsbereich, da dieser dort nicht vorhanden ist.<\/p>\n Also können wir dieses Formular zum Beispiel versteckt zu Runtime-Versionen unserer Anwendungen hinzufügen, um zu Debugging-Zwecken schnell die Inhalte von Tabellen oder Abfragen zu untersuchen.<\/p>\n Wir haben bereits die Lösung aus dem Beitrag Markierte Datensätze aus dem Datenblatt einlesen <\/b>(www.access-im-unternehmen.de\/1548<\/b>) angesprochen. Hier beschreiben wir, wie man die in einem Unterformular markierten Datensätze auslesen und mit diesen weitere Aktionen ausführen kann.<\/p>\n Das gelingt natürlich mit einfachen Tabellen oder Abfragen nicht. Im Kontext eines Unterformulars können wir jedoch auch die Tabellen oder Abfragen per VBA programmieren, da diese dort auf spezielle Art angezeigt werden. Also erweitern wir das Beispiel so, dass wir die Techniken aus dem oben genannten Beitrag darauf anwenden können.<\/p>\n Weiter oben haben wir den Aufruf der Prozedur KontextmenueAnpassen <\/b>gesehen. Diese Prozedur aus Listing 2 fügt dem Kontextmenü für das aktuelle Objekt im Unterformular einen Befehl namens Auswahl verarbeiten <\/b>hinzu. Diese Prozedur mussten wir gegenüber dem Original ein wenig anpassen. Der Grund ist, dass wir uns dort auf das Kontextmenü für ein Formular in der Datenblattansicht konzentriert haben (Form Datasheet Row<\/b>).<\/p>\n Listing 2: Prozedur zum Anpassen des Kontextmenüs<\/span><\/b><\/p>\n Dieses Kontextmenü wird aber, wenn wir mit der rechten Maustaste in die Tabelle oder Abfrage im Unterformular klicken, nicht angezeigt.<\/p>\n Hier erscheint stattdessen entweder das Kontextmenü Table Design Datasheet Row <\/b>(für Tabellen) oder Query Design Datasheet Row <\/b>(für Abfragen).<\/p>\n Dies müssen wir berücksichtigen, indem wir den notwendigen Eintrag jeweils in das Kontextmenü für das aktuell angezeigte Element, also für eine Tabelle oder Abfrage, einfügen.<\/p>\n Das anzulegende Element löschen wir zuerst mit der Delete<\/b>-Methode und fügen es anschließend mit Add <\/b>erneut hinzu.<\/p>\n Die Variable cbbTableQueryDatasheetRow<\/b>, mit der wir das Steuerelement referenzieren, deklarieren wir modulweit im Klassenmodul des Hauptformulars mit der folgenden Anweisung:<\/p>\n Dafür hinterlegen wir die folgende Click<\/b>-Ereignisprozedur:<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_002.png\")
<\/p>\n![\"Eine](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_003.png\")
<\/p>\nTabelle oder Abfrage komfortabel auswählen<\/h2>\n
![\"Aufbau](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_004.png\")
<\/p>\nAbfrage mit allen Tabellen und Abfragen<\/h2>\n
![\"Abfrage,](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_005.png\")
<\/p>\nNicht Wie ''~*'' Und Nicht Wie ''MSys*'' Und Nicht Wie ''f_*''<\/pre>\n
![\"Das](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_006.png\")
<\/p>\nInhalt der gewählten Tabelle oder Abfrage im Unterformular anzeigen<\/h2>\n
Private Sub <\/span>cboTabellenAbfragen_AfterUpdate()\r\n Dim <\/span>lngType As Long<\/span>\r\n lngType = DLookup(\"Type\", \"MSysObjects\", \"Name = ''\" & Me.cboTabellenAbfragen & \"''\")\r\n Select Case lngType\r\n Case <\/span>1, 4, 6\r\n Me.sfm.SourceObject = \"Table.\" & Me.cboTabellenAbfragen\r\n KontextmenueAnpassen \"Table\"\r\n Case <\/span>5\r\n Me.sfm.SourceObject = \"Query.\" & Me.cboTabellenAbfragen\r\n KontextmenueAnpassen \"Query\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2025_04\/pic_1554_007.png\")
<\/p>\nAnwendungszweck: Runtime<\/h2>\n
Anwendungszweck: Programmierbarkeit von Tabellen und Abfragen<\/h2>\n
Kontextmenü zum Abfragen der aktuellen Selektion<\/h2>\n
Private Sub <\/span>KontextmenueAnpassen(strObjekttyp As String<\/span>)\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Dim <\/span>strCommandBar As String<\/span>\r\n strCommandBar = strObjekttyp & \" Design Datasheet Row\"\r\n Set<\/span> cbr = CommandBars(strCommandBar)\r\n On Error Resume Next<\/span>\r\n cbr.Controls(\"Auswahl verarbeiten\").Delete\r\n On Error GoTo<\/span> 0\r\n Set<\/span> cbbTableQueryDatasheetRow = _\r\n cbr.Controls.Add(msoControlButton, , , , True<\/span>)\r\n With<\/span> cbbTableQueryDatasheetRow\r\n .Caption = \"Auswahl verarbeiten\"\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents cbbTableQueryDatasheetRow As <\/span>CommandBarButton<\/pre>\nPrivate Sub <\/span>cbbFormDatasheetRow_Click(ByVal Ctrl As <\/span>_\r\n Office.CommandBarButton, CancelDefault As Boolean<\/span>)\r\n Call<\/span> DatenDerMarkierungErmitteln\r\nEnd Sub<\/span><\/pre>\n