<\/p>\n
Manchmal möchten Sie einen neuen Datensatz auf Basis eines bereits vorhandenen Datensatzes anlegen – beispielsweise um diesen anschließend anzupassen. Dazu gibt es unter Access verschiedene Möglichkeiten – per Benutzeroberfläche oder auch per VBA. Wir schauen uns die Varianten an.<\/b><\/p>\nBeispieldatenbank<\/h2>\n
Für die Beispiele haben wir eine kleine Beispieldatenbank mit den Tabellen der Südsturm-Datenbank erstellt. Diese enthält ein Haupt- und ein Unterformular, wobei das Unterformular die Datensätze der Tabelle tblArtikel <\/b>in der Datenblattansicht anzeigt. Damit und mit verschiedenen Schaltflächen im Hauptformular wollen wir die Möglichkeiten zum Duplizieren vorstellen (s. Bild 1).<\/p>\n
![\"Beispielformular](\"..\/fileadmin\/_temp_\/2017_02\/pic_1077_001.png\")
<\/p>\n
Bild 1: Beispielformular dieses Beitrags<\/span><\/b><\/p>\n Die einfachste Variante, einen Datensatz zu duplizieren, erfordert ein paar Mausklicks. Dazu markieren Sie den zu duplizierenden Datensatz per Mausklick auf den grauen Kasten links vom Datensatz, kopieren diesen per Strg + C <\/b>oder Kontextmenübefehl, klicken dann auf den gleichen Bereich in der Zeile für einen neuen, leeren Datensatz und fügen den zu duplizierenden Datensatz dann per Strg + V <\/b>oder den entsprechenden Kontextmenübefehl an dieser Stelle ein (s. Bild 2).<\/p>\n Bild 2: Datensatz von Hand in der Datenblattansicht kopieren<\/span><\/b><\/p>\n Diese Variante funktioniert einwandfrei (solange keine eindeutig indizierten Felder enthalten sind). Das einzige eindeutig indizierte Feld ist das Primärschüsselfeld, und dieses wird bei dieser Methode ganz einfach durch die Autowert-Funktion mit einem neuen Wert belegt.<\/p>\n Die Aktionen der Benutzeroberfläche lassen sich in der Regel durch VBA-Befehle der Klasse DoCmd <\/b>abbilden – oder durch den Aufruf der RunCommand<\/b>-Methode mit einem ihrer zahlreichen Parameter. Die RunCommand<\/b>-Methode ist dabei wiederum eine Methode der DoCmd<\/b>-Klasse, aber auch des Application<\/b>-Objekts. Sie können diese Anweisung daher auch ohne Voranstellen des entsprechenden Objekts einsetzen. Also legen wir eine Schaltfläche im Hauptformular an, welche den aktuell markierten Datensatz im Unterformular duplizieren soll. Den kompletten Ablauf steuern wir fast ausschließlich mit der RunCommand<\/b>-Anweisung:<\/p>\n Die einzige Ausnahme ist das Setzen des Fokus auf das Unterformular, denn sonst würde beispielsweise die Anweisung RunCommand acCmdSelectRecord <\/b>auf das aktuelle Formular angewendet werden – und da wir soeben auf eine Schaltfläche im Hauptformular geklickt haben, wäre dies das Hauptformular.<\/p>\n Nach dem Verschieben des Fokus auf das Unterformular rufen wir nacheinander mehrmals die RunCommand<\/b>-Anweisung auf und bilden damit genau die Schritte ab, die wir zuvor von Hand durchgeführt haben: Die Konstante acCmdSelectRecord <\/b>markiert den kompletten Datensatz, acCmdCopy <\/b>kopiert diesen, acCmdRecordsGoToNew <\/b>verschiebt den Datensatzzeiger auf den leeren, neuen Datensatz, acCmdSelectRecord <\/b>markiert diesen und acCmdPaste <\/b>fügt den Datensatz aus der Zwischenablage dort ein. Die Lösung funktioniert grundsätzlich, aber vielleicht möchte Sie etwas mehr Kontrolle, indem Sie den Artikel unabhängig von der aktuell angezeigten Benutzeroberfläche duplizieren.<\/p>\n Wenn Sie den Datensatz per VBA kopieren wollen, können Sie theoretisch also beispielsweise eine INSERT INTO…SELECT<\/b>-Anweisung verwenden (s. Listing 1). Zu Beispielzwecken integrieren wir diese wieder in das Formular, so kann der Benutzer den zu kopierenden Datensatz auswählen und der Datensatzzeiger soll anschließend direkt auf den neuen Datensatz verschoben werden. Die Prozedur liest zuerst den Primärschlüsselwert des aktuell im Unterformular markierten Datensatzes ein. Ist kein Datensatz markiert, erhält lngArtikelID <\/b>den Wert 0<\/b>. Ist lngArtikelID <\/b>nicht 0<\/b>, führt die Prozedur die in der If…Then<\/b>-Bedingung enthaltenen Anweisungen aus. Hier ruft sie eine SQL-Anweisung auf, die den kompletten Datensatz selektiert und als neuen Datensatz in die Tabelle tblArtikel <\/b>einfügt. Danach ermittelt sie den Primärschlüsselwert des zuletzt eingefügten Datensatzes und schreibt diesen wieder in die Variable lngArtikelID<\/b>. Nach dem Aktualisieren des Unterformulars soll der Datensatzzeiger auf den neuen Datensatz verschoben werden.<\/p>\n <\/p>\n Listing 1: Duplizieren des Datensatzes mit INSERT INTO…SELECT<\/span><\/b><\/p>\n Theoretisch ein guter Ansatz, aber praktisch liefert dies einen Fehler – nämlich den aus Bild 3. Aber warum das Beim Kopieren von Hand ging es doch auch ohne Fehlermeldung. In unserem aktuellen Fall verwenden wir jedoch eine SQL-Anweisung, die genau auf bestehende Restriktionen achtet und – im Gegensatz zur Datenblattansicht – keine Mechanismen besitzt, beispielsweise einfach mit der Autowert-Funktion einen neuen Primärschlüsselwert zu bestimmen.<\/p>\n Bild 3: Fehler beim Versuch, einen kompletten Datensatz in einer Tabelle mit Primärschlüsselfeld zu kopieren.<\/span><\/b><\/p>\n Wir müssen unsere Abfrage wohl noch etwas ändern, was leider mit einiger Tipperei verbunden ist. Die änderung ist allerdings nur für eine Zeile der Prozedur cmdDuplizierenMitSelectInto_Click <\/b>nötig:<\/p>\n Diese Anweisung stimmt fast mit der vorherigen Version überein – mit dem Unterschied, dass wir hier alle Felder mit Ausnahme des Primärschlüsselfeldes kopieren. Damit lassen wir der Autowert-Funktion die Freiheit, den Wert des Primärschlüsselfeldes für den neuen Datensatz selbst zu ermitteln und erhalten für diese Feld einen eindeutigen, noch nicht vergebenen Wert.<\/p>\n Achtung: Beim Ausprobieren der Prozedur haben wir die Vergabe des Autowertes auf irgendeine Art „zerschossen“ – das heißt, dass dieser nicht mehr auf dem zuletzt hinzugefügten Wert basierte, sondern auf einem bereits vergebenen Wert aufsetzte. Access versuchte nun also, einen neuen Datensatz beispielsweise mit dem Autowert 14 <\/b>für das Primärschüsselfeld zu erstellen, der aber natürlich schon vergeben war. Dies führte genauso wie der vorherige Ansatz wegen der Verletzung eines eindeutig indizierten Feldes zum Fehler 3022<\/b>. Der Fehler wurde uns erst klar, als wir uns anschauten, welchen Wert die SELECT @@IDENTITY<\/b>-Abfrage lieferte – mit dem konnte es natürlich nicht klappen. Eine Komprimierung der Datenbank schafft hier aber Abhilfe, die Autowert-Funktion wird dann wieder so zurückgesetzt, dass sie wieder den bisher größten vergebenen Wert als Grundlage verwendet. Weitere Informationen zu diesem Verhalten finden Sie im Beitrag Probleme mit Primärschlüsseln und Autowert <\/b>(www.access-im-unternehmen.de\/1008<\/b>).<\/p>\n Sie können sich die Tipperei auch sparen, wenn Sie die Funktion aus Listing 2 nutzen. Diese erwartet vier Parameter: die Tabelle, den Primärschlüsselnamen, den Wert des Primärschlüsselfeldes für den zu kopierenden Datensatz und eine leere Variable, welche den Primärschlüsselwert des neuen Datensatzes zurückliefert. Die Funktion öffnet ein Recordset mit dem zu kopierenden Datensatz und ein leeres Recordset auf Basis der Zieltabelle und legt dann dort einen neuen Datensatz an. Dann durchläuft es in einer Schleife alle Felder der Quelltabelle mit Ausnahme des Primärschlüsselfeldes und weist den Inhalt des Feldes dem entsprechenden Feld dem neu erstellten Recordset zu. Der neue Primärschlüsselwert wird in eine Variablen gespeichert und mit der Rückgabevariablen lngPKNeu <\/b>zurückgeliefert. Wenn dies alles ohne Fehler geklappt hat, liefert die Funktion den Wert True <\/b>als Ergebnis zurück.<\/p>\nDatensatz von Hand in der Datenblattansicht kopieren<\/h2>\n
![\"Datensatz](\"..\/fileadmin\/_temp_\/2017_02\/pic_1077_002.png\")
<\/p>\nDuplizieren mit Tastaturbefehlen<\/h2>\n
Private Sub <\/span>cmdDuplizierenMitDoCmd_Click()\r\n Me!sfmArtikel.SetFocus\r\n RunCommand acCmdSelectRecord\r\n RunCommand acCmdCopy\r\n RunCommand acCmdRecordsGoToNew<\/span>\r\n RunCommand acCmdSelectRecord\r\n RunCommand acCmdPaste\r\nEnd Sub<\/span><\/pre>\nDatensatz kopieren ohne Formular<\/h2>\n
Private Sub <\/span>cmdDuplizierenMitSelectInto_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngArtikelID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n lngArtikelID = Nz(Me!sfmArtikel.Form!ArtikelID, 0)\r\n If <\/span>Not<\/span> lngArtikelID = 0 Then<\/span>\r\n db.Execute \"INSERT INTO tblArtikel SELECT * FROM tblArtikel WHERE ArtikelID = \" _\r\n & lngArtikelID, dbFailOnError\r\n lngArtikelID = db.OpenRecordset(\"SELECT @@IDENTITY\").Fields(0)\r\n Me!sfmArtikel.Form.Requery\r\n Me!sfmArtikel.Form.Recordset.FindFirst \"ArtikelID = \" & lngArtikelID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2017_02\/pic_1077_003.png\")
<\/p>\ndb.Execute \"INSERT INTO tblArtikel SELECT Artikelname, LieferantID, KategorieID, Liefereinheit, \r\nEinzelpreis, Lagerbestand, BestellteEinheiten, Mindestbestand, Auslaufartikel \r\nFROM tblArtikel \r\nWHERE ArtikelID = \" & lngArtikelID, dbFailOnError<\/pre>\n
Funktion zum Anlegen eines neuen Datensatzes ohne Primärschlüssel<\/h2>\n
Public Function <\/span>KopiereDatensatzOhnePK(strTabelle As String<\/span>, strPK As String<\/span>, lngPK As Long<\/span>, _\r\n Optional<\/span> lngPKNeu As Long<\/span>) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database, rstQuelle As <\/span>DAO.Recordset\r\n Dim <\/span>fld As <\/span>DAO.Field, rstZiel As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstQuelle = db.OpenRecordset(\"SELECT * FROM \" & strTabelle & \" WHERE \" & strPK & \" = \" _\r\n & lngPK, dbOpenDynaset)\r\n Set<\/span> rstZiel = db.OpenRecordset(\"SELECT * FROM \" & strTabelle & \" WHERE 1=2\", dbOpenDynaset)\r\n rstZiel.AddNew<\/span>\r\n For Each fld In rstQuelle.Fields\r\n If <\/span>Not<\/span> fld.name = strPK Then<\/span>\r\n rstZiel(fld.name) = rstQuelle(fld.name)\r\n End If<\/span>\r\n Next<\/span> fld\r\n lngPKNeu = rstZiel(strPK)\r\n On Error Resume Next<\/span>\r\n rstZiel.Update\r\n If <\/span>Err.Number = 0 Then<\/span>\r\n KopiereDatensatzOhnePK = True<\/span>\r\n Else<\/span>\r\n lngPKNeu = 0\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n