|
Hallo zusammen!!
Momentan übertrage ich mit folgendem Code meine Daten, von Excel ausgehend, in eine Access-DB (Tabelle "Auswertung"). Das Ganze orientiert sich an einem Aktenzeichen, welches auch gleichzeitig der Primärschlüssel in der DB ist. Wenn ich jetzt die Daten eines Aktenzeichens nochmals in Access übertragen möchte, weil sich z.B. etwas geändert hat, überschreibt er mir die alten Daten nicht. Gibt es eine Möglichkeit das Updaten zu lassen? VIELEN DANK im Voraus!!
Sub DatenÜbertragen()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<Hier kommt Dein Pfad hin>\Testdatenbank.accdb"
cn.Open
Set rs = New Recordset
rs.Open "Auswertung", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("Status") = Worksheets("Zusammenfassung").Range("B7").Value
rs("Wahrscheinlichkeit") = Worksheets("Zusammenfassung").Range("B8").Value
rs("Punkte") = Worksheets("Zusammenfassung").Range("B9").Value
rs.Update
rs.Close
cn.Close
End Sub
|