+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listedeki değerlerin toplamını metin kutusuna yazıdrma. (/konu-listedeki-degerlerin-toplamini-metin-kutusuna-yazidrma.html)
Sayfalar:
1
2
Listedeki değerlerin toplamını metin kutusuna yazıdrma. - nightashes - 18/12/2016
Merhabalar.
Ekte yapmaya çalıştığım mtn_maliyet metin kutusuna seçilen taslağın lst_taslakliste denetiminde bulunan tutarların toplamını yazdırmak.
Çeşitli denemeler yaptım fakat istediğim bir türlü olmadı.
Yardımlarınız için şimdiden teşekkürler.
nightashes18122016.rar
(Dosya Boyutu: 56,05 KB | İndirme Sayısı: 7)
Cvp: Listedeki değerlerin toplamını metin kutusuna yazıdrma. - atoz112 - 18/12/2016
sayın nightashes,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: Listedeki değerlerin toplamını metin kutusuna yazıdrma. - nightashes - 18/12/2016
Bu toplama işlemini denetim kaynağını kullanmadan vb üzerinden yaptırma imkanımız var mı?
Cvp: Listedeki değerlerin toplamını metin kutusuna yazıdrma. - ozanakkaya - 18/12/2016
Merhaba, atoz hocanın metin kutusunun denetim kaynağına eklediği kodu "F_RECETETASLAKLISTE" isimli formdaki liste kutusunun çift tıklandığnda olayındaki
Forms!F_RECETETASLAK.Form!mtn_maliyet = lst_liste.Column(6)kodunu aşağıdaki ile değiştirerek kullanabilirsin.
Forms!F_RECETETASLAK.Form!mtn_maliyet = Dsum ("[Tutar]", "T_RECETETASLAKMALIYET", "[ReceteTaslakNo]=" & lst_liste.Column(1))mtn_maliyet metin kutusunun denetim kaynağının boş olması gerekli, ayrıca liste kutusuna yeni ekleme yapıldığında mtn_maliyet'in yenilenmesi için yine kod eklenmesi gerekli.
Atoz hocanın eklediği haliyle ne sıkıntısı yaratıyor acaba?
Cvp: Listedeki değerlerin toplamını metin kutusuna yazıdrma. - nightashes - 18/12/2016
Sayın ozanakkaya
Dediğiniz düzeltmeyi yapınca oldu. Ben yapamayınca koddan gitmek istemiştim. Şöyle bir kod yazdım nihayetinde;
Kod:
Public Sub topla()
Dim a As Integer
Dim atoplam As Double
a = 0
atoplam = 0
For a = 1 To (lst_taslakliste.ListCount) - 1
atoplam = atoplam + lst_taslakliste.Column(7, a)
Next a
Me.mtn_maliyet = Nz(Format(atoplam, "Para Birimi", 0))
Me.mtn_maliyet = atoplam
End SubAtoz hocamın gösterdiği şekilde düzenlemeyi yapıp devam edeceğim bende.
Cvp: Listedeki değerlerin toplamını metin kutusuna yazıdrma. - atoz112 - 19/12/2016
sayın nightashes,
konu;
her ne kadar taşınmış da olsa,
3.mesajdaki sorunuza yanıt vermiş olmak adına,kısaca şu açıklamanın yapılması uygun görülmüştür.
direkt denetim üzerinde bu sonucu elde etmenizin daha uygun ve geçerli olduğu gerekçesi ile,böyle bir çözüm elde edilmesi ve sunulması düşünülmüştür.
çünkü;
kod ile sizin talep ettiğiniz gibi işlem yapılmak istendiğinde,sayın ozan bey tarafından da dikkat çekildiği üzere,harici kodların da kod sayfasında ilgili olay yordamları içerisine dahile dilmesi gerekecekti ve bu da fazladan kod yazmak demekti.
elbette ki,kullanım için,tercih ve takdir sizindir.bu paylaşılanlar,sadece verimli olması amacı ile yapılmaktadır,her bir katılımcı tarafından.
bilginize...iyi çalışmalar,saygılar.