Hallo zusammen,
vielleicht könnt ihr mir helfen. Ich arbeite gerade an der Aktualisierung einer Access-DB mit Daten aus einer Excel-Datei. Hier bearbeite ich den Umsatzstand einer langen Kundenliste. Diese Daten werde danach weiter verwendet, deshalb der Einsatz von Access.
Ich brauche nur den letzten Eintrag im laufenden Jahr. Wie kann ich es machen, dass der oder die Einträge eines Kunden die im Laufe des Jahres eingetragen wurden immer durch den aktuellen Datensatz ersetzt werden. Mit dem Teil hier unter kriege ich die Daten gespeichert, aber nur fortlaufen. Dazu muss ich schauen, dass in der Zukunft die Daten in den Tabelle aktualisiert werden, die mit dem jeweiligen Jahr enden(Stand_2002, Stand_2003,etc). Diese Umständlichkeit da die Umsatz-Stände ein mal wöchetlich ermittelt werden.
Vielen Dank
Juan
~beginn~
Sheets("Tabelle1").Select
Stand = Range("F5")
'Kundennummer merken
Sheets("Kundendaten").Select
Range("kdnr").Select
kdnr = ActiveCell.Text
'Kundendatenbank wird geöffnet
Set bd = opendatabase("c:\Kundendatenbank.mdb")
'Tabelle öffnen
Set archiv = bd.OpenRecordset("Stand_2002")
'Daten einfügen
With archiv
.AddNew
.Fields("DATUM") = Now
.Fields("KDNR") = kdnr
.Fields("STAND") = Stand
.Update
End With
archiv.Close
bd.Close
Application.ScreenUpdating = True
End Sub
~end~