(07/10/2018, 19:15)ozanakkaya yazdı: 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
Ozan Bey,
Kodlama "rs.update" kısmında hata veriyor.