(02/05/2020, 15:19)accessman yazdı: Bunu accesse çevirebilirsek çok güzel olurTamam sizin gibi değerli bir üstad için eve varınca çeviririm.
Sayı Alanına Takvim İle İnteger Değer Girmek
Metin0'a çift tıklarsanız yaş seçimi için form açılır.
Yaş Seçimi.rar
(Dosya Boyutu: 26,88 KB | İndirme Sayısı: 5)
Ç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.
![[Resim: do.php?img=10153]](https://resim.accesstr.net/do.php?img=10153)
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
Rica ederim üstad,verdiğim kod hatasını çözen olursa seviniriz.
Listindex hatası veriyor.
Listindex hatası veriyor.
(02/05/2020, 22:49)feraz yazdı: Rica ederim üstad,verdiğim kod hatasını çözen olursa seviniriz.kodları şöyle yazmak gerekiyormuş
Listindex hatası veriyor.
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
@benbendedeilem
Son Düzenleme: 03/05/2020, 10:41, Düzenleyen: accessman.
Konuyu Okuyanlar: 1 Ziyaretçi
