AccessTr.neT

Tam Versiyon: Kasa Devir Yaptırmada En Son Çalışılan Kasa Adını Forma Yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Kasaya Yeni yıl için Devir Yaptırmak istiyorum. En son kasa İsmini ve Tutarını Forma nasıl getirebilirim

[Resim: do.php?imgf=149363876480961.gif]
Merhaba
"2016 Yıl Sonu" mu yoksa "2016 Yıl Sonu Bankadaki para" alanındaki veri mi aktarılacak?

=DLast("aciklama";"KASA_2016")


=DLast("gelir";"KASA_2016")


kodlarını deneyin
sayın haziran4,

bahsettiğiniz talebinize yönelik olarak;

her ne kadar sayın ozan bey tarafından paylaşımda bulunulsa da (kendilerinin de hoş görüsüne sığınaraktan cevabınızı beklemek gerekli ise de),kendi adıma geçerli olmak sureti ile eklediğiniz örnek uygulamayı inceleme imkanım yetersizlik gerekçesi ile söz konusu olmadı fakat eklediğiniz resim üzerinden incelediğim esnada not aldığım halini içerecek şekilde naçizane ben de alternatif bir çözüm önerisinde bulunmak üzere paylaşmak isterim.

Dim glr, gdr, snc

glr = Format(Nz(DSum("[gelir_alan_adi]", "KASA_" & Format(DateAdd("yyyy", -1, Date), "yyyy")), 0), "currency")

gdr = Format(Nz(DSum("[gider_alan_adi]", "KASA_" & Format(DateAdd("yyyy", -1, Date), "yyyy")), 0), "currency")

snc = glr - gdr

Me.devredilecek_kasaadi_denetiminin_adi = "KASA_" & Format(DateAdd("yyyy", -1, Date), "yyyy")

Me.olusturulacak_yenikasa_adi = "KASA_" & Format(Date, "yyyy")

Me.devredilecek_tutar_denetiminin_adi = IIf(snc = 0, 0, IIf(snc > 0, glr, gdr))

yukarıdaki kodları,ilgili formun YÜKLENDİĞİNDE olay yordamı içerisine dahil etmek sureti ile kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
sayın haziran4,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.