Don't worry, I worked it out in the end.
Dim date_from As Date
Dim date_to As Date
Dim to_serial As String
Dim from_serial As String
date_from = Format(Me.Field_From.Value, "dd/mm/yyyy")
date_to = Format(Me.Field_To.Value, "dd/mm/yyyy")
from_serial = CLng(date_from)
to_serial = CLng(date_to)
End Sub
I've then had to store all my dates in serial in the database and do a search that way and then just convert from serial to date when a formatted date is needed.
The reason i can't use pivot tables is it's for work colleagues who are not very computer friendly. They need a simple system where they type a date in this box, a date in this box, click and it prints out a report that's easy to read and understand.
Bookmarks