dim SqlStr, SqlStrRpr as string
SqlStr = "SELECT TACALISANKAYDI.*, TRADYASYON" & Me.AclRMynSec & ".* FROM TACALISANKAYDI LEFT JOIN TRADYASYON" & Me.AclRMynSec & " ON TACALISANKAYDI.KIMNO = TRADYASYON" & Me.AclRMynSec & ".KIMNO"
Forms!FRADYASYONMYN.RecordSource=SqlStr
SqlStrRpr=SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=[Formlar]![FRADYASYONMYN]![mtn_KimNo]))"
' diğer kodlar
Reports("RAPRADMYNSYF" & x).RecordSource = SqlStrRpr
' diğer kodlar
şeklinde yazilabilir
Eğer 2 sorgu arasındaki tek fark WHERE ise