Aşağıdaki mantık ile rapor ve alt rapor kaynaklarını kod ile atayabilirsiniz.

Dim MainReportName As String, SubReportName As String

Dim MainReport As Report, SubReport As Report

MainReportName= "AnaRaporAdı" ' Ana raporun adını güncelleyin.

SubReportName= "AltRaporAdı" ' Alt raporun adını güncelleyin.



Set MainReport = Reports(MainReportName)

MainReport.RecordSource = "SELECT ..........." ' Ana raporun kaynağını belirleyin

Set SubReport = MainReport.Report(SubReportName)

SubReport.RecordSource = "SELECT ............" ' Alt raporun kaynağını belirleyin