Salam VB,
sebaiknya ganti combo dengan DTPicker
private sub cmdPrint_click
cr1.SelectionFormula = "{setoran.tanggal} >= CDate('" & DTPicker1.Value & "')
AND {setoran.tanggal} <= CDate('" & DTPicker2.Value & "')"
cr1.reportfilename= "C:\app\path\ setoranmingguan. rpt" 'sebaiknya
gunakan app.path
cr1.retrivedatafiles
cr1.action=1
end sub
Semoga membantu...
http://www.generasicomputer.com
--- In [email protected], "visio_2008" <ddaro...@...> wrote:
>
> Halo para master saya sedang coba belajar bikin program ,ada beberapa
> kesulitan mungkin teman - teman bisa bantu
> saya buat laporan mingguan dgn Crystal report desainya dgn membuat group di
> tanggal dan nip laporanya adalah laporan setoran. tapi ketika dicoba tidak
> bisa muncul ini kodingnya
> privte sub combo3_click
>
> cr1.selectionformula =" {setoran.tanggal}in date ("& combo2.text") to date ("
> & combo3")"
> cr1.reportfilename=C:\app\path\setoranmingguan.rpt"
> cr1.retrivedatafiles
> cr1.action=1
>
> pada saat dijalankan keluar pesan ERROR Formula dan saya cek di cr1.action=1
> ada pesan cr1.actio ( property set write only )saya sudah coba utak atik
> diselectionformula tapi tidak bisa jg lalu didesain reportnya tetap keluar
> ERROR FORMULA. mungkin para master dan teman - teman bisa bantu saya.
> terima kasih atas pertolongannya.
>
