Public Sub KytKaynAyari(ByVal MvctForm As Access.Form, ByVal ACILACAKFORM As Access.Form, ByVal TABLOADI As String)



Dim SqlStr, SqlStrRpr As String

' formun kayit kaynaginin ayarlanmasi



SqlStr = " SELECT TACALISANKAYDI.*," & TABLOADI & MvctForm.AclRMynSec & " .* FROM TACALISANKAYDI LEFT JOIN " & TABLOADI & MvctForm.AclRMynSec & _

        " ON TACALISANKAYDI.KIMNO =" & TABLOADI & MvctForm.AclRMynSec & ".KIMNO"



SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=ACILACAKFORM![mtn_KimNo]))"

DoCmd.OpenForm ACILACAKFORM.Name



ACILACAKFORM.RecordSource = SqlStr



DoCmd.OpenForm ACILACAKFORM.Name, , , "TACALISANKAYDI.KIMNO=" & MvctForm.LstKayitSorg

DoCmd.Close acForm, MvctForm.Name



' rapor kayit kaynagi ayarlama kod blogu

CurrentDb.QueryDefs("SqlRAPRADMYNSYF").SQL = SqlStrRpr 'burada raporlarin kullandigi ortak sorgunun yapisi degistirilmistir

End Sub

Call KytKaynAyari(Me, Form_FRADYASYONMYN, "TRADYASYON")