Hallo Micha,
das könnte eventuell mit folgendem Makro gehen:

Private Sub letztesDatum()
    Dim rs As Object
    dim d as date;
 
    Set rs = Me.Recordset.Clone
     rs.FindPrevious "[ID] = " & Str(Nz(Me![ID]-1, 0))
    If Not rs.BOF Then 
      d = rs.Fields("Datum");
      d = Format$(DatSeriell(Jahr(d);Monat(d);Tag(d)+1);"tt. mmmm. jjjj")
      Me.Fields("Datum") = d
    end if
End Sub

Damit trägst du im Formular im Feld "Datum" das alte Datum + 1Tag ein. Allerdings habe ich das nicht getestet und im leider Moment auch keine Zeit dazu.

Gruß
lorf