DAO ile Benzersiz İsim Sıralama

Bu dosya, bir sütundaki tekrarlı kayıtları DAO (Data Access Objects) ve SQL sorgusu ile ayıklayıp benzersiz değerleri alfabetik sırayla bir açılır listede (ComboBox) göstermeyi örnekler. Formül kullanılmaz; işlem tamamen VBA ile yapılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A1:A13 aralığında İLÇE başlıklı tek sütun bulunur. Listede Çatalca, Büyükçekmece, Silivri ve Avcılar değerleri tekrarlı olarak yer alır. Sayfada form penceresini açan bir CommandButton1 düğmesi vardır.
• UserForm1: İçinde ComboBox1 ve formu kapatan bir düğme bulunan kullanıcı formudur.

Makrolar​

• Sheet1 - CommandButton1_Click: Sayfadaki düğmeye tıklandığında UserForm1 formunu açar.
• UserForm1 - UserForm_Initialize: Form açılırken çalışır. Çalışma kitabının kendi dosya yolu üzerinden DAO ile Excel 8.0 veri kaynağı olarak bağlantı kurar. Sheet1 sayfasındaki İLÇE sütunu için select distinct ve order by içeren bir SQL sorgusu çalıştırır. Kayıt sayısı alındıktan sonra sonuçlar ComboBox1 içine aktarılır. Son olarak kayıt kümesi ve veritabanı bağlantısı kapatılır.
• UserForm1 - CommandButton1_Click: Formu kapatır.

Kodda dosya silme veya dış bağlantı işlemi yoktur; bağlantı yalnızca açık olan çalışma kitabının kendisine kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasındaki düğmeye tıklayarak formu açın.
3. ComboBox1 listesini açın; ilçe adları tekrarsız ve alfabetik sırada görüntülenir.
4. Formu kapatma düğmesiyle kapatın.
5. Kendi verinizi kullanmak için A sütunundaki kayıtları değiştirin. Başlık İLÇE olarak kaldığı ve sayfa adı Sheet1 olduğu sürece sorgu yeni verilerle de çalışır.

Kod DAO kitaplığını kullandığından VBA düzenleyicisinde Araçlar > Başvurular bölümünde Microsoft DAO kitaplığının işaretli olması gerekir. Sorgu çalışma kitabını dosya olarak açtığı için dosyanın önce kaydedilmiş olması gerekir.