{"id":55000230,"date":"2014-02-01T00:00:00","date_gmt":"2020-01-24T15:59:06","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=230"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Datensaetze_per_VBA_kopieren","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Datensaetze_per_VBA_kopieren.html","title":{"rendered":"Datensätze per VBA kopieren"},"content":{"rendered":"

Im Artikel Datensätze kopieren <\/b>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.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1401_DatensaetzeKopierenVBA.mdb<\/b>.<\/p>\n

Datensätze im Unterformular kopieren<\/h2>\n

Im Artikel Datensätze kopieren <\/b>haben wir zuletzt per Schaltflächen-Assistent eine Schaltfläche mit einer Prozedur erstellt, die fünf DoCmd.RunCommand<\/b>-Befehle mit verschiedenen Parametern aufruft, um den im aktuellen Formular angezeigten Datensatz zu kopieren und als neuen Datensatz in die Tabelle einzufügen.<\/p>\n

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 <\/b>als Datenherkunft verwendet, alle Felder dieser Tabelle anzeigt und den Wert Datenblatt <\/b>als Standardansicht <\/b>nutzt, brauchen wir nur noch eine Schaltfläche im Hauptformular, die den Kopiervorgang durchführt (siehe Bild 1).<\/p>\n

\"Haupt-<\/a><\/p>\n

Bild 1: Haupt- und Unterformular mit der Schaltfläche zum Kopieren im Hauptformular und den Daten im Unterformular<\/p>\n

Diese nennen wir cmdDatensatzKopierenUF <\/b>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).<\/p>\n

Private Sub <\/span>cmdDatensatzKopierenUF_Click()\r\n     'Fehlerbehandlung entfernt\r\n     DoCmd.RunCommand acCmdSelectRecord\r\n     DoCmd.RunCommand acCmdCopy\r\n     DoCmd.RunCommand acCmdRecordsGoToNew<\/span>\r\n     DoCmd.RunCommand acCmdSelectRecord\r\n     DoCmd.RunCommand acCmdPaste\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Kopieren des Datensatzes im Unterformular<\/p>\n
Anschließend starten Sie die Prozedur mit einem Mausklick auf die Schaltfläche cmd-Daten-satz-ko-pieren-UF<\/b> 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 <\/b>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:<\/p>\n
Bild 2: Fehler, der beim Versuch, den Datensatz im Unterformular zu kopieren, ausgelöst wird.<\/p>\n
Me!sfmDatensatzKopieren.SetFocus<\/pre>\n
Nun erhält das Unterformular nach dem Anklicken der Schaltfläche den Fokus und die folgenden fünf DoCmd.RunCommand<\/b>-Befehle können ihren Dienst verrichten. Der kopierte Datensatz landet dann am Ende des Datenblatts und wird gleich markiert (siehe Bild 3).<\/p>\n
\"Kopieren<\/a><\/p>\n
Bild 3: Kopieren und Einfügen eines Datensatzes im Unterformular per Schaltfläche<\/p>\n
Datensatz per DAO kopieren<\/h2>\n
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.<\/p>\n
Das Beispiel finden Sie im Formular frmDatensatzKopierenDAO<\/b>. Die Prozedur, die durch die Schaltfläche cmdDatensatzKopierenDAO <\/b>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 <\/b>im Unterformular sfmDatensatzKopieren<\/b>.<\/p>\n
Private Sub <\/span>cmdDatensatzKopierenDAO_Click()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>rstOriginal As <\/span>DAO.Recordset\r\n     Dim <\/span>rstDuplikat As <\/span>DAO.Recordset\r\n     Dim <\/span>lngOriginalID As Long<\/span>\r\n     Dim <\/span>lngDuplikatID As Long<\/span>\r\n     lngOriginalID = Me!sfmDatensatzKopieren.Form!ArtikelID\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rstOriginal = db.OpenRecordset(\"SELECT * FROM tblArtikel WHERE ArtikelID = \" & lngOriginalID, dbOpenDynaset)\r\n     Set<\/span> rstDuplikat = db.OpenRecordset(\"SELECT * FROM tblArtikel WHERE 1 = 2\", dbOpenDynaset)\r\n     rstDuplikat.AddNew<\/span>\r\n     rstDuplikat!Artikelname = rstOriginal!Artikelname\r\n     rstDuplikat!LieferantID = rstOriginal!LieferantID\r\n     rstDuplikat!KategorieID = rstOriginal!KategorieID\r\n     rstDuplikat!Liefereinheit = rstOriginal!Liefereinheit\r\n     rstDuplikat!Einzelpreis = rstOriginal!Einzelpreis\r\n     rstDuplikat!Lagerbestand = rstOriginal!Lagerbestand\r\n     rstDuplikat!BestellteEinheiten = rstOriginal!BestellteEinheiten\r\n     rstDuplikat!Mindestbestand = rstOriginal!Mindestbestand\r\n     rstDuplikat!Auslaufartikel = rstOriginal!Auslaufartikel\r\n     rstDuplikat!AusgelaufenAm = rstOriginal!AusgelaufenAm\r\n     lngDuplikatID = rstDuplikat!ArtikelID\r\n     rstDuplikat.Update\r\n     Me!sfmDatensatzKopieren.Form.Recordset.Requery\r\n     Me!sfmDatensatzKopieren.Form.Recordset.FindFirst \"ArtikelID = \" & lngDuplikatID\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Kopieren eines Datensatzes per DAO<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t
\"Fehler,<\/a><\/p>\n