AccessTr.neT

Merhaba Arkadaşlar

Eklediğim uygulamada MusCari Formunda Genel Rapor ve İki Tarih Arası butonları ile Raporlar alıyorum. Raporda Kalan sütununda Kalan rakamı görmek istiyorum.

Örneğin: 

ToplamFiyati metin kutusu dolu ise ToplamFiyati metin kutusundaki rakamı Kalan metin kutusunda gösterin.
ToplamFiyati  ve OdTutar Metin kutuları dolu ise ToplamFiyatın dan OdTutarı düşerek kalan rakamı, Kalan metin kutusunda göstersin
ToplamFiyati  metin kutusu boş, OdTutar metin kutusu dolu ise OdTutar Kadar Kalan metin kutusundan eksi olarak rakamı göstersin.

Ozan Hocam MusCariAlt liste kutuları için Sql kodu ekleyerek Kalan sorununu hal etmişti. Ayni şekilde Genel Rapor ve İki Tarih Arası Raporlarda da kalan rakamları görmek istiyorum.

Bu uygulamayı geliştirmemde Ozan Hocamın çok emeği geçti bu nedenle Ozan Hocama ve Formda emeği geçen bütün arkadaşlara çok teşekkürler ediyorum.

Formdaki MusCariAlt isimli alt formun kayıt kaynağındaki sorguyu, raporun kayıt kaynağına ekle,

Rapordaki kalan alanının denetim kaynağını HesapKalan olarak değiştir.

Hocam Konuyu açmadan önce yazdığınız şekilde kodları ekleyerek denemiştim. İki Tarih Arası Raporda oluyor. Genel Raporda hata veriyor.

Merhaba, sorgunun tamamını yazmanız gerekir, yarısını yazarsanız çalışmaz.  Kod ekle dediğimizde tamamını ekle dememize gerek yok sanırım. Sizin eklediğiniz kod

SELECT FaturaDetay.FaturaID, FaturaDetay.DetayNo, FaturaDetay.SatisTarihi, FaturaDetay.SatisUrunAdi, FaturaDetay.SatisAdedi, FaturaDetay.Nevi, FaturaDetay.Fiyati, FaturaDetay.Tutari, FaturaDetay.KdvOrani, FaturaDetay.KdvTutari, FaturaDetay.ToplamFiyati, FaturaDetay.OdTutar, IIf(Not IsNull([ToplamFiyati]),[ToplamFiyati],IIf(Not IsNull([ToplamFiyati]) And Not IsNull([OdTutar]),[ToplamFiyati]-

Kodun tamamı

SELECT FaturaDetay.FaturaID, FaturaDetay.DetayNo, FaturaDetay.SatisTarihi, FaturaDetay.SatisUrunAdi, FaturaDetay.SatisAdedi, FaturaDetay.Nevi, FaturaDetay.Fiyati, FaturaDetay.Tutari, FaturaDetay.KdvOrani, FaturaDetay.KdvTutari, FaturaDetay.ToplamFiyati, FaturaDetay.OdTutar, IIf(Not IsNull([ToplamFiyati]),[ToplamFiyati],IIf(Not IsNull([ToplamFiyati]) And Not IsNull([OdTutar]),[ToplamFiyati]-[OdTutar],IIf(IsNull([ToplamFiyati]) And Not IsNull([OdTutar]),[OdTutar]*-1,""))) AS HesapKalan FROM FaturaDetay; 

Hocam Kusura bakma Kodu kopyalayarak yapıştırmıştım. Demek ki kodun yarısını kopyalamışım.

Hocam konuyu taşıyabilirsiniz. Saygılarımla iyi çalışmalar.