Re: [indoprog-vb] refresh data pada crystal report

[arif ipul]

dear Yeffriansjah Salim....

ok...  mungkin ini maksud anda......
1. buka file report anda (tentunya menggunakan program crystal report)
2. pada menu file, hilangkan tanda cetang " Save data with report"
3. simpan dan keluar.....
4. Coba jalankan kembali program anda

moga membantu.... atau mungkin msh ada rekan2 lain yang ingin membantu....


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


----- Original Message ----
From: Yeffriansjah Salim <[EMAIL PROTECTED]>
To: indoprog-vb@yahoogroups.com
Sent: Friday, June 27, 2008 9:05:50 AM
Subject: [indoprog-vb] refresh data pada crystal report


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.RecordSourc e = "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.DatabaseNam e = App.Path & "\workshop.mdb"
DJurnal.RecordSourc e = ""
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]

    


      

[Non-text portions of this message have been removed]