1 - aylıkk.accdb accesse gün/hafta/ay/yıl sorguları eklendi isimleri önemli değiştirilmemeli
2 - Excel dosyasına TmpRapor adlı sayfa eklendi
3 - Excel dosyasına MdlRapor adlı Modül eklendi
modüldeki fonksiyon kodu:
Function RaporKaynak(xSorgu As String, xKriter As String)
connection_open
sql1 = "select * from TumTbl" & xSorgu & " where TrhKrt='" & xKriter & "';"
rsGrf.Open sql1, conn, adOpenKeyset, adLockPessimistic
Worksheets("TmpRapor").Cells.Clear
Worksheets("TmpRapor").Range("A1").CopyFromRecordset rsGrf
rsGrf.Close
conn.Close
End Function
veri getieme butonlara ilgili kodlar eklendiexcel/pdf yapma kodları yok
ListView deki başlıklar tablodan geldiği için biraz uyumsuz ama o kısım başlık adlarından replace ile toplam yazan kısım çıkarılarak halledilebilir