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.