Laporan harian dibutuhkan biasanya untuk melihat Transaksi pada Hari atau tanggal tertentu baik itu banyaknya Transaksi, Jumlah akumulasi barang yang terjual/terbeli dll.
Disini akan kami bahas cara pemanggilan pada Crystal Report yang sudah anda buat tersebut.
Syntaq dasarnya adalah :
CrystalReport1.SelectionFormula = "totext({NamaTabel.NamaField})='" & CDate(Combo1) & "' "
Pada syntaq diatas kita asumsikan kita akan memanggil data pada database dengan Nama Tabel dan di Field tersebut. dan pemilihan tanggal kita menggunakan Combo yaitu pada Combo1
Dan berikut adalah contoh pemanggilan dari beberapa Program yang telah dibuat Oleh PintarVB
Private Sub Combo1_Click()
CrystalReport1.SelectionFormula = "totext({Pembelian.TanggalBeli})='" & CDate(Combo1) & "' "
CrystalReport1.ReportFileName = App.Path & "\LaporanHarianBeli.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub
Semoga bisa membantu Belajar VB 6.0 anda :)
udah saya coba sintaks diatas, tpi kok error mas... yang muncul error 20515 dengan keterangan...
ReplyDeletethis field name not known
Dear IBAA,
ReplyDeleteTerima kasih telah berkomentar di Pintar VB.
Jika masih error mohon informasinya :
1. Apakah File Crystal Reportnya sudah dibuat?
2. Apakah sudah menambahkan component CrystalReport pada form?
3. Apakah nama tabelnya sudah benar?
Mohon dijawab dulu ya :)
mas kl mau konveresi angka ke huruf pada data report gmn?? misal grand total 1000. trus disebelahnya konversi ke huruf (seribu) bgtu gmn ya?
ReplyDeleteDear Salva,
ReplyDeleteTerima kasih telah berkunjung dan berkomentar di Blog Pintar VB.
Terkait memunculkan angka berbilang pada laporan, ,Logika-nya adalah memunculkan terlebih dahulu pada from transaksi yang kamu buat, kemudian ketika klik cetak atau simpan, "Seribu" tersebut tersimpan didatabase dan dipanggil di crystal report.
Untuk coding Angka berbilang pada form kami mempunyai codingnya.
Jika ingin mendapatkannya silahkan menghubungi kami ke Email atau Pin BB kami :)
salam
Pintar VB
mas, saya udah kirim email tp belum ada balasan boleh saya minta pin bb nya untuk keterangan lebih lanjutnya soalnya saya sudah coba tapi masih error
ReplyDeleteterima kasih
Dear Toko Sakura,
ReplyDeleteAlamat email kamu apa ya? maaf karena banyaknya yang berkomentar jadi Miss deh.
Silahkan lihat Kontak kami, sudah ada Pin BB nya koq. Invite saja :)
salam
Pintar VB
pintarVB, sintaks diatas sdh kucoba tp error trus gimana klo kita menggunakan dtpicker bukan combo, tq pintarvb
ReplyDeletepak.. kalok source code pakek vb 2008 gimana ya pak?
ReplyDeletemohon dijawab ya pak