Ara değerlerin alt toplamını alma
Tarih
27/05/2009 19:37
Konu Sahibi
mesudi
Yorumlar
7
Okunma
1952
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mesudi
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... A....
249
30/10/2008
63
İstanbul
Ofis 2003
12/12/2016,17:50
Çözüldü 
Sponsor Reklam
Arkadaşlar ekteki örnekte görebileceğiniz gibi, her senet için ayrı ayrı vade farkı hesabı yapıp hemen yanına metin kutusuna yazdırıyorum. Ancak en alta tümünün toplamını yıllardır almayı başaramadım. Çok değişik yöntemler denedim. Bilen bir arkadaş varsa minnettar olurum.


Ek Dosyalar
.rar   Deneme.rar (Dosya Boyutu: 12,72 KB / İndirme Sayısı: 11)
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.837
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,01:53
Çözüldü 
ben bu şekilde alğıladım ve yaptım umarım yanlış anlamamışımdır.


Ek Dosyalar
.rar   Deneme_celoyce.rar (Dosya Boyutu: 15,48 KB / İndirme Sayısı: 20)
Cevapla

mesudi
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... A....
249
30/10/2008
63
İstanbul
Ofis 2003
12/12/2016,17:50
Çözüldü 
Sponsor Reklam
Hocam ilgine teşekür ederim, ama sanırım olmamış, çünkü üstteki her satır için vade farklarını bulan metin kutularındaki değerlerin en altta toplamlarının alınması lazım. Ortaya çıkan rakama bakınca bir sorun olduğu bariz zaten. Ancak ben Dsum 'ı hiç denememiştim çünkü değerleri direk tablodan almıyor söz konusu metin kutuları. TaksitTutar adlı alanını tarihe göre değerlendirip bir sabit değerle çarpıyor. Ben üzerinde biraz çalışırım.
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
Private Sub Form_Open(Cancel As Integer)
Komut0
End Sub
Sub Komut0()
Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "tblTaksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim asd As Integer
If rs.EOF <> True Then
Do
Select Case rs("Tarih")
Case Is < Date
asd = asd + rs("TaksitTutar") * "0,0016" * (Date - rs("Tarih"))
End Select
rs.MoveNext
Loop Until rs.EOF
End If
Me.txtGecikenTaksit = asd
Set rs = Nothing
End Sub

bu senin şu andaki verilerini tablodaki tüm verilere göre toplamı alır ancak burda bir çok kişi olacağını varsayarsak bir sonraki aşamada bu kodu kişi kayıtlarına göre süzdürmelisin


Ek Dosyalar
.rar   Deneme.rar (Dosya Boyutu: 18,67 KB / İndirme Sayısı: 14)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

mesudi
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... A....
249
30/10/2008
63
İstanbul
Ofis 2003
12/12/2016,17:50
Çözüldü 
Sponsor Reklam
Eşref hocam çok teşekür ederim. Çok güzel bir çözüm. Aslında VBA'da sorunlarımı çözecek kadar bir altyapım var ama, nedense bunu hiç denemedim. +Rep
Cevapla

mesudi
Aktif Üye
Kullanici Avatari
Aktif Üye
M.... A....
249
30/10/2008
63
İstanbul
Ofis 2003
12/12/2016,17:50
Çözüldü 
Eşref hocam tekrar çok teşekkür ediyorum, gerçekten kodlarınızla uzun zamandır çözemediğim sorunlarımı çözdüm. Ancak ben bu kodları aynı durumdaki raporlarımda kullanamadım. Verilen hata mesajlarından anladığım kadarıyla ADO ve DAO'nun raporlardaki davranışları formlardakinden farklı. Yani raporlarda ara değerlerin alt toplamını aynı yöntemle alamıyorum. Kodlarla baya oynadım ama beceremedim. Ben örnek dosyayı tekrar ekliyorum. Raporlar bölümündeki bölümündeki örnek formun aynısı. Sadece vade farklarının alt toplamını alamadım. Yardımcı olursanız çok sevinirim.


Ek Dosyalar
.rar   Deneme.rar (Dosya Boyutu: 21,13 KB / İndirme Sayısı: 4)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Question Tedarikçilere göre toplam alma ve form üzerinde gösterme safakben 5 150 12/01/2017, 12:58 atoz112
  Tarihe göre rapor alma ve seçilen tarihi raporda gösterme ertans 6 247 30/12/2016, 16:45 ertans
  Listedeki değerlerin toplamını metin kutusuna yazıdrma. nightashes 9 285 22/12/2016, 12:54 atoz112
  webden veri alma, veri tabanına ekleme.... mbo69221088 15 363 10/12/2016, 00:08 mbo69221088
  Webden veri alma stringeer 11 324 08/12/2016, 09:26 stringeer


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya