Die Datenübernahme von Excel nach Access habe ich mittlerweile durch Forumshilfe folgenderweise hinbekommen:
Set Rs = db.OpenRecordset("Datenbank", dbOpenDynaset)
With Rs
.AddNew
Rs.Fields(0) = Worksheets("Datenbank").[A65001] ' ID
Rs.Fields(1) = Worksheets("Datenbank").[B65001] ' BEZEICHNUN
Rs.Fields(2) = Worksheets("Datenbank").[C65001] ' Typ
.
.
.
Rs.Fields(3) = Worksheets("Datenbank").[D65001] ' Spannung
Rs.Fields(29) = Worksheets("Datenbank").[AD65001] ' NM
.Update
End With
Durch diese Übernahme kann ich den entsprechenden Datensatz aus der Excel Tabelle beliebig oft nach ACCESS übertragen, so daß er dort mehrfach vorhanden ist. Jeder Datensatz sollte dort jedoch nur einmal auftauchen.
Der Schlüssel für die Daten steht in der ersten Spalte [Rs.Fields(0)].
Wie muß ich den Datentransfer gestalten, damit, falls der Schlüssel, also der Eintrag in Spalte 1, bereits vorhanden ist, dieser Datensatz überschrieben und nicht neu angelegt wird?
Das Makro müßte also erkennen ob der Excel-Wert aus aus Zelle A65001 (ID) bereits irgendwo in der ersten ACCESS - Spalte steht und, falls dies der Fall ist, den entsprechenden Datensatz mit den aktuellen Excel Daten überschreiben.
Ich habe in den Archiven leider nichts passendes gefunden.
Gibt es dafür eine Lösung?
Gruß und vielen Dank im voraus, Jürgen