ADO ile Çoklu Bağlantılı ComboBox Örneği

Bu dosya, bir UserForm üzerindeki 6 ComboBox'un birbirine bağlı çalışmasını gösterir. Veriler Sayfa1 üzerinden ADO bağlantısıyla okunur; her seçim bir sonraki kutunun listesini Filter özelliğiyle daraltır. Son kutu seçildiğinde kayda ait bilgiler metin kutularında görüntülenir.

Dosyanın içeriği​

• Sayfa1: A1:L10 aralığında kayıt tablosu bulunur. Başlıklar ili, ilçesi, koymah, mevkii, ada, parsel, sahibi ve durumu alanlarını kapsar. Örnek kayıtlarda il olarak ahmet, mehmet ve osman, ilçe olarak ceyhan, karacabey ve çardak, durum olarak ipotekli gibi değerler yer alır.
• UserForm1: 6 ComboBox ve 3 TextBox içeren sorgulama formudur.

Dosyada çalışma sayfası formülü yoktur; tüm işlem makro koduyla yürütülür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur; bağlantı yalnızca açık olan çalışma kitabına kurulur.

• UserForm_Initialize: Microsoft.Jet.OLEDB.4.0 sağlayıcısıyla çalışma kitabına ADO bağlantısı açar. Sayfa1'deki benzersiz ili değerlerini ComboBox1'e yükler ve tüm sayfayı bir Recordset olarak hazırlar.
• ComboBox1_Change - ComboBox5_Change: Seçim yapıldığında sonraki ComboBox'ları ve metin kutularını temizler, Recordset'e önceki seçimleri içeren bir filtre uygular ve sonraki kutuyu doldurur. Sırayla ilçesi, koymah, mevkii, ada ve parsel listelenir.
• ComboBox6_Change: Altı seçimin tamamına göre filtre uygular; sahibi, durumu ve ilk alan değerini TextBox1, TextBox2 ve TextBox3'e yazar.
• Düğme7_Tıklat (Module2): UserForm1'i açar. Sayfadaki bir düğmeye atanarak kullanılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfadaki düğmeye tıklayarak formu açın.
3. ComboBox1'den ili seçin; ilçe listesi otomatik dolar.
4. Sırayla diğer kutuları seçin; her seçim sonraki listeyi daraltır.
5. ComboBox6'daki parseli seçtiğinizde kayıt bilgileri metin kutularında görüntülenir.
6. Kendi verinizi kullanmak için Sayfa1'deki tabloyu aynı başlık düzeniyle değiştirin.

Sağlayıcı olarak Jet 4.0 kullanıldığından kod, .xlsm dosyalarında 32 bit Office ortamında çalışır.