form load() olayında sorun

[kerrrim]

arkadaşlar form yüklendiğinde olayına aşağıdaki kodları yazıyorum. Ödendi kutuları dolu olmasına rağmen form yüklendiğinde taksitler yine aktif görünüyor.
yanlış yaptığım biryer var ama ben bulamadım.Yardım ederseniz sevinirim.
Private Sub Form_Load()

If ÖDENDİ1 = 0 Then
TAKSİT1.Enabled = True
KALAN_BORÇ_MİKTARI = ÖDENECEK_TUTAR
Else
TAKSİT1.Enabled = False
KALAN_BORÇ_MİKTARI = ÖDENECEK_TUTAR - TAKSİT1
End If
If ÖDENDİ2 = 0 Then
TAKSİT1.Enabled = True
TAKSİT2.Enabled = True
KALAN_BORÇ_MİKTARI = ÖDENECEK_TUTAR - TAKSİT1
Else
TAKSİT1.Enabled = False
TAKSİT2.Enabled = False
KALAN_BORÇ_MİKTARI = ÖDENECEK_TUTAR - (TAKSİT1 + TAKSİT2)
End If
If ÖDENDİ3 = 0 Then
TAKSİT1.Enabled = True
TAKSİT2.Enabled = True
TAKSİT3.Enabled = True
KALAN_BORÇ_MİKTARI = ÖDENECEK_TUTAR - (TAKSİT1 + TAKSİT2)
Else
TAKSİT1.Enabled = False
TAKSİT2.Enabled = False
TAKSİT3.Enabled = False
KALAN_BORÇ_MİKTARI = ÖDENECEK_TUTAR - (TAKSİT1 + TAKSİT2 + TAKSİT3)
End If
End Sub

 

[gulsum1]

cevap

sen benim yaptığım taksitlendirme olayına bakmamışsın orda ödenenleri toplamak çıkarmak daha kolay ve sen taksit adedini yazınca sana okadar taksit döndürüyor istersen 1000 yaz sana 1000 tane taksit yaparak satış miktarını 1000 bölüyor 1000 tane tarih döndürüyor ve tabloya yazıyor sen ödedikçe işaretliyorsun bu kadar kod kalabalığına da gerek kalmıyor benim örneği incele taksitlendirme örneği diye arat

 

[kerrrim]

sayın gülsüm1

Sizin örneginizide inceledim. ama henüz bazı şeyleri amlayamadığım için çözemedim.Sizinde dediğiniz gibi kendi yaptığım bir uygulama olması her açıdan yararıma olacak.Zaten tek takıldığım nokta burası kaldı.Önerileriniz için teşekkürler.