apply filter, runtime error 2488

[Kaosu]

I am trying to create an advance filter page for the program im writing and came to a problem with the applyfilter command.

what im trying to do is apply a filter to a 2nd form after you have filled out a set of requirements on the 1st.

If TOT = "GBW" Then
DoCmd.OpenForm "PlantFm"
DoCmd.ApplyFilter , "Grabexp <= date()+30" <<<<
DoCmd.Close acForm, "AdvPlantFilterFm"
End If

TOT and GBW are part of the requirement results and dont really matter to my query

[Kaosu]

got it working now, but still need help with the next stage i cant get too work =(

 DoCmd.ApplyFilter , "CSCSexp <= date()+pd" 

after i got it to work with date()+30 i tried to replace that with the veriable PB which has a number stored from the filter. all seem fine apart from the +pd part

[Carl Witte]

Ok I really don't understand what you are doing but here is a guess. Its probably wrong but here goes. If date +30 is giving you acceptable answers could your variable be other than an integer or a long integer? I don't think access likes adding dates when comparing dates and doubles.

My other guess is that you should specify your varible is a date by
dateadd("d", variable, date())
"d" for days, date for today, variable is of course your variable.

That said I know I'm just guessing on your process. dateadd and datediff fixes alot of problems with adding and subtracting dates in access.

Carl

[nico5038]

You'll need what we call "variable substitution".
Try:

DoCmd.ApplyFilter , "CSCSexp <= date() + " & pd
 

This will cause the string to be padded by the value of the variable pd

Getting the idea ?

Nic;o)

[Kaosu]

no problems with that so far, thx nic