![\"Entwurf](\"..\/tl_files\/images\/pic_428_001.png\")
<\/a><\/p>\nBild 1: Entwurf der Abfrage qryKundenLieferadressenRechnungsadressen<\/p>\n
Anschließend nehmen wir noch eine wichtige änderung vor. Wenn wir die Abfrage so nutzen, wie Sie aktuell konfiguriert ist, liefert diese nur solche Datensätze der Tabelle tblKunden<\/b>, für die es sowohl in der Tabelle tblKundenLieferadressen <\/b>als auch in der Tabelle tblKundenRechnungsadressen <\/b>einen verknüpften Datensatz gibt.<\/p>\n
Daher müssen wir noch die Verknüpfungseigenschaften für die beiden Verknüpfungen einstellen. Das erledigen wir, indem wir doppelt auf einen der Verknüpfungspfeile klicken. Dies öffnet den Dialog aus Bild 2. Hier wählen wir die folgende Option aus:<\/p>\n
Bild 2: Verknüpfungseigenschaften der 1:1-Beziehung zwischen den Tabellen tblKunden und tblKundenRechnungsadressen<\/p>\n Die gleiche Einstellung nehmen wir auch für die Beziehung zwischen den Tabellen tblKunden <\/b>und tblKundenLieferadressen <\/b>vor. Danach sieht der obere Teil des Abfrageentwurfs wie in Bild 3 aus. Wenn jetzt nur ein Eintrag in der Tabelle tblKunden <\/b>vorliegt, aber keiner oder nur einer in den beiden übrigen Tabellen, werden die Felder der entsprechenden Tabelle im Abfrageergebnis leer angezeigt.<\/p>\n Bild 3: Abfrage mit angepassten Verknüpfungseigenschaften<\/p>\n Das war zumindest die Theorie, denn in der Tat erscheint beim Wechsel in die Datenblattansicht der Abfrage die folgende Fehlermeldung:<\/p>\n Das heißt also: Wir müssen erst eine Abfrage erstellen, welche die Daten der Tabelle tblKunden <\/b>mit einer der beiden per 1:1-Beziehung verknüpften Tabellen liefert und diese dann in einer zweiten Abfrage mit der anderen verknüpften Tabelle zusammenführen.<\/p>\n Die erste Abfrage ist schnell erstellt. Dazu löschen Sie einfach die Tabelle tblKundenRechnungsadressen <\/b>aus der Abfrage qryKundenLieferadressenRechnungsadressen<\/b> und ändern den Namen auf qryKundenLieferadressen<\/b>. Der Entwurf sieht dann wie in Bild 4 aus. Der Wechsel in die Datenblattansicht birgt die nächste überraschung: Auch hier taucht diese Fehlermeldung auf.<\/p>\n Bild 4: Erster Teil der Abfrage mit zwei 1:1-Beziehungen<\/p>\n Können wir die Daten der 1:1-Beziehung also gar nicht so darstellen, dass nur die Daten einer Tabelle ausgegeben werden, wenn es in der zweiten Tabelle keine verknüpften Daten gibt Das wäre ungünstig, weil wir ja dann nur neue Datensätze in einem Formular auf Basis dieser Abfrage anlegen könnten. Wenn wir hier nur die Daten zur Tabelle tblKunden <\/b>hinzufügen und kein Feld der Tabelle tblKundenLieferadressen <\/b>füllen, können wir dies auch nachträglich nicht mehr erledigen, weil dieser Datensatz der Tabelle tblKunden <\/b>schlicht nicht mehr angezeigt werden kann – zumindest nicht in einer Abfrage zusammen mit der Tabelle tblKundenLieferadressen<\/b>.<\/p>\n Nun haben wir durch das obige Problem zwei Möglichkeiten: Wir verwenden eine Version der Abfrage, welche die Daten der drei Tabellen zusammenführt, als Datensatzquelle des Formulars und sorgen gleich beim Anlegen der ersten Werte für die Felder der Tabelle tblKunden <\/b>dafür, dass jeweils ein Datensatz in den Tabellen tblKundenLieferadressen <\/b>und tblKundenRechnungsadressen <\/b>erstellt wird.<\/p>\n Dann hätten wir allerdings nicht den Vorteil, dass nur für solche Datensätze, die tatsächlich eine Lieferadresse und\/oder Rechnungsadresse erhalten, auch ein Datensatz in einer der Tabellen tblKundenLieferadressen <\/b>und\/oder tblKundenRechnungsadressen <\/b>angelegt wird. Sprich: Wir könnten auch gleich eine einzige Tabelle anlegen, die wieder alle Felder des Kunden inklusive Rechnungsadresse und Lieferadresse enthält.<\/p>\n Die Alternative ist, mit zwei Unterformularen zu arbeiten, welche die Daten der Tabellen tblKundenRechnungsadressen <\/b>und tblKundenLieferandressen <\/b>enthalten. Wir schauen uns einfach beide Lösungen an.<\/p>\n Als Datensatzquelle des ersten Formulars verwenden wir also eine Abfrage, die alle drei Tabellen, also tblKunden<\/b>, tblKundenRechnungen <\/b>und tblKundenLieferadressen <\/b>enthält (siehe qryKundenRechnungsadressenLieferadressen<\/b>).<\/p>\n Dann fügen wir die Felder etwa wie in Bild 5 zum Formularentwurf des neuen Formulars namens frmKunden1zu1EinFormular <\/b>hinzu. Dadurch, dass die doppelt vorkommenden Felder in der Abfrage alle noch mit dem Tabellennamen versehen werden, haben wir allerdings noch eine kleine Fleißaufgabe für die Bezeichnungsfelder vor uns.<\/p>\n Bild 5: Erster Entwurf des Formulars<\/p>\n Nachdem diese erledigt ist und wir noch je einen Rahmen für die Felder der Lieferadresse und der Rechnungsadresse hinzugefügt haben, sieht das Formular in der Formularansicht wie in Bild 6 aus.<\/p>\n Bild 6: Formular optisch aufbereitet<\/p>\n Hier haben wir außerdem noch die Beschriftungsfelder angepasst sowie die Aktivierreihenfolge richtig eingestellt. Nun experimentieren wir ein wenig, indem wir einen neuen Datensatz anlegen.<\/p>\n Wir legen einen neuen Datensatz an, wobei wir mit den oberen Feldern beginnen und dann die Felder mit der Lieferadresse und der Rechnungsadresse füllen. In dieser Reihenfolge gelingt das ohne Probleme – der Datensatz wird korrekt mit den verknüpften Datensätzen in den drei Tabellen gespeichert und der Datensatz erscheint nach dem Verlassen und dem erneuten Anzeigen wieder im Formular frmKunden1zu1EinFormular<\/b>.<\/p>\n Nun beginnen wir mit dem Anlegen bei den Feldern der Tabelle tblLieferadresse<\/b>, also im Rahmen mit der überschrift Lieferadresse<\/b>, tragen dann die Rechnungsadresse ein und erst dann die Daten der Tabelle tblKunden<\/b>. Auch das gelingt – der Datensatz wird gespeichert und im Formular angezeigt.<\/p>\n Wenn wir nur die Daten der Lieferadresse und\/oder der Rechnungsadresse eintragen, ohne auch nur ein Feld der Tabelle tblKunden <\/b>auszufüllen und dann versuchen, den Datensatz zu speichern, erhalten wir die Fehlermeldung aus Bild 7.<\/p>\n Bild 7: Fehler beim Versuch, nur Daten in die Tabelle tblKundeLieferadresse zu schreiben<\/p>\n Dieses Problem beheben wir gleich mit ein paar Zeilen VBA-Code.<\/p>\n Eine weitere Variante ist, Daten in die Felder der Tabelle tblKunden <\/b>einzugeben, aber dann nur die Felder keiner oder nur einer der beiden Tabellen tblKundenLieferadressen <\/b>oder tblKundenRechnungsadressen <\/b>zu füllen.<\/p>\n Das funktioniert zwar ohne Fehler und die Daten werden auch in den betroffenen Tabellen gespeichert. Wenn allerdings nicht in jeder der Tabellen tblKundenLieferadressen <\/b>und tblKundenRechnungsadressen <\/b>ein Datensatz zu dem Datensatz aus tblKunden <\/b>enthalten ist, werden die Daten nicht von der Abfrage qryKundenRechnungsadressenLieferadressen <\/b>zurückgeliefert. Diese Abfrage liefert nur solche Daten, für die es in allen drei Tabellen entsprechend verknüpfte Datensätze gibt.<\/p>\n Auch hier können wir per VBA dafür sorgen, dass zumindest ein ansonsten leerer Datensatz in der nicht vom Benutzer ausgefüllten Tabelle tblKundenLieferadressen <\/b>oder tblKundenRechnungsadressen <\/b>angelegt wird. Wie das geht, lesen Sie weiter unten.<\/p>\n Um den Fehler zu verhindern, der beim Versuch auftritt, die Lieferadresse oder Rechnungsadresse ohne Angabe der Basisdaten zum Kunden zu speichern, gibt es zwei Möglichkeiten: Entweder wir fangen den Fehler ab und ersetzen diesen durch eine benutzerdefinierte, gut verständliche Fehlermeldung, nach dessen Anzeige der Fokus in eines der noch auszufüllenden Felder verschoben wird.<\/p>\n Oder wir legen automatisch einen Datensatz in der Tabelle tblKunden <\/b>an, sobald der Benutzer mit der Bearbeitung eines der Felder der Tabellen tblKundenLieferadressen <\/b>oder tblKundenRechnungsadressen <\/b>begonnen hat.<\/p>\n Die erste Variante zeigen wir im Formular frmKunden1zu1EinFormular_FehlerAbfangen<\/b>. Diesem Formular fügen wir für die Ereigniseigenschaft Bei Fehler <\/b>eine Ereigniseigenschaft hinzu, die wie folgt aussieht:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nBeinhaltet ALLE Datensätze aus 'tblKunden' und nur die Datensätze aus 'tblKundenRechnungsadressen', bei denen die Inhalte der verknüpften Felder beider Tabellen gleich sind.<\/pre>\n
<\/a><\/p>\nFehler beim Ausführen der Abfrage<\/h2>\n
Die SQL-Anweisung konnte nicht ausgeführt werden, da sie mehrdeutige äußere Verknüpfungen enthält. Damit eine der VErknüpüfungen zuerst ausgeführt wird, müssen Sie eine separate Abfrage erstellen, die die erste Verknüpfung ausführt, und dann diese Abfrage in die SQL-Anweisung einschließen.<\/pre>\n
<\/a><\/p>\nFormular zur Anzeige der Daten<\/h2>\n
Formular mit automatischen Datensätzen<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nExperimente im Formular mit einer Abfrage über die beiden 1:1-Beziehungen<\/h2>\n
<\/a><\/p>\nSpeichern ohne Kundendaten verhindern<\/h2>\n
Private Sub <\/span>Form_Error(DataErr As Integer<\/span>, _\r\n Response As Integer<\/span>)\r\n Debug.Print<\/span> DataErr\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