RAPRADMYNSYF raporları için SqlRAPRADMYNSYF isminde ortak bir sorgu oluşturdum (içerik önemsiz rasgele sorgu)
RAPRADMYNSYF raporlarını bu sorguya bağladım
FVERIGIRIS formundaki, BtnKaydaGitR butonunun kodunu
Dim SqlStr, SqlStrRpr As String
' formun kayıt kaynağının ayarlanması
SqlStr = " SELECT TACALISANKAYDI.*, TRADYASYON" & Me.AclRMynSec & ".* FROM TACALISANKAYDI LEFT JOIN TRADYASYON" & Me.AclRMynSec & _
" ON TACALISANKAYDI.KIMNO = TRADYASYON" & Me.AclRMynSec & ".KIMNO"
SqlStrRpr = SqlStr & " WHERE (((TACALISANKAYDI.KIMNO)=[Formlar]![FRADYASYONMYN]![mtn_KimNo]))"
DoCmd.OpenForm "FRADYASYONMYN"
Forms!FRADYASYONMYN.RecordSource = SqlStr
DoCmd.OpenForm "FRADYASYONMYN", , , "TACALISANKAYDI.KIMNO=" & Me.LstKayitSorg
DoCmd.Close acForm, Me.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
Not: bu ara dikkatimi çeken hiç bir kaydı seçmesek bile buton diğer formu açmaya çalışıyorbunu engelleyen kod eklemeniz yerinde olur
Tabi istenirse aynı mantık formlara da uygulanabilir hatta modüle eklenecek fonksiyon ile her formdan kullanilabilir