AccessTr.neT

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

(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 Img-grin

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

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

feraz

ozanakkaya

feraz

accessman

feraz

accessman