strSql = "SELECT * FROM Dava_kayit "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[SON DURUM]=" & "'" & [SON DURUM] & "'"
.Update
.Fields("SON DURUM") = Me.[SON DURUM] & Chr(13) & Chr(10) & Me.[SON DURUM2]
.Update
End With
Form.Requery
şeklinde bir kod yazmak ve"Microsoft ActiveX Data Object" referansının eklenmesi yeterli.