WITH - END WITH Yapısı

Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
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..:


Kod:
DoCmd.Maximize
DoCmd.OpenForm "form1"
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "metin1"
DoCmd.Requery
DoCmd.Close

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

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


Kod:
With DoCmd
    .Maximize
    .OpenForm "form1"
    .GoToRecord , , acNewRec
    .GoToControl "metin1"
    .Requery
    .Close
End With



Bu da başka bir örnek..

With den Önce..

Kod:
Metin1.SetFocus
Metin1.Text = "trz 2011"
Metin1.FontBold = True
Metin1.FontSize = 25
Metin1.ForeColor = vbRed
Metin1.Width = 3000
Metin1.Height = 500


With den Sonra..


Kod:
With Metin1
    .SetFocus
    .Text = "trz 2011"
    .FontBold = True
    .FontSize = 25
    .ForeColor = vbRed
    .Width = 3000
    .Height = 500
End With


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


Kod:
With Metin1
    .SetFocus
    .Text = "trz 2011"
    .FontBold = True
        If Metin2 = "büyük" Then
            .FontSize = 25
        Else
            .FontSize = 12
        End If
    .ForeColor = vbRed
    .Width = 3000
    .Height = 500
End With


Taruz... 2011
 
Katılım
2 Mayıs 2006
Mesajlar
226
Excel Vers. ve Dili
office 2003
Almanca
sayin taruz ,

tesekkürler

döngülerle de güzel aciklayici yaziniz var mi ?
 
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Merhaba sayın Yakut..

Access ile kod yazma konusunu yeni işlemeye başladım.. Döngülerle ilgili yazılarım da olacaktır.. Yine bu sayfalarda paylaşacağım..
 
Katılım
16 Şubat 2007
Mesajlar
323
Excel Vers. ve Dili
office 2003 prof.tr
sayın Taruz paylaşımınız için teşekkürler
 
Üst