Merhaba,

Alt formdaki SyDurum açılan kutusunun güncelleştirme olayındaki kodda yapılmak istenileni anlamadığım için formu açtırdığınız kod üzerinde düzeltme yaptım.

Alt formun Güncelleştirme sonrasında olayında

Private Sub Form_AfterUpdate()

On Error Resume Next

DoCmd.OpenForm Me.SyDurum

End Sub

Şeklinde kod var.

Bu kodu

Private Sub Form_AfterUpdate()

On Error Resume Next



If Me.SyDurum = "FsRapor" Then

            

    If Nz(DLookup("SRaporID", "SRapor", "[SYetkiliFk]= " & SYetkiliID), 0) = 0 Then



        DoCmd.RunSQL "INSERT INTO SRapor (SYetkiliFk) values (" & SYetkiliID & ")"

    End If



End If



DoCmd.OpenForm Me.SyDurum

End Sub

Kodu ile değiştirirseniz önce Srapor tablosuna olması gereken veriyi aktarır, formu daha sonra açar.