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 yarariyi çalışmalar.