![\"Haupt-](\"..\/tl_files\/images\/pic_375_001.png\")
<\/a><\/p>\nBild 1: Haupt- und Unterformular zur Anzeige der Daten aus der gleichen Datenherkunft<\/p>\n
Erster Versuch<\/h2>\n
Dabei stellen wir uns nun vor, dass Folgendes funktionieren könnte und probieren es aus. Für das Ereignis Beim Anzeigen <\/b>des Hauptformulars legen wir die folgende Ereignisprozedur an:<\/p>\n Diese Prozedur stellt also den Datensatzmarkierer für das Recordset im Unterformular auf den Datensatz ein, dessen Primärschlüsselfeld HerstellerID <\/b>dem passenden Wert im Hauptformular entspricht.<\/p>\n Für das entsprechende Ereignis des Unterformulars verwenden wir eine ganz ähnliche Ereignisprozedur, welche die folgende Zeile enthält:<\/p>\n Diese versucht, den Datensatzzeiger im Recordset des Hauptformulars auf den Datensatz einzustellen, dessen HerstellerID <\/b>im Unterformular ausgewählt wurde. öffnen wir nun das Formular in der Formularansicht, erhalten wir die Ansicht aus Bild 2 – es klappt also wie gewünscht.<\/p>\n Bild 2: Beim Anzeigen erscheinen die Datensätze im Haupt- und Unterformular synchron.<\/p>\n Das ist auch der Fall, wenn wir zwischen den Datensätzen im Haupt- oder im Unterformular navigieren. Es tritt erst ein Problem auf, wenn wir den Datensatzzeiger im Haupt- oder Unterformular auf einen neuen, leeren Datensatz verschieben.<\/p>\n Dann erhalten wir die Fehlermeldung aus Bild 3. Der Grund für diese Fehlermeldung ist, dass Me!HerstellerID <\/b>zu diesem Zeitpunkt, also beim Anlegen eines neuen Datensatzes, den Wert Null <\/b>enthält. Dadurch sieht der Ausdruck, der als Kriterium der FindFirst<\/b>-Methode verwendet wird, wie folgt aus:<\/p>\n Bild 3: Fehler beim Anzeigen eines neuen, leeren Datensatzes<\/p>\n Diesen Ausdruck kann Access nicht auswerten, also wird die Fehlermeldung aus der Abbildung generiert.<\/p>\n ändern wir die beiden Ereignisprozeduren also etwas ab, um die Fehlermeldung zu verhindern. Dazu fassen wir die Angabe des Wertes Me!Hersteller <\/b>einfach mit der Funktion Nz <\/b>ein und geben als zweiten Parameter den Wert 0 <\/b>an, was dafür sorgt, dass die Funktion den Wert 0 <\/b>liefert, wenn HerstellerID <\/b>den Wert Null aufweist:<\/p>\n Dies führt nun immerhin dazu, dass beim Ansteuern eines neuen, leeren Datensatzes im Haupt- oder Unterformular kein Fehler mehr ausgelöst wird. Allerdings finden wir hier ein etwas merkwürdiges Verhalten vor, denn wenn Sie etwa mit der Tabulator-Taste im Unterformular vom letzten auf den neuen, leeren Datensatz wechseln, springt der Datensatzzeiger auf den ersten Datensatz im Unterformular. Das Gleiche geschieht auch manchmal, wenn Sie mit der Maus von einem anderen Datensatz auf den neuen, leerenDatensatz wechseln. Wenn Sie hingegen soeben auf den letzten Datensatz gewechselt sind und der Datensatzzeiger dadurch auf den ersten Datensatz gesprungen ist und dann mit der Maus auf den neuen, leeren Datensatz klicken, verbleibt der Datensatzzeiger auf diesen Datensatz.<\/p>\n Was geschieht im Hintergrund genau Um das herauszufinden, haben wir den beiden Ereignisprozeduren jeweils eine Debug.Print<\/b>-Anweisung hinzugefügt, welche einen Hinweis auf die jeweilige Prozedur im Haupt- oder Unterformular im Direktfenster ausgibt:<\/p>\n Wenn wir das Formular nun öffnen, werden die Ereignisse in dieser Reihenfolge ausgelöst:<\/p>\n Das Verschieben des Datensatzzeigers über das Ereignis im Unterformular sorgt also dafür, dass auch das Ereignis Beim Anzeigen <\/b>im Hauptformular ausgelöst wird. Obwohl dieses wiederum den Datensatzzeiger im Unterformlar verschiebt, löst dies nicht nochmal das Ereignis Beim Anzeigen <\/b>im Unterformular aus. Offensichtlich hat Access einen Automatismus eingebaut, der Zirkelbezüge zwischen Prozeduren schnell erkennt und nach einmaliger Ausführung abbricht. Dabei wird die Prozedur im Hauptformular genau nach dem Aufruf von FindFirst <\/b>im Unterformular ausgelöst. Nach dem Abarbeiten der Prozedur im Hauptformular wird dann noch die letzte Zeile der Prozedur im Unterformular erledigt (siehe Bild 4).<\/p>\n Bild 4: Ablauf der beiden Prozeduren beim öffnen des Formulars<\/p>\n Wenn Sie mit der Tabulator-Taste von einem Datensatz zum nächsten wechseln, löst dies jeweils die gleichen Ereignisse aus. Wenn wir auf diese Weise allerdings auf dem neuen, leeren Datensatz landen, werden folgende Ereignisse ausgelöst:<\/p>\n Dabei löst FindFirst <\/b>im Unterformular die Prozedur im Hauptformular aus und FindFirst <\/b>im Hauptformular nochmals die entsprechende Prozedur im Unterformular. Erst danach bricht die Abarbeitung der Ereignisprozeduren ab.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>Form_Current()\r\n Me!sfmHersteller.Form.Recordset!HerstellerID = Me!HerstellerID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n Me.Parent.Recordset.FindFirst \"HerstellerID = \" & Me!HerstellerID\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\n<\/a><\/p>\nHerstellerID = <\/pre>\n
'Hauptformular\r\nPrivate Sub <\/span>Form_Current()\r\n Me!sfmHersteller.Form.Recordset.FindFirst \"HerstellerID = \" & Nz(Me!HerstellerID, 0)\r\nEnd Sub<\/span>\r\n'Unterformular\r\nPrivate Sub <\/span>Form_Current()\r\n Me.Parent.Recordset.FindFirst \"HerstellerID = \" & Nz(Me!HerstellerID, 0)\r\nEnd Sub<\/span><\/pre>\n'Hauptformular\r\nPrivate Sub <\/span>Form_Current()\r\n Debug.Print<\/span> \"Hauptformular_Current\"\r\n Me!sfmHersteller.Form.Recordset.FindFirst \"HerstellerID = \" & Nz(Me!HerstellerID, 0)\r\nEnd Sub<\/span>\r\n'Unterformular\r\nPrivate Sub <\/span>Form_Current()\r\n Debug.Print<\/span> \"Unterformular_Current\"\r\n Me.Parent.Recordset.FindFirst \"HerstellerID = \" & Nz(Me!HerstellerID, 0)\r\nEnd Sub<\/span><\/pre>\nUnterformular_Current\r\nHauptformular_Current<\/pre>\n
<\/a><\/p>\nUnterformular_Current\r\nHauptformular_Current\r\nUnterformular_Current<\/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