kendi çalışmanıza aşağıdaki kodları ekleyip dener misiniz?
Yalniz bir hatırlatma yapmalıyım siz istediğiniz kadar tabloda değişiklik yapın aşağıdaki kod bütün değişiklikleri geri alır eğer değişiklikleri sadece adet ve fiyat kutuları değiştiğinde olmasını istiyorsanız tum ilgili metin kutularının 6 kutununda değiştiğinde olayina

Me.toplam_adet = Nz(cola_adet) + Nz(su_adet) + Nz(meyve_suyu_adet)

Me.toplam_fiyat = Nz(cola_fiyat) + Nz(su_fiyat) + Nz(meyve_suyu_fiyat)

kodunu yazmanız gerek
Aşağıdaki kodlar her hangi bir metin kutusuna girildiğinde calisir
Yani ya sadec 6 metin kutusunun değiştiğinde olayına da yukardaki kodu yazarsınız yada sadece alttaki kodları forma eklersiniz

Public Function Degis()



Me.toplam_adet = Nz(cola_adet) + Nz(su_adet) + Nz(meyve_suyu_adet)

Me.toplam_fiyat = Nz(cola_fiyat) + Nz(su_fiyat) + Nz(meyve_suyu_fiyat)



End Function

Private Sub Form_Load()



For Each ctl In Me.Controls

        If ctl.ControlType = 109 Then ctl.OnEnter = "=Degis()"

Next ctl



End Sub

dilerim işinize yarar
iyi çalışmalar.