filter current date?

[yepwingtim]

sorry really bad at vba thanks

Private Sub Command8_Click()
Dim mystr As String

mystr = "curDate=Date()"

DoCmd.OpenForm "frmEncounterPage"
DoCmd.ApplyFilter "mystr"


End Sub
________
Honda Nr500

 

[pbaldy]

Does this do what you want?

http://www.baldyweb.com/wherecondition.htm

 

[Steve R.]

Look up Docmd.ApplyFilter in Access help.
Syntax Example expression.ApplyFilter(FilterName, WhereCondition, ControlName)
Here is their example DoCmd.ApplyFilter , "LastName = 'King'"
So I suspect your syntax is missing the initial comma to skip the filtername.
Also you do not need the " around mystr
Should be DoCmd.ApplyFilter , mystr

I see that I double posted with pbaldy, his advise is more efficient. Also note the use of the # sign when working with dates.

 

[yepwingtim]

yes does # mean current date?

thanks
________
Mercedes-benz ocean drive specifications

 

[pbaldy]

No, # needs to surround date values. If you use my example, you would replace the form reference with the Date() function.