AccessTr.neT

Tekrar selam,
Hocam verdiğiniz kodu uyguladım,1 ve 2 kutu dışındaki diğer kutularda varsayılan değer (0) olarak gözüküyor 1 ve 2 nci kutuda varsayılan değer 0 olmasına rağmen aktif değil boş gözüküyor haliyle 1 kutuda işlem yapıp 2 kutuda yapmadığımız takdirde hesaplama hata mesajı veriyor bunun içinde 2 kutuya elle 0 yazmamız gerekiyor 1 ve 2 kutuya varsayılan değeri ne şekilde aktif hale getirebiliriz.

Eğer NZ komutunu kullanacak olursanız hiç bir sıkıntı yaşamazsınız.

Hocam NZ Komutundan kastınız sizin yazdığınız
Toplam = CDbl(nz(Fıyat1,0)) + CDbl(nz(Fıyat2,0)) + CDbl(nz(Fıyat3,0)) bu kod değilmi,eğer uysa ki zaten bunu kullandım ve mesajımdaki hata bunda oluştu

Doğru diyorsunuz eğer seçim yapılmazsa hata veriyor. Bunu birkaç şekilde düzeltebilirsiniz:

1- Ürün listelerinin olduğu açılan kutuların Güncelleme Sonrasında olayındaki kullandığınız koddan önce o alanın değerini 0 (sıfır) yapmak:

Örnek işlemci açılan kutusu için:

Private Sub Açılan_Kutu68_AfterUpdate()



  Fıyat2.Value = 0

  Me.Fıyat2 = Me.Açılan_Kutu68.Column(1)



End Sub

2- Buton ile tıklama olayında sadece bu iki alan için IsNull kontrolü yaparak 0 değerini atamak.

3- Alanların gerçek değerlerini ayrı bir metin kutusunda saklamak. Bunu zorda kalmadıkça denemek bile abes olur dolayısıyla tavsiye etmem. Sadece iş kalabalıklığı artacak.

Ne yazık ki Access'in böyle garip hataları var. NZ komutu ile 0 atama yapması lazım iken yapmıyor.

Hocam uyguladım yine aynı hatayı verdi,sizind kafanızı şişirdim kusuruma bakmayın.

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..