![\"Beziehung](\"..\/tl_files\/images\/pic_232_001.png\")
<\/a><\/p>\nBild 1: Beziehung zwischen Kunden und Anreden<\/p>\n
Die Tabelle tblAnreden <\/b>enthält jede benötigte Anrede einmal, was schon darauf hindeutet, dass beim Kopieren eines Datensatzes einer Kundentabelle kein neuer Datensatz in der verknüpften Tabelle tblAnreden <\/b>angelegt werden muss. Und so ist es: Sie kopieren einfach den Kundendatensatz, wobei der neue Datensatz im Fremdschlüsselfeld AnredeID <\/b>den gleichen Verweis auf einen Datensatz der Tabelle tblAnreden<\/b> enthält wie der Originaldatensatz.<\/p>\n
Dies gilt eigentlich für alle Beziehungen, in denen die über ein Fremdschlüsselfeld referenzierte Tabelle lediglich Lookup-Werte für ein Feld der Haupttabelle liefert – also beispielsweise auch für Tabellen wie tblKategorien<\/b>, tblGeschlecht <\/b>et cetera. Dies kann sich aber auch auf Tabellen beziehen, die mehr als nur einen Lookup-Wert liefern, also beispielsweise einer Tabelle wie tblLieferanten<\/b>, die etwa mit einer Tabelle namens tblArtikel <\/b>verknüpft ist.<\/p>\nIndividuelle Rechnungen<\/h2>\n
Anders sieht es aus, wenn die verknüpfte Tabelle Daten enthält, die erst in Zusammenhang mit dem Datensatz der Haupttabelle angelegt werden. Wenn Sie also etwa eine Rechnung zu einem Auftrag in der Tabelle tblRechnungen <\/b>anlegen und dazu einige Rechnungspositionen in der damit verknüpften Tabelle tblRechnungspositionen<\/b>, ändert sich die Situation (siehe Bild 2): Wenn Sie einen Rechnung kopieren, werden Sie wohl auch die Rechnungspositionen kopieren, um diese gegebenenfalls individuell anpassen zu können.<\/p>\n
Bild 2: Rechnungen und Rechnungspositionen<\/p>\n In diesem Fall gehen wir davon aus, dass es sich um Rechnungen für individuelle Leistungen handelt – also beispielsweise das Programmieren einer Anwendung für einen Kunden. Und trotz aller Individualität: Wenn es sich um ein größeres Projekt handelt, werden Sie möglicherweise immer wieder ähnliche Positionen in Rechnung stellen, die Sie nicht jedes Mal erneut formulieren möchten. Dies ist der erste Fall, den wir uns in diesem Artikel anschauen werden.<\/p>\n Der zweite Fall ist die klassische Bestellung mit Bestellpositionen und Artikeln. Hier werden die Bestellungen und die Artikel über eine Tabelle etwa namens tblBestelldetails miteinander per m:n-Beziehung verknüpft.<\/p>\n Wenn Sie hier eine Bestellung neu auf einer bereits vorhandenen Bestellung anlegen möchten, welche die gleichen Bestellpositionen wie das Original enthält, werden Sie sich freuen, wenn Sie dies per Mausklick erledigen können statt die Bestellung manuell Bestellposition für Bestellposition anzulegen. Dies ist das zweite in diesem Artikel behandelte Beispiel (siehe Bild 3).<\/p>\n Bild 3: Bestellungen, Bestellpositionen und Artikel<\/p>\n Nun wollen wir uns das erste Beispiel der individuellen Rechnungen ansehen. Den relevanten Teil des Datenmodells haben Sie ja bereits weiter oben kennengelernt. Zusätzlich haben wir ein Formular erstellt, dass die Daten der Tabelle tblRechnungen anzeigt und die Daten der per 1:n-Beziehung verknüpften Tabelle tblRechnungspositionen zur aktuellen Rechnung in einem Unterformular anzeigt (siehe Bild 4). Haupt- und Unterformular sind über den Wert RechnungID <\/b>in den Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements miteinander verknüpft.<\/p>\n Bild 4: Formular zum Erstellen individueller Rechnungen<\/p>\n Wenn Sie nun für den gleichen Kunden eine neue Rechnung erstellen, können Sie dies natürlich manuell erledigen. Wenn sich jedoch weder der Rechnungsbetreff noch die enthaltenen Rechnungspositionen nicht wesentlich geändert haben, können Sie auch den vorhandenen Rechnungsdatensatz kopieren – und ebenso die damit verknüpften Rechnungspositionen.<\/p>\n Dazu haben wir oben im Formular eine Schaltfläche namens cmdRechnungKopieren <\/b>angelegt. Die durch das Anklicken dieser Schaltfläche ausgelöste Ereignisprozedur soll nun zwei Aufgaben erledigen:<\/p>\n Es gibt (mindestens) zwei Möglichkeiten, diese Aufgabe zu erledigen:<\/p>\n Die erste Variante sieht wie in Listing 1 aus und kopiert die Daten mit AddNew<\/b>\/Update<\/b>. Dazu ist offensichtlich eine Menge Code erforderlich, aber wir wollen ja auch gleich die Daten aus zwei verknüpften Tabellen duplizieren.<\/p>\n Listing 1: Kopieren von Rechnungsdaten aus dem Haupt- und dem Unterformular<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nBestellungen und Artikel<\/h2>\n
<\/a><\/p>\nDaten aus 1:n-Beziehungen kopieren<\/h2>\n
<\/a><\/p>\n\n
\n
Kopieren per DAO<\/h2>\n
Private Sub <\/span>cmdRechnungKopieren_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstRechnungen As <\/span>DAO.Recordset\r\n Dim <\/span>rstPositionenAlt As <\/span>DAO.Recordset\r\n Dim <\/span>rstPositionenNeu As <\/span>DAO.Recordset\r\n Dim <\/span>lngAlteRechnungID As Long<\/span>\r\n Dim <\/span>lngNeueRechnungID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n lngAlteRechnungID = Me!RechnungID\r\n Set<\/span> rstRechnungen = db.OpenRecordset(\"SELECT * FROM tblRechnungen WHERE 1=2\", dbOpenDynaset)\r\n With<\/span> rstRechnungen\r\n .AddNew<\/span>\r\n !Rechnungsbetreff = Me!Rechnungsbetreff\r\n !Rechnungstext = Me!Rechnungstext\r\n !Bemerkungen = Me!Bemerkungen\r\n !KundeID = Me!KundeID\r\n !Rechnungsdatum = Me!Rechnungsdatum\r\n lngNeueRechnungID = !RechnungID\r\n .Update\r\n End With<\/span>\r\n Set<\/span> rstPositionenAlt = db.OpenRecordset(\"SELECT * FROM tblRechnungspositionen WHERE RechnungID = \" & lngAlteRechnungID, dbOpenDynaset)\r\n Set<\/span> rstPositionenNeu = db.OpenRecordset(\"SELECT * FROM tblRechnungspositionen WHERE 1=2\", dbOpenDynaset)\r\n With<\/span> rstPositionenAlt\r\n Do While<\/span> Not<\/span> .EOF\r\n rstPositionenNeu.AddNew<\/span>\r\n rstPositionenNeu!RechnungID = lngNeueRechnungID\r\n rstPositionenNeu!Rechnungsposition = !Rechnungsposition\r\n rstPositionenNeu!Menge = !Menge\r\n rstPositionenNeu!Preis = !Preis\r\n rstPositionenNeu!Mehrwertsteuer = !Mehrwertsteuer\r\n rstPositionenNeu!EinheitID = !EinheitID\r\n rstPositionenNeu.Update\r\n .MoveNext<\/span>\r\n Loop<\/span>\r\n End With<\/span>\r\n Me.Requery\r\n Me.Recordset.FindFirst \"RechnungID = \" & lngNeueRechnungID\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