(18/09/2018, 15:22)ozanakkaya yazdı: Komut11'in tıklandığında olayındaki kodu aşağıdaki ile değiştirin.

Dim GSorgum As String

Dim dbs As DAO.Database

Dim rs As DAO.Recordset



GSorgum = "SELECT * FROM Tablo2;"

Set dbs = CurrentDb

Set rs = dbs.OpenRecordset(GSorgum, dbOpenDynaset)



rs.FindFirst "[Kimlik_T2] = " & Kimlik_T1

    If rs.NoMatch Then

        rs.AddNew

        rs!Kimlik_T2 = Me.Kimlik_T1

        rs.Update

    End If

        rs.Close

        Set rs = Nothing

        Set dbs = Nothing





DoCmd.OpenForm "F2", acNormal, , "[Kimlik_T2]=" & Me.Kimlik_T1

Merhaba Ozan Bey,

Teşekkürler. Ancak bu çözüm, benim bilgi sınırlarımı aştı. Daha basit olarak şöyle bir çözüm buldum forumlarda; Örneğin Git_F2 butonuna bastığımda açılan F2 formunun "yüklendiğinde" olay yordamına ;

kodunu ekledim ve çözüldü. Benim gibi bir acemi için çok daha kısa ve anlaşılır. Ancak şunu da belirtmeliyim ki gerek bendeki çözümde gerekse sizin çözümünüzde eğer F1 formunda "yeni kayıt" oluşturmuş ama henüz veri girmemişsem ve bu esnada da Git_F2 ya da Git_F3 butonunu tıkladıysam doğal olarak hata verip debug ekranı açılıyor. Bunu da F1'e veri girilmediyse butonları deaktive ederek çözmeyi uygun gördüm. Daha efektif çözüm varsa buna da açığım tabiki.