Senin, 30 Juni 2008

View data berdasarkan filter tanggal awal dan akhir,di vb 6.0 dan Crystal report 9

View data berdasarkan filter tanggal awal dan akhir
menggunakan Crystal Report 9 di visual basic 6.0

======================================================================

Dim Report As New CrystalReport6
Private Sub Command1_Click()'button
Dim param As String
If CDate(dtpawal.Value) > CDate(DTPakhir.Value) Or CDate(DTPakhir.Value) < CDate(dtpawal.Value) Then
MsgBox "tgl Awal tidak boleh lebih dari tgl akhir atau" + vbCrLf + "tgl akhir tidak boleh kurang dari tgl awal", 0, "Info"
Else
Report.DiscardSavedData

param = "{command.tglpo} >= #" & Format(dtpawal.Value, "yyyy-mm-dd") & "# and {command.tglpo} <= #" & Format(DTPakhir.Value, "yyyy-mm-dd") & "# "

With Report
.RecordSelectionFormula = param
End With
CRViewer91.Refresh
End If

==========
keterangan
===========