Skip to main content

AccessTr.neT


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

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

#1
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.
.rar nightashes18122016.rar (Dosya Boyutu: 56,05 KB | İndirme Sayısı: 7)
Alıntı:Her şey bir fikirle başlar.
Cevapla
#2
sayın nightashes,

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

bilginize...iyi çalışmalar,saygılar.
.rar nightashes18122016a-ATOZ.rar (Dosya Boyutu: 54,09 KB | İndirme Sayısı: 10)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Bu toplama işlemini denetim kaynağını kullanmadan vb üzerinden yaptırma imkanımız var mı?
Alıntı:Her şey bir fikirle başlar.
Cevapla
#4
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?
Cevapla
#5
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.
Alıntı:Her şey bir fikirle başlar.
Cevapla
#6
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task