Run query, send to report and then close query

[shabbaranks]

Hi - yep me again!!

Im trying to do 2 things - learn some VBA and get my query to output to the report and close the query in the background. I can get the first bit going but it continues to leave the query open my code is:

Private Sub ReprintTimeSheet_Click()
DoCmd.OpenQuery "RePrintTimesheetQuery"
DoCmd.OpenReport "RePrintTimesheetReport"
End Sub

Thanks

 

[Mile-O]

Why not just set the report's RecordSource as being the query?

 

[shabbaranks]

Simple when you know how - thanks worked a treat