Comments are welcome, but solutions are preferred. In fact, tested code proves to be the best answer. It is possible, because someone who knew the answer did help me. See code below.
Public Function ChangeReports()
Dim db As Database, c As Container, d As Document, r As Report
Set db =...