Closing all opened Reports

[alfalf]

Hello.
I have this piece of code:

While Reports.count > 1
     DoCmd.Close acReport, Reports(0).Name
Wend

but I can't get Reports to close with it (which is my intention). Any help will be appreciated.

Thx.

 

[mordja]

alfalf,

Dont know why that is not working.

While Reports.Count > 0
MsgBox Reports(0).Name
DoCmd.Close acReport, Reports(0).Name
Wend

Will close all reports opened or not.

Mordja

 

[alfalf]

Nope! Your code is the same. I get no response as if Reports are not opened, and they stay like that. ?