title image


Smiley Re: Automatische Berechnung für Fahrtenbuch
Warum sollte man später was ändern. Naja falls doch, könnte folgende Prozedur helfen. (Als Anregung - musst du dir natürlich anpassen):sub ändern()Dim db As DatabaseDim rs As RecordsetDim km_ankunft As VariantDim i As IntegerSet db = CurrentDbSet rs = db.OpenRecordset("select abfahrt, ankunft from Tabellenname order by ankunft", dbOpenDynaset)For i = 2 To rs.RecordCount km_ankunft = rs!ankunft rs.MoveNext rs.Edit rs!abfahrt = km_ankunft rs.UpdateNext irs.Closedb.CloseEnd SubGeht vielleicht auch einfacher, aber jetzt viel mir nichts besseres ein.Gruß Sven

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: