Ara değerlerin alt toplamını alma
Tarih
27/05/2009 19:37
Konu Sahibi
mesudi
Yorumlar
7
Okunma
2012
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ü 
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.901
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
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ü 
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
12/05/2017,17:08
Çözüldü 
Sponsor Reklam
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ü 
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ü 
Sponsor Reklam
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
  Tarih İçinden Ay Ve Yılı Alma Allback 2 100 12/03/2017, 10:52 Allback
  Excelden veri alma ates2014 27 927 20/02/2017, 09:35 caytug
  Formda Alt Form Sutun Toplamlarını alma haziran4 14 357 02/02/2017, 12:09 atoz112
Question Tedarikçilere göre toplam alma ve form üzerinde gösterme safakben 5 246 12/01/2017, 12:58 atoz112
  Tarihe göre rapor alma ve seçilen tarihi raporda gösterme ertans 6 403 30/12/2016, 16:45 ertans


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