how to add 1 minute based on previous record in same field in access

[neelsfer]

I have a table with datetimes in the following format:
12/08/2011 20:01:29.107 (date hr min sec 1/1000)

if my current record in row 1 is =
row 1 - 12/08/2011 20:01:29.107 (+ 1 minute then row 2 should become)
row 2 - 12/08/2011 20:01:30.107 when i double click inside row 2 if needed

In short, when i click in the next empty datetime field (timestart), then it must retrieve the previous datetime field (timestart) and add 1 minute to it.

The following code retrieve my previous record's datetime. How do i now modify it please?

TimeStart = DLookup("[Timestart]", "RaceEntry", "[RacEentryID]=" & [RaceEntryId] - 1)

[NeoPa]

Use :

DateAdd("n", 1, YourDateTimeVal)

[neelsfer]

Hi Neopa
My problem
I have athletes starting one minute apart at a different starting location. I only have the starting time of the first person. Thereafter i have to add 1 minute to the starting time of the previous athlete, for the next one starting.

I have tried to incorporate your code with my existing code but no success so far.Any suggestions?

TimeStart = DateAdd("n", 1, DLookup("[Timestart]", "RaceEntry", "[RacEentryID]=" & [RaceEntryId] - 1))

I think my problem is worsen by the fact that the "timestart" field is a text field and not a date/time field.
Adezi was previously helping me with this to add the datetime up to 1/1000 of a second, with the following code:

GetLocalTime MyTime
[Forms]![RaceSetupttF]![Rt_StartTTSF]![TimeStart] = Format$(MyTime.wDay, "00") & "/" & Format$(MyTime.wMonth, "00") & "/" & MyTime.wYear & _
                                       " " & Format$(MyTime.wHour, "00") & ":" & Format$(MyTime.wMinute, "00") & ":" & _
                                       Format$(MyTime.wSecond, "00") & "." & Format$(MyTime.wMilliseconds, "000")

[NeoPa]

It seems DateTime variables and values cannot handle fractions of a second. I suggest then, that you separate out the second fractions before the call and re-add them afterwards :

Dim strTime As String, strFraction As String
 
strTime = DLookup("[Timestart]", _
                  "RaceEntry", _
                  "[RaceEntryID]=" & [RaceEntryId] - 1)
strFraction = Split(strTime, ".")(1)
strTime = Split(strTime, ".")(0)
TimeStart = Format(DateAdd("n", 1, strTime), "dd/mm/yyyy HH:nn:ss.") & _
            strFraction

[neelsfer]

Thx Neopa, it works great!

[NeoPa]

Good to hear Neels :-)

[NeoPa]

A new but related question has been split off into its own thread and can be found at Why does my Code Work - but Only Sometimes.