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:29   #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
Cool WITH - END WITH 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..

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
With DoCmd
    .Maximize
    .OpenForm "form1"
    .GoToRecord , , acNewRec
    .GoToControl "metin1"
    .Requery
    .Close
End With



Bu da başka bir örnek..

With den Önce..

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
"Bulunamayan yerleri bulmak için önce kaybolmak gerekir.''
Kaptan Hector Barbossa
Taruz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2011, 01:05   #2
Yakut
 
Yakut kullanıcısının avatarı
 
Giriş: 02/05/2006
Şehir: Almanya
Mesaj: 226
Excel Vers. ve Dili:
office 2003 Almanca
Varsayılan

sayin taruz ,

tesekkürler

döngülerle de güzel aciklayici yaziniz var mi ?
__________________
Gövdeyi öldürenden degil,Ruhu öldürenden kork.
Yakut Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2011, 01:34   #3
Taruz
Uzman
 
Taruz kullanıcısının avatarı
 
Giriş: 18/04/2007
Şehir: İstanbul
Mesaj: 2,062
Excel Vers. ve Dili:
Access 2010
Varsayılan

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..
__________________
"Bulunamayan yerleri bulmak için önce kaybolmak gerekir.''
Kaptan Hector Barbossa
Taruz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-06-2011, 22:20   #4
abkbek
 
abkbek kullanıcısının avatarı
 
Giriş: 15/02/2007
Mesaj: 323
Excel Vers. ve Dili:
office 2003 prof.tr
Varsayılan

sayın Taruz paylaşımınız için teşekkürler
abkbek Ç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 10:52


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