yada eski yapıyı korursunuz ama kodları aşağıdaki gibi düzenlersiniz
DoCmd.OpenReport "RPRSYF1", acViewPreview
DoCmd.OpenReport "RPRSYF2", acViewPreview
DoCmd.OpenReport "RPRSYF3", acViewPreview
3böylece 3 farklı rapor çıkareğer döngülü yapmak isterseniz
for x=1 to 3
DoCmd.OpenReport "RPRSYF" & x, acViewPreview
next x
raporların sorgusu sabit değişmiyor o nedenle sorgu kaynağını değiştirmeye gerek yok bence