Access vintertid

I think we need more information.

Is the report based on a query which is filtered on the date field?

Hi Terry


It is a code, activated on openning report.


It ws working perfekt, when we had dalight savings time, and still work on a computer with US keyboard, time, date ??



Private Sub Form_Open(Cancel As Integer)
Dim VARa As Date
VARa = DMax("[Date_Log]", "Daily Report")
If DCount("*", "Daily Report", "[date_log]= #" & Date & "#") = 0 Then
DoCmd.GoToRecord acForm, "daily report", acNewRec
DoCmd.GoToControl "planner"
Else:
Me.Date_log.SetFocus
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True
DoCmd.GoToControl "planner"
End If

End Sub


Regards

Tony

Hi Terry


I have just changed display of time, from 24 hrs to AM PM, then
the code is working again.



Regards


Tony

great
Place an anwer yourself to get the points back :o)

Hi Terry


I cannot use this solution, we have maybe 100 computers, and
the workers dont want to use AM/PM, just because some of us want to run a DB.

Is there a way to make VBA read the date, in same way, as in the AM/PM version.

Why do I have problems when changing from summertime to wintertime ?

Maybe change the date to the number, access use to save dates in ?

Regards

Tony

"Why do I have problems when changing from summertime to wintertime "


I cant say without more knowledge of your database. There should be no problems just because you change from summer to winter, we are only talking about 1 hour difference no any changes to date formats etc.

Is it possible to see the dB?
If then I will need to know how to generat the problem
ekspertenATsanthell.dk

AT= @

DCount("*", "Daily Report", "[date_log]= #" & Format(Date(), "YYYY-MM-DD") & "#")