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