Mas, frangky, sudah bisa mas, ternyata sy salah input nama tbl nya, makasih ya responnya.
----- Original Message ---- From: Frangky id <[EMAIL PROTECTED]> To: [email protected] Sent: Thursday, June 26, 2008 5:30:33 PM Subject: Re: [Programmer-VB] CR REPORT Kesalahan pada pengetikan nama field coba copy code ini: str = "{pembelian. tgl_beli} >= DateTime(" & Year(DTPicker1) & ", " & Month(DTPicker1) & ", " & Day(DTPicker1) & ",00, 00, 00) and {pembelian.tgl_ beli} <= DateTime(" & Year(DTPicker2) & ", " & Month(DTPicker2) & ", " & Day(DTPicker2) & ",00, 00, 00)" 2008/6/26, iwan gunawan <[EMAIL PROTECTED] com>: > Dear, mas franki mas ga bisa, errornya : > " This field name is not known " > Salah dimn yah? > > > ----- Original Message ---- > From: Frangky id <franklin.id@ gmail.com> > To: Programmer-VB@ yahoogroups. com > Sent: Tuesday, June 24, 2008 6:26:22 PM > Subject: Re: [Programmer- VB] CR REPORT > > > Coba seperti ini ya! semoga tidak salah: > Copy code dibawah ini ke programnya Mas. > > str = "{pembelian. tgl_ beli} >= DateTime(" & Year(DTPicker1) & ", " & > Month(DTPicker1) & ", " & Day(DTPicker1) & ",00, 00, 00) and {pembelian.tgl_ > beli} <= DateTime(" & Year(DTPicker2) & ", " & Month(DTPicker2) & ", " & > Day(DTPicker2) & ",00, 00, 00)" > > > 2008/6/24, iwan gunawan <[EMAIL PROTECTED] com>: > Thanks, mas frabgky tanggapannya, sy ada contoh koding yg databasenya pake > sql. > Nah sy pengen database pake acces, dimn koding yg hrs dirubah, thanks. > Ini contohnya : > > Dim Report As New CrystalReport2 > > Private Sub Command1_Click( ) > Dim str As String > str = "{pembelian. tgl_ beli}>#" & Format(DTPicker1. Value, "MM-DD-YYYY" ) & > "# and {pembelian.tgl_ beli}< #" & Format(DTPicker2. Value, "MM-DD-YYYY" ) & > "#" > Report.RecordSelect ionFormula = str > Report.ReadRecords > CRViewer1.Refresh > End Sub > > Private Sub Form_Load() > Screen.MousePointer = vbHourglass > CRViewer1.ReportSou rce = Report > CRViewer1.ViewRepor t > Screen.MousePointer = vbDefault > > End Sub > > Private Sub Form_Resize( ) > CRViewer1.Top = 1200 > CRViewer1.Left = 0 > CRViewer1.Height = ScaleHeight > CRViewer1.Width = ScaleWidth > > End Sub > > >
