AccessTr.neT
Sayı Alanına Takvim İle İnteger Değer Girmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayı Alanına Takvim İle İnteger Değer Girmek (/konu-sayi-alanina-takvim-ile-integer-deger-girmek.html)

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

RE: Sayı Alanına Takvim İle İnteger Değer Girmek - feraz - 02/05/2020

(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.

RE: Sayı Alanına Takvim İle İnteger Değer Girmek - ozanakkaya - 02/05/2020

Metin0'a çift tıklarsanız yaş seçimi için form açılır.

RE: Sayı Alanına Takvim İle İnteger Değer Girmek - feraz - 02/05/2020

Ç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
[Resim: do.php?img=10153]

RE: Sayı Alanına Takvim İle İnteger Değer Girmek - accessman - 02/05/2020

Çok teşekkürler ellerine sağlık

RE: Sayı Alanına Takvim İle İnteger Değer Girmek - feraz - 02/05/2020

Rica ederim üstad,verdiğim kod hatasını çözen olursa seviniriz.
Listindex hatası veriyor.

Re: Sayı Alanına Takvim İle İnteger Değer Girmek - accessman - 03/05/2020

(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