AccessTr.neT

Bul · 11/05/2018, 01:27

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

[Resim: do.php?imgf=152599112825331.jpg]

Bul · 11/05/2018, 13:59

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.

Bul · 13/05/2018, 23:16

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.

Bul · 13/05/2018, 23:48

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.

Bul · 27/05/2018, 00:06

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

AccessTr.neT

Açılan Kutudan Alt Formla İlişkili Form Açma

Açılan Kutudan Alt Formla İlişkili Form Açma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri