saya ada masalah dengan pencetakan data menggunakan crystal report, sebagai
ilustrasi saya memiliki suatu tabel sementara dimana datanya (record) setiap
saat berubah sesuai dengan pilihan criteria pemilahan data menggunakan SQL.
nah di saat saya mencetak data yang dipilah tersebut selalu saja data yang
ditampilkan pada crystal report adalah data yang terdahulu tidak terkini, harus
2x click report baru data yang terkini ditampilkan. mohon petunjuk dari
rekan-rekan untuk menangani masalah ini
berikut saya tampilkan listing code program pada bagian form :
Private Sub Command1_Click()
Dim bulan As Byte
Select Case Trim(Combo1.Text)
Case "januari"
bulan = 1
Case "juli"
bulan = 7
Case "agustus"
bulan = 8
Case "september"
bulan = 9
End Select
Call kosongkan
DJurnal.Recordset.MoveFirst
Do While Not DJurnal.Recordset.EOF = True
If Month(DJurnal.Recordset!tanggal) = bulan And
Year(DJurnal.Recordset!tanggal) = Val(Text1.Text) Then
With DSem.Recordset
.AddNew
!periode = Trim(Me.Combo1.Text) + "-" + Text1.Text
!kode_nama_perk = Trim(Me.DataCombo1.Text) + " (" +
Trim(Label5.Caption) + ")"
!uraian = DJurnal.Recordset!uraian
!nomorku = DJurnal.Recordset!norek
!tanggal = DJurnal.Recordset!tanggal
!debet = DJurnal.Recordset!debet
!kredit = DJurnal.Recordset!kredit
.Update
End With
End If
DJurnal.Recordset.MoveNext
Loop
DSem.Refresh
With CrystalReport1
.ReportSource = crptReport
.RetrieveDataFiles
.ReportFileName = App.Path & "\bukub.rpt"
.Destination = crptToWindow
.WindowState = crptMaximized
.Action = 1
End With
End Sub
Private Sub pilahdata()
DJurnal.RecordSource = "select * from jurnal where norek='" &
Trim(Label5.Caption) & "' order by tanggal"
DJurnal.Refresh
Me.DBGrid1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub DataCombo1_Change()
AdodcPerk.Recordset.MoveFirst
AdodcPerk.Recordset.Find "nama='" & Trim(DataCombo1.Text) & "'"
If Not AdodcPerk.Recordset.EOF = True Then
Label5.Caption = AdodcPerk.Recordset!nomor
Call pilahdata
End If
End Sub
Private Sub Form_Load()
DSem.Caption = "DSem"
DSem.DatabaseName = App.Path & "\workshop.mdb"
DSem.RecordSource = "sem"
DJurnal.Caption = "DJurnal"
DJurnal.DatabaseName = App.Path & "\workshop.mdb"
DJurnal.RecordSource = ""
With Combo1
.AddItem "januari"
.AddItem "juli"
.AddItem "agustus"
.AddItem "september"
End With
Text1.Text = Year(Date)
End Sub
[Non-text portions of this message have been removed]
