Listedeki değerlerin toplamını metin kutusuna yazıdrma.

1 2
18/12/2016, 12:40

nightashes

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.
[attachment=26140]
18/12/2016, 15:14

atoz112

sayın nightashes,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
18/12/2016, 18:13

nightashes

Bu toplama işlemini denetim kaynağını kullanmadan vb üzerinden yaptırma imkanımız var mı?
18/12/2016, 21:23

ozanakkaya

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?
18/12/2016, 21:34

nightashes

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 Sub

Kod çalışmakta. İlgili yerlere formda ki değişiklik yerlerine yani call topla diyerek metin kutusunu yeniletme yaptırıyorum. Sürekli yenileme gerekmekte.
Atoz hocamın gösterdiği şekilde düzenlemeyi yapıp devam edeceğim bende.
19/12/2016, 19:17

atoz112

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