Rapor Kayıt Kaynağı Değiştirme Vba

Merhabalar,
kayıt kaynağı aynı olacak şekilde 3 rapor var,
açılan kutuda satır kaynağı 2 parametreli örnekte 1. Formun sorgu kaynağını nasıl SRG1 yapabilirim?

If Me.Acl_KytKyn = "2.Form" Then



DoCmd.OpenReport "RPRSYF1", acViewDesign

DoCmd.OpenReport "RPRSYF2", acViewDesign

DoCmd.OpenReport "RPRSYF3", acViewDesign

Reports!RPRSYF1.RecordSource = "SRG2"

Reports!RPRSYF2.RecordSource = "SRG2"

Reports!RPRSYF3.RecordSource = "SRG2"

DoCmd.Close acReport, "RPRSYF1", acSaveYes

DoCmd.Close acReport, "RPRSYF2", acSaveYes

DoCmd.Close acReport, "RPRSYF3", acSaveYes



ElseIf Me.Acl_KytKyn = "1.Form" Then



End If

diğer sorum kayıt kaynağı aynı 3 raporun kodlarının daha kısa yazılması mümkün mü?
Teşekkür ederim.

Calismanizi ekleyip raporlarin amacini ve amaciniz daha net açıklarsanız daha uygun bir çözüm yolu bulabiliriz.
Iyi calismalar

Göndermeden önce düzenlemem uzun zaman alacak, yine de isterseniz göndereyim. Amacım tek şablon form ve tek şablon rapor (buradaki rapor 3 sayfa, daha önce gönderdiğim muayene dosyalarına benzer yapı ) ile rapor kayıt kaynağını formdaki bir kontrol (buton, seçenek vs. ) ile değiştirerek farklı durumlarda ilgili formdan pdf olarak rapor almak ve yazdırabilmek. Formun kayıt kaynağını bir başka formdan kontrol edebiliyorum.

Forms!formm1.RecordSource = "srg1"

şeklinde dener misiniz?

Merhaba, dosyam ektedir.

dilerim işinize yarar ben 3 raporu tek rapor altında altrapor olarak göstedim ama siz alt rapor yerine diğer 3 raporudaki yapıyı tek rapora da taşıyabilirsiniz