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

 

    'Verbindung zur Datenbank

    Set cn = New Connection

    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<Hier kommt Dein Pfad hin>\Testdatenbank.accdb"

    cn.Open

    

    'Tabelle öffnen

    Set rs = New Recordset

    rs.Open "Auswertung", cn, adOpenDynamic, adLockOptimistic

    

    'Datensatz anhängen

    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

    

    'Tabelle und Verbindung schließen

    rs.Close

    cn.Close

    

End Sub