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