ADO ile Çoklu ComboBox Yönetimi

Bu dosya, ADO bağlantısıyla Excel tablosundan veri çeken ve birbirine bağlı çalışan altı ComboBox içeren bir UserForm örneğidir. Bir ComboBox'ta yapılan seçime göre sonraki ComboBox'ın listesi daraltılır; son seçimde kayıt bilgileri metin kutularına getirilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:L10 aralığında kaynak veri tablosu. Başlık satırında ad, ilçesi, mevkii, parsel ve durumu gibi sütunlar yer alır. Örnek kayıtlar Ali, Veli ve Hayrettin adlarına, Saray, Vize ve Çatalca ilçelerine aittir; durum sütununda "ipotekli" değeri görülür.
• UserForm1: ComboBox1'den ComboBox6'ya kadar altı ComboBox ve üç TextBox içerir.
• Module2: Sayfadaki düğmeye bağlı, formu açan kısa bir makro içerir.

Dosyada çalışma sayfası formülü bulunmaz; işlemler makro koduyla yürütülür.

Makrolar​

• Düğme7_Tıklat: UserForm1 formunu açar. Sayfa1 üzerindeki düğmeye tıklanınca çalışır.
• UserForm_Initialize: Form açılırken ADO bağlantısı kurulur. Bağlantı, Microsoft Jet OLEDB 4.0 sağlayıcısı ile çalışma kitabının kendisine yapılır. İl sütunundaki benzersiz değerler ComboBox1'e yüklenir. Veri dışarıya gönderilmez, dosya silme gibi bir işlem yapılmaz.
• ComboBox1_Change ile ComboBox5_Change: Her seçimde sonraki ComboBox'lar ve metin kutuları temizlenir. Kayıt kümesi o ana kadarki seçimlere göre filtrelenir. Sıradaki ComboBox sırasıyla ilçe, köy/mahalle, mevkii, ada ve parsel değerleriyle doldurulur.
• ComboBox6_Change: Altı seçime uyan kayıt filtrelenir. TextBox1'e sahibi, TextBox2'ye durumu, TextBox3'e kaydın ilk alanı yazılır.

Kod ve filtreler il, ilçesi, koymah, mevkii, ada, parsel, sahibi ve durumu başlıklarına göre çalıştığından Sayfa1'deki sütun başlıklarının bu adlarla eşleşmesi gerekir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak formu açın.
3. ComboBox1'den il seçin; ilçe listesi otomatik dolar.
4. Sırasıyla ilçe, köy/mahalle, mevkii, ada ve parsel seçimlerini yapın.
5. Parsel seçildiğinde sahibi ve durum bilgileri metin kutularında görüntülenir.
6. Kendi verinizi kullanmak için Sayfa1'deki kayıtları değiştirin; sütun başlıklarını koruyun.

Jet 4.0 sağlayıcısı nedeniyle örnek, 32 bit Office ve .xls biçimli (Excel 8.0) bağlantı ayarıyla çalışacak şekilde hazırlanmıştır.