Unanswered: Date as default value but not in American Format
I have got a datasheet form set up to take the date value from the previous record and use it as the default date in a new record. I have got this working fine except for the fact that the date defaults to the american date value rather than the european one.
So for example if i select the date 11-april it will default the next one to 4-november as it reads the american format rather than the european one.
The code in question:
Private Sub applDate_AfterUpdate()
Me.applDate = Format("dd mmm yyyy")
If Not IsNull(Me.applDate.Value) Then
applDate.DefaultValue = "#" & Me.applDate & "#"