Dim SqlStr, SqlStrRpr As String

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

DoCmd.OpenForm "FRADYASYONMYN", acDesign

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]))"

DoCmd.Close acForm, "FRADYASYONMYN", acSaveYes

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

DoCmd.Close acForm, Me.Name

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

For x = 1 To 3

DoCmd.OpenReport "RAPRADMYNSYF" & x, acViewDesign

Reports("RAPRADMYNSYF" & x).RecordSource = SqlStrRpr

DoCmd.Close acReport, "RAPRADMYNSYF" & x, acSaveYes

Next x