Sayı Alanına Takvim İle İnteger Değer Girmek

1 2 3 4 5 6 7 8 9 10 11
02/05/2020, 15:59

feraz

(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.
02/05/2020, 17:53

ozanakkaya

Metin0'a çift tıklarsanız yaş seçimi için form açılır.
02/05/2020, 21:48

feraz

Ç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

02/05/2020, 22:33

accessman

Çok teşekkürler ellerine sağlık
02/05/2020, 22:49

feraz

Rica ederim üstad,verdiğim kod hatasını çözen olursa seviniriz.
Listindex hatası veriyor.
03/05/2020, 10:17

accessman

(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
1 2 3 4 5 6 7 8 9 10 11