TAKSİTLİ isimli onay kutunuzun altına 3 tane etiket koyun. Adları etiket1..3 şeklinde olsun. SOnra da TAKSİTLİ oınay kutusunun günceleme sonrasında olayına şu kodları yapıştırın.

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.