Private Sub Komut69_Click()
Select Case Me.txtogrsay
Case Me.txtogrsay > 0 Or Me.txtogrsay < 17
Me.txtgrpsay = 1
Case Me.txtogrsay > 16 Or Me.txtogrsay < 24
Me.txtgrpsay = 2
Case Me.txtogrsay > 23 Or Me.txtogrsay < 31
Me.txtgrpsay = 3
End Select
End Sub
Bu kod neden çalışmıyor acaba?