Merhaba,

Referanslara "Microsoft ActiveX Data Object 2.8 library" referansını ekleyip, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştiriniz.

StrSQL = "SELECT * FROM Veri_Tabanı"

Set rstkayit = New ADODB.Recordset

rstkayit.Open StrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[Kimlik]=" & [Form1].Form![Kimlik]

If rstkayit.EOF Then



.AddNew

.Fields("S_NO") = [Form1].Form![S NO]

.Fields("FİRMA_ADI") = [Form1].Form![FİRMA_ADI]

.Fields("FATURA_TARİHİ") = [Form1].Form!FATURA_TARİHİ

.Fields("FATURA_NO") = [Form1].Form!FATURA_NO

.Fields("TUTARI") = [Form1].Form!TUTARI

.Fields("AÇIKLAMA") = [Form1].Form!AÇIKLAMA

.Fields("Teslim_Tarihi") = [Form1].Form!Teslim_Tarihi



.Update

 End If

End With



DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE Fatura_tutanak.Kimlik FROM Fatura_tutanak WHERE (((Kimlik)=[Form1].Form![Kimlik]))"

DoCmd.SetWarnings True





DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Me.Form1.Requery

    MsgBox "Aktarma Yapıldı.", , "Bilgi"