![\"Hinzufügen](\"..\/tl_files\/images\/pic_381_001.png\")
<\/a><\/p>\nBild 1: Hinzufügen eines Berichts zu einem Formular als Unterformular<\/p>\n
Kleine Korrekturen<\/h2>\n
Wie Sie sehen, zeigt dieses oben im Seitenkopfbereich die überschrift Aufgabenplaner <\/b>an, die wir in diesem Kontext nicht benötigen. Außerdem bietet der Seitenkopfbereich noch die Schaltfläche cmdNeu <\/b>zum Hinzufügen neuer Aufgaben zur Tabelle tblAufgaben<\/b>. Wir wollen den Seitenkopf-Bereich nun komplett aus dem Bericht entfernen. Die überschrift können wir ersatzlos löschen, die Schaltfläche fügen wir dem Hauptformular hinzu. Außerdem wollen wir, dass sich die Höhe des Unterberichts automatisch an die Höhe des Formulars anpasst, wozu wir die Eigenschaft Vertikaler Anker <\/b>des Unterformular-Steuerelements auf den Wert Beide <\/b>einstellen. Eine Anpassung des horizontalen Ankers ist in diesem Fall nicht nötig, da die Steuer-elemente im Bericht selbst nicht angepasst werden können – es gibt im Bericht schlicht keine passenden Eigenschaften. In der Entwurfsansicht sieht das Formular nun wie in Bild 2 aus.<\/p>\n
Bild 2: Ausgerichteter Unterbericht<\/p>\n Den Code der Schaltfläche cmdNeu <\/b>müssen wir etwas anpassen, da wir nach dem Anlegen der neuen Aufgabe ja nicht mehr das Objekt aktualisieren wollen, in dem die Prozedur ausgeführt wird, sondern den im Unterformular-Steuerelement befindlichen Bericht. Dies sieht dann wie folgt aus:<\/p>\n Die Requery<\/b>-Methode wird also für das Report<\/b>-Objekt im Unterformular-Steuerelement rptAufgabenplaner <\/b>ausgelöst. Das das Unterformular-Steuerelement mit rptAufgabenplaner <\/b>benannt wurde, liegt schlicht daran, dass die Unterformular-Steuerelemente für Objekte, die aus dem Navigationsbereich in ein Formular gezogen werden, automatisch den Namen des gezogenen Objekts erhalten.<\/p>\n Interessanterweise gibt es aber für im Unterformular-Steuerelement befindliche Berichte eine eigene Eigenschaft zum Referenzieren, nämlich Report<\/b>.<\/p>\n Aus optischen Gründen haben wir auch noch die Eigenschaft Rahmenart des Unterformular-Steuerelements auf Transparent eingestellt, sodass das Formular in der Formularansicht wie in Bild 3 aussieht.<\/p>\n Bild 3: Der neu gestaltete Bericht im Hauptformular mit Neu-Schaltfläche<\/p>\n Warum nun den Bericht in der Berichtsansicht im Hauptformular unterbringen Ganz einfach: Weil wir benutzerdefinierte Filter festlegen wollen, mit den wir beispielsweise nach der Bezeichnung der Aufgabe, der Katgorie oder dem Datum filtern können. Das gelingt zwar auch schon über die Benutzeroberfläche mit Bordmitteln, aber diese sind nicht direkt erreichbar. Wenn wir wissen, wonach der Benutzer filtern will, können wir die notwendigen Steuer-elemente auch direkt sichtbar im Formular anlegen.<\/p>\n Beginnen wir mit einem Filter, der die im Bericht im Unterformular befindlichen Aufgaben nach der Bezeichnung der Aufgabe filtert. Dazu fügen wir dem Hauptformular ein Textfeld namens txtFilter <\/b>hinzu sowie eine Schaltfläche namens cmdFiltern<\/b>, mit der wir den Filter anwenden können. Außerdem fügen wir noch eine Schaltfläche hinzu, mir der wir den angewendeten Filter wieder aufheben können. Der Entwurf des Formulars sieht dann wie in Bild 4 aus.<\/p>\n Bild 4: Steuer-elemente zum Filtern und zum Aufheben des Filters<\/p>\n Um den Filter anzuwenden, fügen die der Schaltfläche cmdFiltern <\/b>die folgende Prozedur hinzu:<\/p>\n Diese ermittelt den Inhalt des Textfeldes txtFilter <\/b>und stellt eine Bedingung zusammen, die beispielsweise Bezeichnung LIKE ‚Artikel*‘ <\/b>lautet. Dieser wird dann an die Eigenschaft Filter <\/b>des Berichts im Unterformular übergeben. Außerdem stellen wir die Eigenschaft FilterOn <\/b>des gleichen Elements auf True <\/b>ein. Damit werden nun nur noch die der Bedingung entsprechenden Elemente im Bericht im Unterformular angezeigt (siehe Bild 5).<\/p>\n Bild 5: Filtern nach der Bezeichnung einer Aufgabe<\/p>\n Praktischerweise bleiben nun auch die Datumsangaben und die Kategorien erhalten.<\/p>\n Um den Filtern wieder aufzuheben, fügen wir eine weitere Schaltfläche namens cmdKeinFilter <\/b>hinzu. Diese löst die folgende Prozedur aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nPrivate Sub <\/span>cmdNeu_Click()\r\n DoCmd.OpenForm \"frmAufgabe\", WindowMode:=acDialog, DataMode:=acFormAdd\r\n Me!rptAufgabenplaner.Report.Requery\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nBenutzerdefinierter Filter<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cmdFiltern_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n strFilter = \"Bezeichnung LIKE '\" & Me!txtFilter & \"'\"\r\n With<\/span> Me!rptAufgabenplaner.Report\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nPrivate Sub <\/span>cmdKeinFilter_Click()\r\n Me!txtFilter = \"\"\r\n With<\/span> Me!rptAufgabenplaner.Report\r\n .Filter = \"\"\r\n .Requery\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t