Merhaba,
modül kodları:

Public Sub KytKaynAyari(ByVal MvctForm As Access.Form)



Dim SqlStr, SqlStrRpr As String

' formun kayıt kaynağının ayarlanması

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

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

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



DoCmd.OpenForm "FRADYASYONMYN"

Forms!FRADYASYONMYN.RecordSource = SqlStr

DoCmd.OpenForm "FRADYASYONMYN", , , "TACALISANKAYDI.KIMNO=" & MvctForm.LstKayitSorg

DoCmd.Close acForm, MvctForm.Name



'' rapor kayıt kaynağı ayarlama kod bloğu

CurrentDb.QueryDefs("SqlRAPRADMYNSYF").SQL = SqlStrRpr 'burada raporların kullandığı ortak sorgunun yapısı değiştirilmiştir

End Sub

Tıklanma olayı:

Call KytKaynAyari(Me)

gibi düzenlendiğinde sistem çalışıyor. Ancak TRADYASYON tablosu ve FRADYASYONMYN formunu değişken olarak aşağıdaki gibi tanımladığımda düzenek hata veriyor.

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



Dim SqlStr, SqlStrRpr As String

' formun kayıt kaynağının ayarlanması

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)=[Formlar]![ACILACAKFORM]![mtn_KimNo]))"



DoCmd.OpenForm "ACILACAKFORM"

Forms!ACILACAKFORM.RecordSource = SqlStr

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

DoCmd.Close acForm, MvctForm.Name



'' rapor kayıt kaynağı ayarlama kod bloğu

CurrentDb.QueryDefs("SqlRAPRADMYNSYF").SQL = SqlStrRpr 'burada raporların kullandığı ortak sorgunun yapısı değiştirilmiştir

End Sub

Diğeri 

Call KytKaynAyari(Me, "FRADYASYONMYN", "TRADYASYON")

compile yapınca sorun yok, kişi kaydı olayını işletince takılıyor:" Run-Time '2102': Özellik sayfasında ya da bir makroda girdiğiniz form adı, 'ACILACAKFORM' , yanlış yazılmış veya varolmayan bir forma başvuruyor. "
Kaynak dosya: https://accesstr.net/konu-form-ve-rapor-...#pid171866