Hesapla butonunun tıklandğında olayındaki aşağıdaki kodu sil

If MsgBox("Yeni kayıt tabloya eklenecek", vbYesNo) = vbYes Then

With DoCmd

.SetWarnings False

.RunSQL "insert into SIVILAŞMA(SONDAJKUYUSUADI,DERİNLİKİLK)" _

& " select [Forms]![SONDAJ VERİ GİRİŞİ]![SONDAJKUYUSUADI],[Forms]![SONDAJ VERİ GİRİŞİ]![DERİNLİKİLK]"

.SetWarnings True

End With

End If

yerine bunu ekle.

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    strSQL = "SELECT * FROM SIVILAŞMA "

    Set rstkayit = New ADODB.Recordset

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

        With rstkayit

        .Find "[Kimlik]=" & "'" & Me![Kimlik] & "'"

            If Not rstkayit.EOF Then

                .Fields("SONDAJKUYUSUADI") = Me.SONDAJKUYUSUADI

                .Fields("DERİNLİKİLK") = Me.DERİNLİKİLK

                .Update

             Else

                .AddNew

                .Fields("Kimlik") = Me.Kimlik

                .Fields("SONDAJKUYUSUADI") = Me.SONDAJKUYUSUADI

                .Fields("DERİNLİKİLK") = Me.DERİNLİKİLK

                .Update

             End If

        End With

Ayrıca;
Microsoft Activex Data Object referansını ekle.