Vba Da Select Case Yöntemi - Baskı Önizleme

Vba Da Select Case Yöntemi - 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ığı: Vba Da Select Case Yöntemi (/konu-vba-da-select-case-yontemi.html)

Sayfalar: 1 2

Vba Da Select Case Yöntemi - SeferŞANLI - 12/04/2021

formdaki bir butonun tıklanma olayına;

formdaki txtsay metin kutusunun içeriğine göre;
0 ile 17 arasındaysa 1
17 ye eşit ve 24 den küçükse 2
24 eşit ve 34 den büyükse 3 değerini
formdaki txtsonuç metin kutusuna
nasıl kodlarım

RE: Vba Da Select Case Yöntemi - SeferŞANLI - 12/04/2021

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?

RE: Vba Da Select Case Yöntemi - berduş - 12/04/2021

Select Case Me.txtogrsay

    Case Is < 17

    Me.txtgrpsay = 1

    Case Is < 24

    Me.txtgrpsay = 2

    Case Is < 31

    Me.txtgrpsay = 3

End Select

RE: Vba Da Select Case Yöntemi - SeferŞANLI - 12/04/2021

0 ile 17 arası için 1
18 ile 24 arası için 2

24 den büyük için 3 yapmak istiyorum.

or ifadesini nasıl kullanabilirim

RE: Vba Da Select Case Yöntemi - berduş - 12/04/2021

Case yerine if kullanmayı deneyebilirsiniz
Ama yazdığım kod hatalı sonuç mu verdi?
23-31 arası koşulu siz koymuştunuz o nedenle o koşulu ekledim

RE: Vba Da Select Case Yöntemi - SeferŞANLI - 12/04/2021

Tamamdır. Konu çözülmüştür. Teşekkür ederim.