VBA code changing from mm:dd:yyyy to dd:mm:yyyy

[ZUM8]

Hi

In Denmark vi use date format dd:mm:yyyy

I have a VBA code, which is not working correct, because VBA use the format mm:dd:yyyy

Is it possible to add a string, to this vba code so it will work with all country format.?


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


Regards

ZUM8

[hansup]

Submit the literal date value to the database engine in an unambiguous date format.

[vba]If DCount("*", "Daily Report", "[date_log]= #" & Format(Date, "yyyy/mm/dd") & "#") = 0 Then[/vba]

[HiTechCoach]

Is [date_log] a date/time data type?

See if this helps:

International Dates in Access

[ZUM8]

Tks for your help.

If DCount("*", "Daily Report", "[date_log]= #" & Format(Date, "yyyy/mm/dd") & "#") = 0 Then

Worked perfect.

Regards ZUM8