ADO ile ComboBox Listeleme ve Raporlama

Bu dosya, masraf kayıtlarının ADO bağlantısıyla sorgulanıp bir UserForm üzerindeki ComboBox aracılığıyla süzülmesini ve sonucun ayrı bir rapor sayfasına aktarılmasını gösterir. Masraf cinsi listeden seçilir, ilgili kayıtlar tek tıkla raporlanır.

Dosyanın içeriği​

• masraf: Kaynak veri sayfasıdır. TARİH, MASRAF CİNSİ, TUTAR ve AÇIKLAMA bilgilerini içeren masraf kayıtları A1:E23 aralığında yer alır.
• masrafsorgu: Rapor sayfasıdır. Sorgu sonucu A2 hücresinden başlayarak A:D sütunlarına yazılır.
• Dosyada ayrıca sayfalardaki düğmelerle açılan UserForm1 ve UserForm2 formları bulunur.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur; bağlantı yalnızca çalışma kitabının kendisine kurulur.

• UserForm_Initialize: Form açılırken ADO bağlantısını kurar ve masraf sayfasındaki MASRAF CİNSİ değerlerini tekrarsız (distinct) olarak ComboBox1 listesine doldurur.
• baglan: Microsoft Jet OLEDB 4.0 sağlayıcısıyla, dosyanın kendisini veri kaynağı olarak (Excel 8.0, başlık satırı var) açar.
• CommandButton1_Click (UserForm1): ComboBox1'de seçili masraf cinsine göre TARİH, MASRAF CİNSİ, TUTAR ve AÇIKLAMA alanlarını sorgular. masrafsorgu sayfasındaki A2:D65536 aralığını temizler ve sonucu CopyFromRecordset ile A2 hücresinden itibaren yazar. Seçim boşsa işlem yapılmaz.
• Sayfa düğmeleri: Biri UserForm1'i, diğeri UserForm2'yi açar; bir düğme de "anasayfa" adlı sayfaya geçiş yapar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfadaki düğmeyle süzme formunu açın.
3. ComboBox listesinden bir masraf cinsi seçin.
4. Formdaki düğmeye tıklayın; seçilen cinse ait kayıtlar masrafsorgu sayfasında listelenir.
5. Yeni kayıtlar masraf sayfasına, mevcut sütun düzeni korunarak eklenir.

Sorgu Jet 4.0 sağlayıcısını kullandığı için 32 bit Office sürümlerinde çalışır; ayrıca dosyanın .xlsm olarak kaydedilmiş haliyle kullanılması gerekir.