Metin8'in güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

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] = " & Kimlik

    If rs.NoMatch Then

        rs.AddNew

        rs!Kimlik = Me.Kimlik

        rs!alan2 = Me.Metin8

        rs.Update

    Else

        rs.Edit

        rs!alan2 = Me.Metin8

        rs.Update

    

    End If

        rs.Close

        Set rs = Nothing

        Set dbs = Nothing