Sebelum menampilkan laporan, sebaiknya databasenya diclose dulu, agar update yang dilakukan selesai diproses dengan baik. misal:
..... DSem.Refresh DSem.Close DSem.Open 'Buka lagi With CrystalReport1 ..... semoga membantu, http://e-riyuniza.blogspot.com --- In [email protected], Yeffriansjah Salim <[EMAIL PROTECTED]> wrote: > > 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] >
