bir ürünün fiyatı yazan bi formda onay kutusunu tıkladığımızda bu ürün aşağıda 3 taksite bölünmeli ve tarihleri seçilmelidir?asağıdaki örnekte olduğu gibi taksitli seçildiğinde altında 3 kutucuk açılmalı ve yukardaki fiyat 3e bölünmüş halde kutulara yazılmalı ve taksitlerin ödeneceği tarihler seçilmeli?
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.
Boşa gitmesin. Bende ekleyeyim.
Tarih konusunu bende anlayamadım.
Bu arada bir uyarı: koddaki val() yerine round() kullanmak daha doğru olacak. Round kullandığında yuvarlama gerçekleşir ve taksitler toplamı -ilk kayıt için- 129 lira(43*3) olur. Ana para da 128'dir zaten. Oysa val() kullanırsak 126 lira (42*3) olmaktadır.
Tabii ben teorik olarak yapınca tabloda hiç değişiklik yapmadım. Elbette tarih vs girince tabloya da yazdırmak gerekir.
teşekkürler emeğinize sağlık.tarih konusuda evet ödenecek tarihleri ben seçmeliyim.taksitliyi seçtiğimde yaptığınız örnekte taksitler gibi tarih kutucuklarıda çıkmalı örnek eklerseniz daha faydalı olur.tekrar teşekkürler
Örnek eklememize gerek yok ki, zaten kodlar orada mevcut, üç adet metin kutusu ekleyin (özelliğini tarih olarak ayarlayın) ve diğer kodların bulunduğu yerlere monte edin.