Hocam en son şekliyle örnekteki gibi yaptım,ancak yinede varsayılan değeri getiremedim,incelermisiniz.[/vb]Private Sub Açılan_Kutu98_AfterUpdate()
Me.Fıyat8 = Me.Açılan_Kutu98.Column(1)
topla
End Sub

Function topla()

Me.Toplam = Val(Me.Fıyat1) + Val(Me.Fıyat2) + Val(Me.Fıyat3) + Val(Me.Fıyat4) + Val(Me.Fıyat5) + Val(Me.Fıyat6) + Val(Me.Fıyat7) + Val(Me.Fıyat8) + Val(Me.Fıyat9) + Val(Me.Fıyat10) + Val(Me.Fıyat11) + Val(Me.Fıyat12) + Val(Me.Fıyat13) + Val(Me.Fıyat14)

Me.Aratoplam = Val(Me.Toplam) - Val(Me.İskonto)

Me.Genel_Toplam = Val(Me.Aratoplam) * Val(Me.KDV) / 100 + Val(Me.Aratoplam)

End Function

Hesapla butonunuda kaldırdım.

Ek Dosyalar

BİLGİSAYAR TOPLAMA.rar(/vb)

---

biraz karmaşık yükledim kusuruma bakmayın..