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]>:
> 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
>
>
>
