open report vba filter

[ayh1]

Hi

I have vba code

    DoCmd.OpenReport "MonthlyData2", acPreview, , " YEAR(CourseDate) = '" & Me.txtCourseDateMonth & "' "

this works sucessfuly how can I add the following to the code so it filters month and year?

'" MONTH(CourseDate) = '" & Me.txtCourseDateYear & "' "

 

[pr2-eugin]

Maybe?

DoCmd.OpenReport "MonthlyData2", acPreview, , _
                 "YEAR(CourseDate) = '" & Me.txtCourseDateMonth & _
                 "' AND MONTH(CourseDate) = '" & Me.txtCourseDateYear & "'"

 

[ayh1]

Maybe?

DoCmd.OpenReport "MonthlyData2", acPreview, , _
                 "YEAR(CourseDate) = '" & Me.txtCourseDateMonth & "' AND MONTH(CourseDate) = '" & Me.txtCourseDateYear & "'"

i tried that but it does not filter as when i try each filter seperately it brings up all the records

 

[ayh1]

its working thanks had year and month mixed up

 

[namliam]

This shoudlnt work (properly and all the time) since year will return an integer...

DoCmd.OpenReport "MonthlyData2", acPreview, , " YEAR(CourseDate) = " & Me.txtCourseDateMonth & " "

That should work more consistantly. Though your naming convention leaves something to be desired.... though perhaps it is a simple copy/paste problem swapping month/year

The adding of month and year is simple enough:

DoCmd.OpenReport "MonthlyData2", acPreview, , " YEAR (CourseDate) = " & Me.txtCourseDateMonth & " "   & _
                                          " AND MONTH(CourseDate) = " & Me.txtCourseDateYear & " "

Edit: I see my replying to another thread first, has given you time to get the answer from paul already

 

[pr2-eugin]

But namliam, you were spot on the swapping of names.