--- In [email protected], "Layong Lim" <[EMAIL PROTECTED]> wrote:
>
> On 9/20/06, mr_setiawan <[EMAIL PROTECTED]> wrote:
> >
> > aku lagi coba bikin Crystal Repport dan punya formula sbb
> > CrystalReport1.ReportFileName = App.Path
& "\rpt_kwitansi_BARU5.rpt"
> > If Check1.Value = 0 Then
> > CrystalReport1.SelectionFormula = "{kwitansi.tgl_input} = " &
> > Date & DTP_awal.Day & "," & DTP_awal.Month & "," & DTP_awal.Year
& ")"
> > DTP_akhir.Month & "," & DTP_akhir.Day & ")"
> > knp code-nya ada tanda kurung tutup, tapi kurung bukanya ga ada
ya?
> >
>
> knp juga "Date & Date_awal.Day", coba cek dulu codingnya d. thx.
>
>
>
> CrystalReport1.SelectionFormula + " And {kwitansi.tgl_input} <=
Date
> > (" & DTP_akhir.Year & "," & DTP_akhir.Month & "," & DTP_akhir.Day
> > & ")"
> > Else
> > CrystalReport1.SelectionFormula = ""
> > End If
> > CrystalReport1.WindowState = crptMaximized
> > CrystalReport1.RetrieveDataFiles
> > CrystalReport1.Action = 1
> >
> > tapi TGL selelu muncul semua, apa formulanya salh ya.. please
bantuin
>
>
> --
> Regards,Layong LimPT. Indomobil Trada NasionalMIS-IT
DepartmentPhone : (021)
> 856-9117Ext : 1305
>
thx for reply
begini ceritanya
aku pake componen DTPicker
makannya ada DTP_awal.day (untuk ngambil day nya) dst..
trus kurung itu mungkin pas aku lagi edit atau kesalahan coopy
CrystalReport1.ReportFileName = App.Path & "\rpt_kwitansi_BARU5.rpt"
If Check1.Value = 0 Then
CrystalReport1.SelectionFormula = "{kwitansi.tgl_input} >= Date
(" & DTP_awal.Year & "," & DTP_awal.Month & "," & DTP_awal.Day & ")"
CrystalReport1.SelectionFormula = CrystalReport1.SelectionFormula
+ " And {kwitansi.tgl_input} <= Date (" & DTP_akhir.Year & "," &
DTP_akhir.Month & "," & DTP_akhir.Day & ")"
Else
CrystalReport1.SelectionFormula = ""
End If
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
