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
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