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.
biraz karmaşık yükledim kusuruma bakmayın..