Merhaba, sorunuzdan anladığım kadarıyla,

formun Vba sayfasına aşağıdaki kodu ekle

Sub AnalizHesapla()



Dim AnalizToplami As String



AnalizToplami = Val(Nz([AN].Column(1), 0)) + Val(Nz([AN1].Column(1), 0)) + Val(Nz([AN2].Column(1), 0)) + Val(Nz([AN3].Column(1), 0)) + Val(Nz([AN4].Column(1), 0)) + Val(Nz([AN5].Column(1), 0)) + Val(Nz([AN6].Column(1), 0)) + Val(Nz([AN7].Column(1), 0)) + Val(Nz([AN8].Column(1), 0)) + Val(Nz([AN9].Column(1), 0)) + Val(Nz([AN10].Column(1), 0))

Me.ANALİZ_BEDELİ = AnalizToplami



End Sub

Analiz ile ilgili açılan kutuların güncelleştirme sonrasında olaylarına aşağıdaki kodu ekle,

Private Sub AN_AfterUpdate()



AnalizHesapla



End Sub

Bu AN isimli açılan kutuya ait kod, A10'a kadar tüm açılan kutulara bu kodu eklemelisin.