(02/05/2020, 15:19)accessman yazdı: Bunu accesse çevirebilirsek çok güzel olur
Tamam sizin gibi değerli bir üstad için eve varınca çeviririm.
Metin0'a çift tıklarsanız yaş seçimi için form açılır.
Çevirene kadar işim bitti.
Sadece alttaki kodda hata veriyor şu sağ ve sol ok tıklamada.
Bu hataı çözemedim çözen olursa seviniriz böylece takvim oluşmuş olur
Access için
Kodlar class ile kısaltılabilir duruma göre.
Me.cmb_Ay.ListIndex = Me.cmb_Ay.ListIndex + 1
Me.cmb_Ay.ListIndex = Me.cmb_Ay.ListIndex - 1
Çok teşekkürler ellerine sağlık
Rica ederim üstad,verdiğim kod hatasını çözen olursa seviniriz.
Listindex hatası veriyor.
(02/05/2020, 22:49)feraz yazdı: Rica ederim üstad,verdiğim kod hatasını çözen olursa seviniriz.
Listindex hatası veriyor.
kodları şöyle yazmak gerekiyormuş
Kod:
Private Sub btn_ileri_Click()
On Error Resume Next
If Me.cmb_Ay.ListIndex = 11 Then
Me.cmb_Ay = Me.cmb_Ay.ItemData(0)
Me.cmb_Yil = Me.cmb_Yil.ItemData(Me.cmb_Yil.ListIndex + 1)
Else
Me.cmb_Ay = Me.cmb_Ay.ItemData(Me.cmb_Ay.ListIndex + 1)
End If
cmb_Ay_Change
End Sub
Private Sub btnGeri_Click()
On Error Resume Next
If Me.cmb_Ay.ListIndex = 0 Then
Me.cmb_Ay = Me.cmb_Ay.ItemData(11)
Me.cmb_Yil = Me.cmb_Yil.ItemData(Me.cmb_Yil.ListIndex - 1)
Else
Me.cmb_Ay = Me.cmb_Ay.ItemData(Me.cmb_Ay.ListIndex - 1)
End If
cmb_Ay_Change
End Sub