Taksit Sayısı Kadar Sıralı Senet Dökümü

[ÖmerFaruk]

Sizinle aynı fikirde değilim halen. Mesajımda açıkça belirttim sorunları.
Eğer aynı düşünmüyorsak yapacak bir şey yok.

 

[zaruri]

Çalışmaya getirebildiğimiz son durumu incelemenizi ve pratik olabilecek
yerleri ve sakıncalı bölgeleri iyileştirmenizi bekliyorum.

İlgi ve alakalarınıza teşekkür eder.
Saygılarımı sunarım.

 

[zaruri]

Değerli ÖmerFaruk Hocam; Ben bir hatalı durum buldum.

Ay sonlarına sıralanan Ödemeler, Hatalı sıralanıyor,
30 ve 28 olan aylar bir sonraki aya yazıyor.

Bu konuda yardımlarınızı bekliyorum.

 

[ÖmerFaruk]

CommandButton1 (Hesapla) kodlarınızı aşağıdaki gibi kullabilirsiniz.

Private Sub CommandButton1_Click()
    Dim i As Integer, Toplam As Double
    For i = 1 To 14
        Controls("TextBox" & i) = ""
        Controls("TextBox_T" & i) = ""
        Controls("TextBox_TT" & i) = ""
    Next i
    For i = 1 To Me.ComboBox_TaksitSayisi
        Controls("TextBox" & i) = i
        Controls("TextBox_T" & i) = Format(DateAdd("m", i, CDate(Me.TextBox_İlkTaksitTarihi)), "dd.mm.yyyy")
        Controls("TextBox_TT" & i) = Format(CDbl(Me.TextBox86), "##,##0.00")
        Toplam = Me.TextBox86 + Toplam
        Controls("TextBox" & i).BackColor = vbYellow
        Controls("TextBox_T" & i).BackColor = vbYellow
        Controls("TextBox_TT" & i).BackColor = vbYellow
    Next i
    TextBox85.Value = Format(Toplam, "##,##0.00")
    TextBox26.Value = Format(Toplam, "##,##0.00")
End Sub

Ayrıca TextBox1..14, TextBox_T1..T14, TextBox_TT1..TT14, için kullandığınız aşağıdaki tarzdakilerin hepsini silin.

Private Sub TextBox1_Change()
TextBox1.BackColor = vbYellow
End Sub

Kodlarınızda benzer şekilde çok fazla sayıda gereksiz kod parçacıkları var.
Sadeleştirebilirsiniz.

Ama hepsinden daha önemlisi kodlarınızda kullandığınız
On Error Resume Next
ifadesinin işleyişi hakkındaki eksik bilginizden ötürü bu satırı asla kullanmayın. Biraz araştırıp sebebini öğrenip önlemlerinizi aldıktan sonra kullanın.

 

[zaruri]

Değerli Hocam hayırlı günleriniz olsun,
Bu pazartesiyi iple çektim ki, Hocalarımdan bir çözüm gelsin.
Ben Bu uygulamayı sigorta şirketine giriş menüsü diye hazırlanmış olarak buldum.
ve kendimize uyarlamaya çalıştım. Hep sizlerin sayesinde.

Aslında temizlediğimi sanıyordum fakat sayfalarca kod' a siz bir kaç satırda çalıştırma yazıp gereksiz şeylerin silinmesi konusunda yol gösterdiğinizde,

Hiç bir şey temizlemediğimi fark ettim ve Sizin kodları çalıştırdıktan sonra kolları sıvayıp temizliğe başladım.
İnşallah becerebilirim.

İnanın tek kıskandığım şey bilgi, kıymetini bilin.
Zaten zekatını veriyorsunuz, bildiklerinizle güzel bir ömür yaşayınız.

Sağ olun var olun.
Temizlikten sonra neticeği görüşlerinize sunacağım. şimdilik esen kalın.

 

[zaruri]

Hocam Temizliği yaptım sayılır,
İlk taksit tarihini 1 ay sonrasına kaydediyor,
etki ettiği yeri aradım fakat bulamadım.

yardımlarınızı bekliyorum.

 

[YUSUF44]

HESAPLA tuşundaki aşağıdaki kısmı:

For X = 1 To Me.ComboBox_TaksitSayisi
    Controls("TextBox_T" & X) = Format(DateSerial(Year(xtrh), Month(xtrh) + X - 1, Day(xtrh)), "dd.mm.yyyy")
    Controls("TextBox_TT" & X) = Me.TextBox86
Next X

Aşağıdaki kodlarla değiştirip deneyin:

TextBox_T1 = CDate(xtrh)
TextBox_TT1 = Me.TextBox86
For X = 2 To Me.ComboBox_TaksitSayisi
    Controls("TextBox_T" & X) = Format(DateSerial(Year(xtrh), Month(xtrh) + X - 1, Day(xtrh)), "dd.mm.yyyy")
    Controls("TextBox_TT" & X) = Me.TextBox86
Next X

 

[zaruri]

YUSUF44 Hocam;

