- 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..:
İnsan, Docmd yazmaktan sivilce çıkartır..
İşte with burada imdada yetişir ve pürüzsüz bir cilt sağlar..
Bu da başka bir örnek..
With den Önce..
With den Sonra..
With esnektir.. İçerisinde karar yapıları da kullanabiliriz.. İf Then Else ile bir örnek..:
Taruz... 2011
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