Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic
Kamis, 20 Juni 2013
Coding
Visual Basic
Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic 6.0
Untuk membuat sebuah laporan transaksi biasanya diperlukan sebuah kompabilitas tanggal. Kali ini penulis akan mencoba membahas bagaimana cara membuat laporan berdasarkan tanggal tertentu.
Dengan asumsi sebagai berikut :
untuk name dari masing masing objek, silahkan sesuaikan dengan listing berikut :
Private Sub proses_Click()
If pilih.Text = "Keseluruhan" Then
DataEnvironment1.rspenjualan.Filter = ""
lappenjualan.Sections("section4").Controls("akhir").Visible = False
lappenjualan.Sections("section4").Controls("awal").Visible = False
lappenjualan.Show
ElseIf pilih.Text = "Per Tanggal" Then
DataEnvironment1.rspenjualan.Filter = "tgl ='" & tawal.Value & "'"
lappenjualan.Sections("section4").Controls("awal").Caption = Format(tawal.Value, "dd MMMM yyyy")
lappenjualan.Sections("section4").Controls("akhir").Visible = False
lappenjualan.Refresh
lappenjualan.Show
ElseIf pilih.Text = "Per Periode" Then
DataEnvironment1.rspenjualan.Filter = "tgl >='" & tawal.Value & "' and tgl<= '" & takhir.Value & "'"
lappenjualan.Sections("section4").Controls("awal").Caption = Format(tawal.Value, "dd MMMM yyyy")
lappenjualan.Sections("section4").Controls("akhir").Caption = Format(takhir.Value, "dd MMMM yyyy")
lappenjualan.Refresh
lappenjualan.Show
Else
MsgBox "silahkan pilih jenis pencetakan", vbCritical, "kesalahan cetak"
End If
End Sub
terimakasih atas informasinya.. terimaksih sudah memberikan file downloadnya :)
BalasHapuslanjutkan kan !!!!!! (y)
ijin download artkel'a ya Gan. Syukron :)
BalasHapusTerima kasih
BalasHapusizin ya
BalasHapusOption "Keseluruhan" = No Prob
BalasHapusOption "Per Tanggal" = No Prob
Option "Per Periode" = Label "tanggal" No Prob, tapi pada saat ditambah text untuk munculin detail, datanya ga kebaca Gan
itu bukan label gan, tapi dtpicker karena pakai .value ^_^
HapusIya Gan, maksudnya label tapi ngambil isi dari dtpicker.
BalasHapusUntuk isi data ane tambahin text, dan hasilnya cuco banget kalau pilihan "Keseluruhan" atw "Per tanggal", tapi waktu ane pilih "Per periode" datanya ga muncul.
hmmm udah dicek untuk name sama format tanggalnya?
HapusHehe udah Gan, "Per periode" tapi kalau DP1 dan DP2 sama, gada masalah Gan.
HapusMonggo cek inbox gan. Nuhun
maksutnya Controls("awal").Visible / Controls("akhir").Visible ini apa ya gan ?
BalasHapusawal itu apa ya ?
Terima Kasih