Ekte görünen hatayı verdi,

Yanlış aktarmış olabilirim, bir göz atabilir misiniz.

 

[YUSUF44]

Ben o kısımda hata verecek bir değişiklik yapmadım. Sadece ilk taksit bilgilerini döngüden önce yazdırma ayarı yaptım. Comboboxtaki değerlerde sıkıntı olabilir mi?

 

[zaruri]

Private Sub CommandButton1_Click()
    Dim i As Integer, Toplam As Double
    For i = 1 To 14
        Controls("TextBox" & i) = ""
        Controls("TextBox_T" & i) = ""
        Controls("TextBox_TT" & i) = ""
    Next i
    
    
    For i = 1 To Me.ComboBox_TaksitSayisi
        Controls("TextBox" & i) = i
        
        Controls("TextBox_T" & i) = Format(DateAdd("m", i, CDate(Me.TextBox_İlkTaksitTarihi)), "dd.mm.yyyy")
        Controls("TextBox_TT" & i) = Format(CDbl(Me.TextBox86), "##,##0.00")
        
        Toplam = Me.TextBox86 + Toplam
        Controls("TextBox" & i).BackColor = vbYellow
        Controls("TextBox_T" & i).BackColor = vbYellow
        Controls("TextBox_TT" & i).BackColor = vbYellow
    Next i
    
    
    TextBox85.Value = Format(Toplam, "##,##0.00")
    TextBox26.Value = Format(Toplam, "##,##0.00")
End Sub

Hocam değiştirilmesi gerekenleri bulamadım.
Kodlarda Farklı Bir diziliş olmuş,
Beni aşan bir durum.
Yardımlarınızı bekliyorum.

İstediğim; İlk senet başlama tarihi dökümde 1 ay sonrasını gösteriyor, bunun düzelmesi.

ilgilerinize şimdiden teşekkür ederim.

 

[zaruri]

Değerli Hocalarım;

Çalışmada son durum;
İlk senet tarihi, 1 ay sonrasını hesaplıyor, onun dışında şimdilik bir sıkıntı yok.

Bu konuda ilgi ve alakalarınızı bekliyoruz.

Saygılarımızla, iyi akşamlar, iyi çalışmalar.

 

[YUSUF44]

Controls("TextBox_T" & i) = Format(DateAdd("m", i, CDate(Me.TextBox_İlkTaksitTarihi)), "dd.mm.yyyy")

kısmını

Controls("TextBox_T" & i) = Format(DateAdd("m", i - 1, CDate(Me.TextBox_İlkTaksitTarihi)), "dd.mm.yyyy")

olarak deneyin.

 

[zaruri]

YUSUF44 Harikasınız hocam;

İşlem tamam!

Çalışmada, Emeği geçen bütün arkadaşlara teşekkür ederim.

Sağlıcakla kalın.

 

[Fahrettinn]

YUSUF44 Harikasınız hocam;

İşlem tamam!

Çalışmada, Emeği geçen bütün arkadaşlara teşekkür ederim.

Sağlıcakla kalın.

Merhaba son halini paylaşır mısınız lütfen ; Teşekkürler ...

 

[zaruri]

Çalışır Son hali ektedir, estetik gelişimi size bırakılmıştır.

 

[Fahrettinn]

MERHABA ;
YAZDIRMA NASIL OLUYOR BİR DE İŞARETLİ YERİ MANUEL Mİ YAZMAMIZ GEREKECEK. TEŞEKKÜRLER..

 

[zaruri]

Evet, boş bırakılıp kalem ile de yazılabilir veya bağlı olduğunuz yeri yazabilirsiniz.
yazıcı eklendi.
Ayrıca temizleyip çıkış düğmesi ilave edildi.

Tahsil edebileceğiniz senetler yazdırma dileğiyle..

 

[ESES1989]

Merhaba Zaruri;
Emeğiniz ve paylaşımınız için teşekkür eder iyi günler iyi çalışmalar dilerim.

 

[Fahrettinn]

GERÇEKTEN ÇOK FAYDALI BİR ÇALIŞMA OLMUŞ EMEĞİ GEÇENLERİN ELLERİNE SAĞLIK .
Bir İki düzeltme yapılırsa daha güzel olacağını düşünüyorum :
* Şirket Ve şahıs Seneti olarak düzenleme yapılabilir( Şirket senetlerinde asıl borçluda sadece ünvan gelebilir)
* YENİ SENET GİRİŞİ OLDUĞU GİBİ düzenle butonu konulabilir vadeleri tekrar düzenlemek gibi bir durum olursa ,
* Yazıyla Lira yazılması yerine Türk lirası yazılması daha doğru olur , dövizli Amerikan doları ve Euro da eklenebilir.
* "senet adedi " başlığı genel senet matbularında olduğu gibi sağ kısımda olması çok iyi olur .


Çok Teşekkürler ;

 

[Fahrettinn]

taksit sayısını da 14 aydan 2 yıl 24 aya tamamlanılabilir