AccessTr.neT

Hocam yapmak istediğimi resim üzerinde anlatmaya çalıştım.

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.

hocam teşekkür ederim yazmış olduğunuz kod sorunsuz çalışıyor aynı açılan kutuda birden fazla form için bunu yapmamız mümkünmüdür.

hocam teşekkür ederim yazmış olduğunuz kod sorunsuz çalışıyor aynı açılan kutuda birden fazla form için bunu yapmamız mümkünmüdür.

Mümkündür. Üst mesajdaki kodu incelerseniz diğer formlar için de kullanabilirsiniz.