Referanslara "Microsot ActiveX Data Objects 2.8 Library" referansını ekle

Kapat butonunun tıklandığında olayına aşağıdaki kodu ekle

strSQL = "SELECT * FROM TCari "



    Set rstkayit = New ADODB.Recordset

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

       With rstkayit

       .Find "[ad_soyad]=" & "'" & Me![Metin22] & "'"

           If Not rstkayit.EOF Then

               .Fields("vade_fark") = Me.Toplatop

               .Update

            End If

       End With

bu kod eklediğiniz örnekte çalışır, kendi uygulamanızda formdaki denetim adları farklı ise düzenleme yapmanız gerekiyor. 

Ayrıca, form açıldığında müşteri adını forma nasıl aktarıyorsunuz bilmiyorum ama müşteri adı ile birlikte musteri id numarasını da aktarmanız gerekli, aynı isimli birden fazla müşteri olabilir.

Tablonuz ile ilgili olarak, 
1-) tabloya "not" adında alan eklemeyiniz, kodlama sırasında not problem yaratır.
2-) ad_soyad alanına birincil anahtar eklemişsiniz, birincil anahtarı ID alanına eklemelisiniz.