AccessTr.neT
Açılan Kutudan Alt Formla İlişkili Form Açma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutudan Alt Formla İlişkili Form Açma (/konu-acilan-kutudan-alt-formla-iliskili-form-acma.html)

Sayfalar: 1 2


Cvp: Açılan Kutudan Alt Formla İlişkili Form Açma - hey - 11/05/2018

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

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


Cvp: Açılan Kutudan Alt Formla İlişkili Form Açma - ozanakkaya - 11/05/2018

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.


Cvp: Açılan Kutudan Alt Formla İlişkili Form Açma - hey - 13/05/2018

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.


Cvp: Açılan Kutudan Alt Formla İlişkili Form Açma - hey - 13/05/2018

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.


Cvp: Açılan Kutudan Alt Formla İlişkili Form Açma - ozanakkaya - 27/05/2018

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