Filter a form by using VBA

[sorcerer11]

Hi Everybody,

I have an odd problem with Access 2002.

I am unable to filter a form by using the following code on the Load Event for the form.

Dim filter1 As date

filter1 = InputBox("Please enter a date to filter data by (e.g. 19/09/2003)?", "Spoilage&quot

Me.Filter = "Date1 = #" & Format(filter1, "dd/mm/yyyy&quot & "#"
Me.FilterOn = True

The form simply shows me nothing, even though I know that their is data for those date's held in the underlying table.
Added to this when I filter with certain date's such as "28/08/2003", it seems to work, then try it again with another date it fails. I simply got a blank form with no

I've also tried the code on the afterupdate event on a combo back and I get the same result.

Any ideas would be most appreciated

Thanks.

 

[KenReay]

Hi

A guess, in Jet SQL you have to specify dates in american format, so maybe Format(filter1, "mm/dd/yyyy&quot would work ?

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[sorcerer11]

Thanks that did the trick, I totally forgot about needing to put them in US Format.