Access SQL   ›   ACCESS KÜTÜPHANESİ   ›   ACCESS BİLGİ DEPOSU   ›   MS ACCESS ile KOD YAZMAK   ›   WITH - END WITH Yapısı

WITH - END WITH Yapısı
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 56 / 56
#1
access-sql-11  19-05-2011, 19:22
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..

With yapısı kısaca, aynı koleksiyona ait komut yapılarını kullanarak hazırladığımız kodları kısaltmamızı sağlar.. Ayrıca bu yapıyı uyguladığımız komutlarımızın daha hızlı çalıştığını göreceksiniz..

Kullanımı basit ve de karışık kod bloklarımızı sadeleştiren bu yapının uygulanışına bir örnek vereyim..:

Diyelim ki şöyle bir kod bloğumuz var..:

Visual Basic
  1. DoCmd.Maximize
  2. DoCmd.OpenForm "form1"
  3. DoCmd.GoToRecord , , acNewRec
  4. DoCmd.GoToControl "metin1"
  5. DoCmd.Requery
  6. DoCmd.Close



İnsan, Docmd yazmaktan sivilce çıkartır.. Wink

İşte with burada imdada yetişir ve pürüzsüz bir cilt sağlar.. Wink

Visual Basic
  1. With DoCmd
  2.     .Maximize
  3.     .OpenForm "form1"
  4.     .GoToRecord , , acNewRec
  5.     .GoToControl "metin1"
  6.     .Requery
  7.     .Close
  8. End With




Bu da başka bir örnek..

With den Önce..

Visual Basic
  1. Metin1.SetFocus
  2. Metin1.Text = "trz 2011"
  3. Metin1.FontBold = True
  4. Metin1.FontSize = 25
  5. Metin1.ForeColor = vbRed
  6. Metin1.Width = 3000
  7. Metin1.Height = 500



With den Sonra..

Visual Basic
  1. With Metin1
  2.     .SetFocus
  3.     .Text = "trz 2011"
  4.     .FontBold = True
  5.     .FontSize = 25
  6.     .ForeColor = vbRed
  7.     .Width = 3000
  8.     .Height = 500
  9. End With



With esnektir.. İçerisinde karar yapıları da kullanabiliriz.. İf Then Else ile bir örnek..:

Visual Basic
  1. With Metin1
  2.     .SetFocus
  3.     .Text = "trz 2011"
  4.     .FontBold = True
  5.         If Metin2 = "büyük" Then
  6.             .FontSize = 25
  7.         Else
  8.             .FontSize = 12
  9.         End If
  10.     .ForeColor = vbRed
  11.     .Width = 3000
  12.     .Height = 500
  13. End With



Taruz... 2011
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
assenucler
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.03.2008
Toplam 154 konu açtı.
Toplam 2.119 yorum yaptı.
Toplam 11 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 4
#2
19-05-2011, 20:06
Katkılarınız için teşekkürler..



  Bul
  Alıntı
Bu mesajı beğenenler:
Kars36
Aktif Üye 40-100

*
Kayıt Tarihi: 12.06.2009
Toplam 26 konu açtı.
Toplam 91 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
20-05-2011, 08:19
Teşekkürler Taruz Hocam çok yararlı bilgiler.



  Bul
  Alıntı
Bu mesajı beğenenler:
dreamt
Access Takımı

*
Kayıt Tarihi: 25.02.2010
Toplam 20 konu açtı.
Toplam 713 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 1
#4
20-05-2011, 13:37
Teşekkürler.
"Gönül deniz, dil kıyıdır. Denizde ne varsa kıyıya o vurur"



  Bul
  Alıntı
Bu mesajı beğenenler:
MirzaKatar
Access Takımı

*
Kayıt Tarihi: 18.10.2010
Toplam 66 konu açtı.
Toplam 1.457 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 6
#5
14-06-2011, 09:52
Teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
akd27
Kıdemli Üye >1000

*
Kayıt Tarihi: 11.03.2008
Toplam 115 konu açtı.
Toplam 1.028 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 0 / 6
#6
15-06-2011, 14:56
Elinize sağlık taruz hocam,
yine güzel bilgiler vermişsiniz...



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-15 IF - THEN - ELSE Karar Yapısı Taruz 17 34.463 11-01-2019, 23:48
Son Mesaj: mehmet3838
access-sql-12 SELECT - CASE Karar Yapısı Taruz 11 19.810 10-04-2012, 12:01
Son Mesaj: d_rago_n

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi