Dear, mas franki mas ga bisa, errornya : " This field name is not known " Salah dimn yah?
----- Original Message ---- From: Frangky id <[EMAIL PROTECTED]> To: [email protected] 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
