Skip to main content

AccessTr.neT


Birden çok değere göre koşul test etme

Birden çok değere göre koşul test etme

Çözüldü #7
Access yardımdan alıntı:

Dim sayi
sayi = 8 ' Initialize variable.
Select Case sayi' Evaluate Number.
Case 1 To 5 ' Number between 1 and 5, inclusive.
Debug.Print "Between 1 and 5"
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8 ' Number between 6 and 8.
Debug.Print "Between 6 and 8"
Case 9 To 10 ' Number is 9 or 10.
Debug.Print "Greater than 8"
Case Else ' Other values.
Debug.Print "Not between 1 and 10"
End Select

Örnekten de anlayacağınız gibi çoklu değer atama, değer aralığı atama vb. özellikleri mevcut.

NOT : İnsanı deli edecek kadar zor olan tüm konu başlığı ve cevap başlıklarını tek tek düzeltmek zorunda kaldım.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #8
Herkese teşekkürler, ama cevap alamadım belki tesadüfen tekrar görürsem ben yazarım ne olduğunu. Forum başlığı aslında tam sorduğumu anlatır olmuş. Img-grin

özetlersek:
if ile then arasına değişkenin çok sayıdaki olasılığı için kısa yazımı vardı ama "in" li olmak zorunda değil belki başka bir koddur. Yada şöyle sorayım:
if a=1 or a=5 or a=6 or a=12 then... daha kısa nasıl yazılabilir?
Cevapla
Çözüldü #9
İşte yukarıdaki select case bunu yapıyor.
Kod:
SELECT CASE a
    Case 1,5,6,12
    msgbox "a değişkeni 1,5,6 veya 12 rakamlarından birisidir

    Case 300 to 500
    msgbox "a değişkeni 300 ile 500 arasında bir sayıdır"

    case else
    msgbox "a değişkeni başka bir değerdir"

END SELECT

İstediğiniz şey bu ama siz bilmiyorsunuz Img-grin
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #10
(17/12/2009, 14:59)alpeki99 yazdı: İşte yukarıdaki select case bunu yapıyor.

SELECT CASE a
Case 1,5,6,12
msgbox "a değişkeni 1,5,6 veya 12 rakamlarından birisidir

Case 300 to 500
msgbox "a değişkeni 300 ile 500 arasında bir sayıdır"

case else
msgbox "a değişkeni başka bir değerdir"

END SELECT

İstediğiniz şey bu ama siz bilmiyorsunuz Img-grin

temel uluslar arası bir ajanlık sınavına katılmış, herkesi ormana salıp birer aslanla dönmelerini istemişler, her ülkenin ajan adayı aslanla dönmüş veya dönememiş ancak temel ortalarda yok. Bakmışlar saatler sonra uzaktan bir fille geliyor. Gelince bakmışlar filin yüzü gözü mosmor işkence görmüş, sormuşlar temel biz aslan istedik ama bu fil. Temelde demiş bu aslan kendisine sorun inanmazsanız. File bakmışlar filde "vala billa ben aslanım" demiş. Img-grin

Kardeş çok teşşekür ederim ama seninki bu fıkra gibi bir olay Img-grin çok güldürdün ben, Allah da seni güldürsün...
Cevapla
Çözüldü #11
Teşekkür ederim ama demek ki biraz daha uğraşmamız gerekecek Sopa Lol
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #12
Konuda örnek kodlar olduğundan cevaplanmış konular bölümüne taşınmıştır.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task