![Çözüldü](images/icons/cozuldu.png)
Arkadaşlar merhaba,mevcut iki tablodan birindeki bir değeri diğerine nasıl yazırabiliriz.Teşekkürler.
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