"Run - time error '2102' Özellik sayfasında ya da bir makroda girdiğiniz form adı, 'SablonForm' yanlış yazılmış veya varolmayan bir forma başvuruyor. " vba
hatası alıyorum.
Modül:
Public Sub KytKaynAyari(ByVal MvctForm As Access.Form, ByVal SablonForm As String)
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]![SablonForm]![mtn_KimNo]))"
DoCmd.OpenForm "SablonForm"
Forms!SablonForm.RecordSource = SqlStr
DoCmd.OpenForm "SablonForm", , , "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
FVERIGIRIS formundaki radyasyon seçimi tıklanıldığında olayı:
Kod:
Call KytKaynAyari(Me, "FRADYASYONMYN")