kodu aşağıdaki gibi dener misiniz?
ben bendeki dosyalara göre isimlendirdim o nedenle sorgu ve rapor isimleri değişmeli

Dim x As Integer

For x = 1 To 3

DoCmd.OpenReport "RANAMNEZSYF" & x, acViewDesign

Reports("RANAMNEZSYF" & x).RecordSource = "SRGANAMNEZ2"

DoCmd.Close acReport, "RANAMNEZSYF" & x, acSaveYes

Next x