Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic

Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic

Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic
Kamis, 20 Juni 2013

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 :

Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic
Terdapat 3 jenis pencetakan, yaitu pertanggal, perperiode dan keseluruhan laporan transaksi.
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


kalau kamu merasa terbantu dengan artikel ini, yuk traktir penulis, agar lebih semangat sharing berbagai hal di blog ini ^_^
via link berikut ya :
Trakteer Saya
Kamu juga bisa request custom aplikasi dan otomasi data dengan memberikan rinci fitur apa yang kamu inginkan dengan mulai harga Rp. 50.000,- segera klik link ini ya :
Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic
4/ 5
Oleh
Open Comments
Close comment

10 komentar

  1. terimakasih atas informasinya.. terimaksih sudah memberikan file downloadnya :)

    lanjutkan kan !!!!!! (y)

    BalasHapus
  2. ijin download artkel'a ya Gan. Syukron :)

    BalasHapus
  3. Option "Keseluruhan" = No Prob
    Option "Per Tanggal" = No Prob
    Option "Per Periode" = Label "tanggal" No Prob, tapi pada saat ditambah text untuk munculin detail, datanya ga kebaca Gan

    BalasHapus
    Balasan
    1. itu bukan label gan, tapi dtpicker karena pakai .value ^_^

      Hapus
  4. Iya Gan, maksudnya label tapi ngambil isi dari dtpicker.
    Untuk isi data ane tambahin text, dan hasilnya cuco banget kalau pilihan "Keseluruhan" atw "Per tanggal", tapi waktu ane pilih "Per periode" datanya ga muncul.

    BalasHapus
    Balasan
    1. hmmm udah dicek untuk name sama format tanggalnya?

      Hapus
    2. Hehe udah Gan, "Per periode" tapi kalau DP1 dan DP2 sama, gada masalah Gan.
      Monggo cek inbox gan. Nuhun

      Hapus
  5. maksutnya Controls("awal").Visible / Controls("akhir").Visible ini apa ya gan ?
    awal itu apa ya ?
    Terima Kasih

    BalasHapus

yuu.. kita budayakan berkomentar.. bersilaturahmi itu memperpanjang umur... ^_^