ADO ile Dava Takip Dosyası

Bu dosya, KAYIT sayfasında tutulan dava bilgilerini ADO yöntemiyle bir UserForm üzerinden seçtiğiniz ölçütlere göre DURUŞMALAR sayfasına listelemeyi gösterir. ADO ile veri çekmeyi öğrenmek isteyenler için örnek bir çalışmadır.

Dosyadaki kişi bilgileri özel bir yöntemle üretilmiş, gerçek olmayan kişilere aittir; gerçek veri değildir.

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

Dosyanın içeriği​

• KAYIT: Veri tabanı görevi gören sayfadır. Dava takip no, esas no, karar no, baba adı, doğum tarihi, ilçesi, suç zaptının tarihi, suçun nevi, bölme no, mevkii, emvalin miktarı gibi sütunlar ve sanığa ait satırlar yer alır.
• DURUŞMALAR: Sorgu sonucunun yazıldığı sayfadır. A:N aralığında duruşma tarihi, dava takip no, mahkemesi, esas no, karar no, sanığın adı soyadı, köyü, suçun nevi, toplam alacak, ödenen, kalan, açıklama ve infaz bilgileri listelenir.

Kullanılan formüller​

• SUM: Örneğin BW2 hücresinde farklı sütunlardaki tutarları toplayarak emval miktarını hesaplar.
• IF ve ISERROR: BX4 gibi hücrelerde AR4-BW4 farkını alır, hata oluşursa hücreyi boş bırakır.
• SMALL ve LARGE: BZ2 ve BZ3 hücrelerinde BY sütunundaki en küçük ve en büyük değeri bulur.

Makrolar​

• ED (Module1): UserForm1 formunu açar.
• UserForm_Initialize: Form açılırken ComboBox1 listesine mahkeme türlerini (TÜMÜ, SULH CEZA, SULH HUKUK, KADASTRO, ASLİYE HUKUK, ASLİYE CEZA), ComboBox2 listesine infaz durumlarını (TÜMÜ, DERDEST, KESİNLEŞMİŞTİR, DEVAM EDEN, TEMYİZ) ekler.
• CommandButton1_Click: İki seçimden biri boşsa işlem yapmaz. Aksi halde DURUŞMALAR sayfasındaki A2:N5000 aralığını temizler, Jet OLEDB sağlayıcısıyla dosyanın kendisine bağlanır ve KAYIT sayfasından seçilen mahkeme ve infaz durumuna göre sorgu çalıştırır. Sonucu A2 hücresinden itibaren yazar ve dolu satırlara kenarlık ekler.

Kodda dosya silme ya da dışarıya bağlantı yoktur; bağlantı yalnızca çalışma kitabının kendisine kurulur. Jet 4.0 sağlayıcısı nedeniyle kod 32 bit Office ortamında sorunsuz çalışır, 64 bit sürümlerde sağlayıcı hatası alabilirsiniz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile ED makrosunu çalıştırın, UserForm açılır.
3. Mahkeme ve infaz durumu listelerinden seçim yapın. Tümünü görmek için TÜMÜ seçin.
4. Listele düğmesine tıklayın.
5. DURUŞMALAR sayfasında sonuçları inceleyin.