(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