Später lernen Sie, dass man Recordsets auch auf Basis anderer Recordsets öffnen kann. <\/p>\n
Tabellen und Felder vorauswählen<\/h2>\n
Wenn Sie nicht alle Felder aller Datensätze einer Tabelle im Recordset verfügbar möchten, verwenden Sie am einfachsten eine Abfrage, die nur die benötigten Felder zurückliefert. In dieser Abfrage können Sie auch mehrere, normalerweise miteinander verknüpfte Tabellen kombinieren und Felder aus mehreren Tabellen zusammenführen.<\/p>\n
Wenn Sie in einem Recordset beispielsweise auf eine Liste von Personen samt Anrede zugreifen möchten, wobei die Anreden sich in einer Lookup-Tabelle befinden, mit der die Personen-Tabelle per Fremdschlüsselfeld verknüpft ist, legen Sie zuerst eine Abfrage wie in Bild 1 <\/b>an.<\/p>\n
Bild 1: Zusammenführen von Personen und Anreden für ein Recordset<\/p>\n Wenn Sie diese Daten nun ausgeben möchten, verwenden Sie eine Prozedur wie die folgende:<\/p>\n Sie sehen: Das Ausgeben der Daten erfolgt genauso, als ob diese sich in einer einzigen Tabelle befinden würden.<\/p>\n Wenn Sie nicht alle Datensätze einer Tabelle in ein Recordset aufnehmen möchten, können Sie diese ebenfalls mithifle einer Abfrage filtern. Dazu legen Sie einfach ein entsprechendes Kriterium für die betroffenen Felder fest. Wie dies gelingt, erfahren Sie beispielsweise im Artikel SQL: SELECT-Abfragen<\/b>.<\/p>\n Wenn Sie ein Recordset bereits geöffnet haben und die enthaltenen Datensätze auf Basis eines bestimmten Kriteriums weiter filtern möchten, können Sie die Filter<\/b>-Eigenschaft einsetzen.<\/p>\n Die Filter<\/b>-Eigenschaft erwartet eine gültige SQL-Bedingung als Ausdruck, also beispielsweise Anrede = ‚Frau‘<\/b>. Nachdem sie die Filter-Eigenschaft gesetzt hat, öffnet die folgende Prozedur ein zweites Recordset-Objekt namens rstNurFrauen <\/b>auf Basis des ersten Recordsets rstAlle <\/b>und wendet den Filter darauf an:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Zusammenführen](\"..\/tl_files\/images\/pic_94_001.png\")
<\/a><\/p>\nPublic Sub <\/span>PersonenUndAnreden()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"qryPersonen\", _\r\n dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Debug.Print<\/span> rst!Anrede, rst!Vorname, _\r\n rst!Nachname\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nFiltern und Sortieren beim öffnen des Recordsets<\/h2>\n
Nachträgliches Filtern eines Recordsets<\/h2>\n
Public Sub <\/span>PersonenNachAnrede()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstAlle As <\/span>DAO.Recordset\r\n Dim <\/span>rstNurFrauen As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstAlle = db.OpenRecordset(\"qryPersonen\", _\r\n dbOpenDynaset)\r\n rstAlle.Filter = \"Anrede = 'Frau'\"\r\n Set<\/span> rstNurFrauen = rstAlle.OpenRecordset\r\n Do While<\/span> Not<\/span> rstNurFrauen.EOF\r\n Debug.Print<\/span> rstNurFrauen!Anrede, _\r\n rstNurFrauen!Nachname\r\n rstNurFrauen.MoveNext<\/span>\r\n Loop<\/span>\r\n rstNurFrauen.Close\r\n Set<\/span> rstNurFrauen = Nothing\r\n rstAlle.Close\r\n Set<\/span> rstAlle = Nothing\r\n Set<\/span> db = Nothing\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