Ara değerlerin alt toplamını alma
Tarih
27/05/2009 19:37
Konu Sahibi
mesudi
Yorumlar
7
Okunma
1912
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
25/09/2016,15:27
Çözüldü 
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.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Dün,23:08
Çö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
25/09/2016,15:27
Çözüldü 
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
356
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
25/09/2016,15:27
Çözüldü 
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
25/09/2016,15:27
Çö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
  Dosya konumunu alma tufanbal 7 118 02/12/2016, 10:48 tufanbal
  Bir tablodaki veri toplamını başka tabloya yazdırma shalala 8 194 15/11/2016, 00:59 shalala
  Sorguda Kullanıcı Adını alma tufanbal 4 125 08/11/2016, 08:10 tufanbal
  Kritere göre sırayla işlem alma. orderyazbim 2 125 06/11/2016, 22:30 orderyazbim
  Excel Dosyasında veri alma idrisy 3 99 04/11/2016, 22:00 idrisy


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