Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/05/2009 19:37
Konu Sahibi
mesudi
Yorumlar
7
Okunma
2230
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.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,18:40
Çö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ü 
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

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çö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ü 
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
Çözüldü Ay İçinde Geçen Cumartesi Ve Pazar Günlerinin Toplamını Bulmak hakan_s 11 351 15/09/2017, 23:33 hakan_s
Çözüldü Satın Alma Takip Te Yöneticilere Onaylatma mahsumyavuz 2 138 24/08/2017, 12:15 mahsumyavuz
Çözüldü Web Browserdeki Checkbox Değerini Alma idrisy 4 218 31/07/2017, 23:33 ozanakkaya
Çözüldü Açılır Kutudaki Değeri Alma Sorunu derzulya 5 218 11/07/2017, 16:08 derzulya
Çözüldü Access Den Excel Çıktısı Alma Sorunu estapan 13 915 30/05/2017, 14:12 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.