IF - THEN - ELSE Karar Yapısı

Taruz · 19-05-2011, 14:32

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..

İf - Then - Else karar yapısı en sık kullandığımız yapılardan biridir.. Oldukça esnek ve kullanışlı olan bu yapıyı hazırlamak kolay ve keyiflidir..

Temel yapı bu şekilde..:

If Koşul Then
Koşul oluştuğunda yapılmasını istediğimiz işlemler..
Else
Koşul oluşmadığında yapılmasını istediğimiz işlemler..
End If

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:

Visual Basic
If Metin1 = "elma" Then
Metin2 = "meyve"
End If

Formu şimdi açıp metin1 e elma yazın ve düğmeyi tıklayın.. Wink

Türkçe meali..:

Eğer metin1 de elma yazıyorsa metin2 ye meyve yaz..

Yapı yukarıdaki gibi tek şart ve tek sonuçtan oluşuyorsa işi End If kullanmadan tek satırla da bitirebiliriz..

Visual Basic
If Metin1 = "elma" Then Metin2 = "meyve"

Şimdi yapıya Else dahil edip kodumuzu geliştirelim..:

Yukarıdaki yapıda metin1 de elma harici bir eğer varsa metin2 de bir şey yazmaz.. Şimdi Else kullanarak istediğimiz şart oluşmadığında metin2 ye değer yazalım..:

Visual Basic
If Metin1 = "elma" Then
Metin2 = "meyve"
Else
Metin2 = "Türü belli değil.."
End If

Şimdi diğer bir aşama..: ElseIf

Visual Basic
If Metin1 = "elma" Then
Metin2 = "meyve"
ElseIf Metin1 = "ıspanak" Then
Metin2 = "sebze"
Else
Metin2 = "Türü belli değil.."
End If

Meali..:

Eğer metin1 de elma yazıyorsa metin2 ye "meyve" yaz. Yok eğer ıspanak yazıyorsa metin2 ye "sebze" yaz.. Bunlardan başka bir şey yazıyorsa "türü belli değil" yaz..

Koşulları arttırabiliriz..:

Formumuza bir metin kutusu (metin3) daha ilave edelim..

Visual Basic
If Metin1 = "elma" And Metin3 = "amasya" Then
Metin2 = "yerli meyve"
Else
Metin2 = "Türü belli değil.."
End If

Eğer metin1 de "elma" ve metin3 de "amasya" yazıyorsa metin2 de "yerli meyve" yaz.. Bu iki şart gerçekleşmiyorsa "Türü belli değil.." yaz.

Bu da Or operatörü ile kullanımı..:

Visual Basic
If Metin1 = "elma" Or Metin3 = "portakal" Then
Metin2 = "meyve"
Else
Metin2 = "Türü belli değil.."
End If

Eğer metin1 de "elma" ya da metin3 de "portakal" yazıyorsa metin2 de "meyve" yaz.. Bu iki şart gerçekleşmiyorsa "Türü belli değil.." yaz.

Bu yapı içerisinde bir çok karşılaştırma operatörünü kullanabiliriz..:

Visual Basic
If Metin1 <>   '..... Eşit değilse
If IsNull(Metin1) '..... Boşsa 
If Not IsNull(Metin1) '..... Boş değilse 
If Metin1 >   '..... Büyükse
If Metin1 >=   '..... Eşit ve Büyükse
If Metin1 <   '..... Küçükse
If Metin1 <=   '..... Eşit ve Küçükse

Yapı, temel olarak bu şekilde.. Daha da detaylandırıp kafa karıştımayalım.. Özümsedikten sonra kendiniz zaten daha da gelişmiş yapıları oluşturacaksınızdır..

Taruz... 2011

assenucler · 19-05-2011, 16:12

Sayın Osman Taruz;

Merhaba..

Her zaman olduğu gibi, bir önemli konuyu tüm yönleriyle en yalın şekilde anlattınız.

Emek ve katkınız için içten teşekkürler..

Selam, sevgi ve saygılar..

Kars36 · 20-05-2011, 08:20

Teşekkürler Taruz Hocam çok yararlı bilgiler.

HAKKI34 · 23-09-2011, 16:25

Çok değerli örneklerden bir tanesini daha okumuş oluyorum..
Yes

BİDER · 09-11-2011, 13:29

Ellerinize sağlık hocam teşekkürler

afil · 02-12-2011, 00:34

Teşekkürler hepsini uygulayarak güzel bilgiler edindim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	SELECT - CASE Karar Yapısı	Taruz	11	19.797	10-04-2012, 12:01 Son Mesaj: d_rago_n
	WITH - END WITH Yapısı	Taruz	8	9.296	10-04-2012, 12:01 Son Mesaj: d_rago_n

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL