Kod:
strSQL = "SELECT * FROM Tablo2 "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[Kimlik]=" & Me.Kimlik
If Not rstkayit.EOF Then
.Fields("Kazancı") = Me.Maaşı
.Update
Else
.AddNew
.Fields("Kimlik") = Me.Kimlik
.Fields("Kazancı") = Me.Maaşı
.Update
End If
End With
End Sub
aynı kayıt daha önce varsa tablo2deki kazancı alanını günceller, kayıt yeni ise tablo2 ye yeni kayıt olarak ekler.
kodlar esrefigit hocanın örneğinden alıntıdır.