''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' LISTVIEW SINIFI
'-----------------------------------------------------------------------------
' Yunus Emre ÇEVİK, info@internet.com.tr
' <a href="http://www.access-sql.com" target="_blank">http://www.access-sql.com</a> için yazılmıştır.
' Listview sınıfı Access 2003 ile denenmiştir.
'-----------------------------------------------------------------------------
' LISTVIEW SINIF AYARLARI
'-----------------------------------------------------------------------------
' SetListe              : Kayıtların listeneceği listview nesnesi
' SetSayfa              : Sayfaların listeleneceği combobox nesnesi
' SetToplamKayit        : Toplam kayıt sayısının listeleneceği label nesnesi
' SetListeKayitSayisi   : Bir sayfada kaç kaydın listeleneceği combobox nesnesi
' SetListeSirala        : Sıralama alanlarının listeleneceği combobox nesnesi
' SetListeSiralaAsc     : Sıralama çeşitlerinin listeleneceği combobox nesnesi
' LetSayfaBasinaKayit   : Sayfa başına kayıt sayısı
' LetListeBaslik        : Liste başlığı
' LetListeAlanlari      : Listede yer alacak alanlar
' LetGecerliSayfa       : Listview'in sayfa numarasını ayarlar
' ListeOlustur          : Sınıf ayarları yapıldıktan sonra. İlgili fonksiyonları çağırır
' LetListeSiraFiltresi  : Sıralama alanları
' LetGecerliSiralama    : Geçerli sıralama alanı
' LetGecerliAsc         : Geçerli sıralama çeşidi
' LetVeritabaniKaydi    : Ekleme / Silme / Düzenleme yapılacakmı
' LetVeritabaniTablo    : Görüntüleme / Ekleme / Silme / Düzenleme yapılacak tablo
' LetVeritabaniIndex    : Ekleme / Silme / Düzenleme yapılacak kayıt id
'-----------------------------------------------------------------------------
' SetListe, LetListeAlanlari, LetVeritabaniTablo ayarları zorunludur.
' Diğer ayarlar ise opsiyoneldir.
'-----------------------------------------------------------------------------
Option Compare Database
Option Explicit
 
Dim urunListe As ListClass
 
Private Sub Form_Open(Cancel As Integer)
 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' LISTVIEW AYARLARI - BAŞLA
    '------------------------------------------------------------
    ' İlgili bölüm isternirse form tasarımı alanından yapılabilir
    '------------------------------------------------------------
    With Me.UrunListesi
        .RowSourceType = "Value List"
        .ColumnCount = 5
        .ColumnWidths = "0cm;5cm;5cm;3cm;1cm"
        .BoundColumn = 1
    End With
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' LISTVIEW AYARLARI - BİTİR
    '------------------------------------------------------------
 
    ''''''''''''''''''''''''''''''
    ' LISTVIEW SINIFINI OLUŞTUR
    '-----------------------------
    Set urunListe = New ListClass
 
    With urunListe
        ' zorunlu
        Set .SetListe = Me.UrunListesi
        Let .LetListeAlanlari = "id;isim;uretici;kategori;fiyat"
        Let .LetVeritabaniTablo = "urunler"
        ' sayfalama [zorunlu değil]
        Set .SetSayfa = Me.Sayfa 'sayfalama için zorunlu
        Let .LetSayfaBasinaKayit = 10 'sayfalama için zorunlu
        Set .SetListeKayitSayisi = Me.ListeKayitSayisi 'sayfalama için zorunlu
        Set .SetToplamKayit = Me.ToplamKayitLabel 'zorunlu değil
        ' siralama [zorunlu değil]
        Let .LetGecerliSiralama = "isim" 'siralama için zorunlu
        Let .LetGecerliAsc = "ASC" 'siralama için zorunlu
        Set .SetListeSirala = Me.ListeSirala 'siralama için zorunlu değil. formdan siralama için zorunlu.
        Set .SetListeSiralaAsc = Me.ListeAsc 'siralama için zorunlu değil. formdan siralama için zorunlu.
        Let .LetListeSiraFiltresi = "id;isim;uretici;kategori;fiyat" 'siralama için zorunlu değil. formdan siralama için zorunlu.
        ' baslik ekle [zorunlu değil]
        Let .LetListeBaslik = "id;ürün adı;üretici;kategori;fiyat"
        ' veritabani ekle/sil/duzenle [zorunlu değil]
        Let .LetVeritabaniKaydi = True
        Let .LetVeritabaniIndex = "id"
        ' Tüm ayarları uygula [zorunlu]
        .ListeOlustur
    End With
End Sub