Supportnet / Forum / Datenbanken
access
Frage
In einer ACCESS2000-Tabelle habe ich ein Datumsfeld. Im Eingabeformular möchte ich bei Neueingabe eines Datensatzes das Datum des vorhergehenden Datensatzes + 1 Tag vorgeschlagen bekommen.
Kennt jemand eine Lösung ?
Antwort 1 von lorf55
Hallo Micha,
das könnte eventuell mit folgendem Makro gehen:
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
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 SubDamit 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