Im Artikel Datensätze kopieren haben Sie bereits erfahren, wie Sie Datensätze ohne eine einzige selbstgeschriebene Zeile VBA-Code kopieren können. Der vorliegende Artikel zeigt, wie Sie dies mit VBA erledigen und damit einige Flexibilität gewinnen. Wir stürzen uns dabei zunächst auf die Datensätze, die in einem Unterformular angezeigt werden und schauen uns danach die übrigen Methoden von VBA zum Kopieren von Datensätzen an.
Beispieldatenbank
Die Beispiele dieses Artikels finden Sie in der Datenbank 1401_DatensaetzeKopierenVBA.mdb.
Datensätze im Unterformular kopieren
Im Artikel Datensätze kopieren haben wir zuletzt per Schaltflächen-Assistent eine Schaltfläche mit einer Prozedur erstellt, die fünf DoCmd.RunCommand-Befehle mit verschiedenen Parametern aufruft, um den im aktuellen Formular angezeigten Datensatz zu kopieren und als neuen Datensatz in die Tabelle einzufügen.
Eigentlich, so nimmt man naiverweise an, sollte dies doch genau in dieser Form auch funktionieren, wenn wir den Datensatz in einem Unterformular, das seine Daten in der Datenblattansicht anzeigt, kopieren wollen. Wenn wir also ein Hauptformular erstellen und in dieses ein Unterformular einfügen, dass die Tabelle tblArtikel als Datenherkunft verwendet, alle Felder dieser Tabelle anzeigt und den Wert Datenblatt als Standardansicht nutzt, brauchen wir nur noch eine Schaltfläche im Hauptformular, die den Kopiervorgang durchführt (siehe Bild 1).
Bild 1: Haupt- und Unterformular mit der Schaltfläche zum Kopieren im Hauptformular und den Daten im Unterformular
Diese nennen wir cmdDatensatzKopierenUF und legen dafür, wieder mit dem Schaltflächen-Assistent, die Prozedur zum Duplizieren des aktuellen Datensatzes an. Die Prozedur erleichtern wir noch um die Fehlerbehandlung, um direkt zu erkennen, welche Zeile einen eventuellen Fehler auslöst (siehe Listing 1).
Private Sub cmdDatensatzKopierenUF_Click() 'Fehlerbehandlung entfernt DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste End Sub
Listing 1: Kopieren des Datensatzes im Unterformular
Anschließend starten Sie die Prozedur mit einem Mausklick auf die Schaltfläche cmd-Daten-satz-ko-pieren-UF und erhalten die Fehlermeldung aus Bild 2. Anscheinend findet Access also nichts, was es aktuell kopieren könnte – was bei genauerer Betrachtung auch logisch ist: Immerhin sollte das zu kopierende Objekt auch den Fokus besitzen oder in einer anderen Form markiert sein. Aber selbst wenn Sie noch vor dem Mausklick auf die Schaltfläche cmdDatensatzKopieren-UF den zu kopierenden Datensatz im Unterformular markiert haben, so verliert das Unterformular doch zum Zeitpunkt des Mausklicks auf die Schaltfläche den Fokus. Das ist jedoch kein großes Problem: Es gibt nämlich ebenfalls Befehle, um den Fokus auf die meisten Elemente der benutzerdefinierten Formulare zu verschieben – in diesem Fall auf das Unterformular-Steuerelement. Damit die Prozedur ihren Dienst tut, müssen Sie einfach nur die folgende Anweisung als erste Zeile der Prozedur einfügen:
Bild 2: Fehler, der beim Versuch, den Datensatz im Unterformular zu kopieren, ausgelöst wird.
Me!sfmDatensatzKopieren.SetFocus
Nun erhält das Unterformular nach dem Anklicken der Schaltfläche den Fokus und die folgenden fünf DoCmd.RunCommand-Befehle können ihren Dienst verrichten. Der kopierte Datensatz landet dann am Ende des Datenblatts und wird gleich markiert (siehe Bild 3).
Bild 3: Kopieren und Einfügen eines Datensatzes im Unterformular per Schaltfläche
Datensatz per DAO kopieren
Im nächsten Beispiel wollen wir eine Variante vorstellen, die per direktem Zugriff auf die zu kopierenden Daten in der Tabelle erfolgt. Das Datenblatt im Unterformular dient nur noch der Auswahl des zu kopierenden Datensatzes und der Anzeige des Duplikats.
Das Beispiel finden Sie im Formular frmDatensatzKopierenDAO. Die Prozedur, die durch die Schaltfläche cmdDatensatzKopierenDAO ausgelöst wird, finden Sie in Listing 2. Die Prozedur verwendet die Recordset-Methoden der DAO-Bibliothek zum Kopieren des aktuell markierten Datensatzes der Tabelle tblArtikel im Unterformular sfmDatensatzKopieren.
Private Sub cmdDatensatzKopierenDAO_Click() Dim db As DAO.Database Dim rstOriginal As DAO.Recordset Dim rstDuplikat As DAO.Recordset Dim lngOriginalID As Long Dim lngDuplikatID As Long lngOriginalID = Me!sfmDatensatzKopieren.Form!ArtikelID Set db = CurrentDb Set rstOriginal = db.OpenRecordset("SELECT * FROM tblArtikel WHERE ArtikelID = " & lngOriginalID, dbOpenDynaset) Set rstDuplikat = db.OpenRecordset("SELECT * FROM tblArtikel WHERE 1 = 2", dbOpenDynaset) rstDuplikat.AddNew rstDuplikat!Artikelname = rstOriginal!Artikelname rstDuplikat!LieferantID = rstOriginal!LieferantID rstDuplikat!KategorieID = rstOriginal!KategorieID rstDuplikat!Liefereinheit = rstOriginal!Liefereinheit rstDuplikat!Einzelpreis = rstOriginal!Einzelpreis rstDuplikat!Lagerbestand = rstOriginal!Lagerbestand rstDuplikat!BestellteEinheiten = rstOriginal!BestellteEinheiten rstDuplikat!Mindestbestand = rstOriginal!Mindestbestand rstDuplikat!Auslaufartikel = rstOriginal!Auslaufartikel rstDuplikat!AusgelaufenAm = rstOriginal!AusgelaufenAm lngDuplikatID = rstDuplikat!ArtikelID rstDuplikat.Update Me!sfmDatensatzKopieren.Form.Recordset.Requery Me!sfmDatensatzKopieren.Form.Recordset.FindFirst "ArtikelID = " & lngDuplikatID End Sub
Listing 2: Kopieren eines Datensatzes per DAO
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!
Hier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]:
Zur Bestellung ...
Danach greifen Sie sofort auf alle rund 400 Artikel unseres Angebots zu - auch auf diesen hier!
Oder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein: