Private Sub TAKSİTLİ_AfterUpdate()
Dim taksit As Integer
If Me.TAKSİTLİ = -1 Then
taksit = Val([TEDAVİ ÜCRETİ] / 3)
Me.etiket1.Visible = True
Me.etiket2.Visible = True
Me.etiket3.Visible = True
Me.etiket1.Caption = taksit
Me.etiket2.Caption = taksit
Me.etiket3.Caption = taksit
Else
Me.etiket1.Visible = False
Me.etiket2.Visible = False
Me.etiket3.Visible = False
End If
End Sub
Aynı kodları formunuzun "Geçerli olduğunda" olayına da ekleyin. Böylece 3 taksit olayı olmuş olur. Tarih seçme dediğiniz olay nedir. Ona da bakalım. Tarihleri otomatik atmayacak da siz mi seçeceksiniz ? Tam anlamadık.