Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Access Örnekleri ve Bilgileri > Access Dersanesi
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Access Dersanesi Bu başlıkta eğitim ve öğretim amaçlı her türlü access dokümanını paylaşabilirsiniz.

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-05-2011, 21:39   #1
Taruz
Uzman
 
Taruz kullanıcısının avatarı
 
Giriş: 18/04/2007
Şehir: İstanbul
Mesaj: 2,062
Excel Vers. ve Dili:
Access 2010
Smile SELECT - CASE Karar Yapısı

GİRİŞ

Access ile hazırladığımız uygulamalarımızda yapmak istediklerimiz arttıkça artık menülerin, sihirbazların, makroların yetersiz kaldığını hissederiz.. Ama biz uygulamalarımızın daha özgün, esnek ve de kullanışlı olmasını istiyoruz.. Bu da demektir ki artık ufak ufak kod yazmayı öğrenmenin zamanı gelmiştir..





Merhaba arkadaşlar..

Select Case karar yapısı bir önceki konuda işlediğimiz İf - Then - Else karar yapısının (özellikle Else kısmının) daha efektif kullanılmasını sağlar.. Koşul sonucunun döndürdüğü değerlere göre yapılacak işlemler çoksa yani değişkenin döndürdüğü sonuç birden fazlasya select case kullanmak kesinlikle daha iyidir..

Temel yapı bu şekilde..:



Select Case Değişken

Case Değişken değeri
Değer eşitlendiğinde yapılmasını istediğimiz işlemler..
Case Değişken değeri
Değer eşitlendiğinde yapılmasını istediğimiz işlemler..
Case Else
Değişken değeri hiç bir koşulla örtüşmediğinde yapılmasını istediğimiz işlemler..

End Select



Formunuzun üzerine iki adet metin kutusu (metin1, metin2) ve bir komut düğmesi (komut1) yerleştirin..

Düğmenin tıklandığında olayına bu yapıyı kullanalım şimdi:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Select Case Metin1
Case "elma"
Metin2 = "meyve"
Case "ıspanak"
Metin2 = "sebze"
End Select


Tercüme edelim..:

metin1 de "elma" yazıyorsa metin2 de "meyve" yazsın "ıspanak" yazıyorsa "sebze" yazsın

Geliştirelim..:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Select Case Metin1
Case "elma"
Metin2 = "meyve"
Case "ıspanak"
Metin2 = "sebze"
Case Else
Metin2 = "türü belli değil"
End Select


metin1 de "elma" yazıyorsa metin2 de "meyve" yazsın "ıspanak" yazıyorsa "sebze" yazsın. Bu değerlerden başka değer yazıyorsa "türü belli değil" yazsın.

Şartları geliştirelim..:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Select Case Metin1
Case "elma", "portakal" 'metin1, bu iki değerden biri ise
Metin2 = "meyve" 'meyve yazsın
Case "ıspanak", "lahana" 'metin1, bu iki değerden biri ise
Metin2 = "sebze" 'sebze yazsın
Case Else 'hiçbiri ise 
Metin2 = "türü belli değil" 'bunu yazsın
End Select



Select Case yapısını çok değişik şekillerde fonksiyonlar ve operatörler yardımı ile de kullanabiliriz.. Bu tamamen sizin ne istediğinize bağlı..

Örnek vermeden olmaz..:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Select Case Metin1
    Case 1 To 5
    Metin2 = "1 ile 5 arasında sayı girdiniz."
    Case 6 To 10
    Metin2 = "6 ile 10 arasında sayı girdiniz."
    Case 11 To 15
    Metin2 = "11 ile 15 arasında sayı girdiniz."
    Case Is > 15
    Metin2 = "15 den büyük bir sayı girdiniz."
End Select


Bu da farklı bir örnek.. Dikkat edin içinde If - Then - Else de kullandık..:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Select Case Metin1
    Case 1 To 5
        If Metin1 = 3 Then
        Metin2 = "3 rakamını girdiniz.."
        Else
        Metin2 = "1 ile 5 arasında sayı girdiniz."
        End If
    Case 6 To 10
    Metin2 = "6 ile 10 arasında sayı girdiniz."
    Case 11 To 15
    Metin2 = "11 ile 15 arasında sayı girdiniz."
    Case Is > 15
    Metin2 = "15 den büyük bir sayı girdiniz."
End Select


Taruz... 2011
__________________
"Bulunamayan yerleri bulmak için önce kaybolmak gerekir.''
Kaptan Hector Barbossa
Taruz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2011, 12:47   #2
İsmail Küçükşengün
 
İsmail Küçükşengün kullanıcısının avatarı
 
Giriş: 31/08/2005
Şehir: İstanbul
Mesaj: 1,531
Excel Vers. ve Dili:
Excel 2003 - Türkçe
Varsayılan

Taruz hocam,

Bu önemli bilgilendirme için çok teşekkürler.
__________________
İyi Çalışmalar....

Excel XP - Türkçe
İsmail Küçükşengün Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:07


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden