Salam kenal semua,
saya sudah install cr 9 di kompie, tapi kok di project, component dan
di tab designnya tidak ada opsi untuk mengaktifkan cr9 direct langsung
dari vb, mengapa yah, apakah hasil install tidak fully succeess ???
padahal 100 % succeed dan dll apa yang diperlukan utk mengaktifkan
opsi tsb. ???
berikut listing koding crviewer :
Dim crystal As CRAXDRT.Application 'LOADS REPORT FROM FILE
Dim report As CRAXDRT.report 'HOLDS REPORT
If sConn.State = 1 Then
Tutup
End If
Buka
If sRec.State = adStateOpen Then sRec.Close
sComm.CommandText = "Select * from exim_beacukai_trc_bc40 where
no= '" & FlagDataSearch1 & "'"
sComm.ActiveConnection = sConn
sRec.Open sComm, , adOpenDynamic, adLockOptimistic
'rs.Open "SELECT * FROM report", conn, adOpenStatic, adLockReadOnly
'==================
CRViewer.DisplayBorder = False 'MAKES REPORT FILL ENTIRE FORM
CRViewer.DisplayTabs = False 'THIS REPORT DOES NOT DRILL
DOWN, NOT NEEDED
CRViewer.EnableDrillDown = False 'REPORT DOES NOT SUPPORT
DRILL-DOWN
CRViewer.EnableRefreshButton = False 'ADO RECORDSET WILL NOT
CHANGE, NOT NEEDED
Set crystal = New CRAXDRT.Application 'MANAGES REPORTS
Set report = crystal.OpenReport(App.Path & "report1.rpt") 'OPEN
OUR REPORT
report.DiscardSavedData 'CLEARS REPORT SO WE
WORK FROM RECORDSET
report.Database.SetDataSource rs 'LINK REPORT TO RECORDSET
CRViewer.ReportSource = report 'LINK VIEWER TO REPORT
CRViewer.ViewReport 'SHOW REPORT
Do While CRViewer.IsBusy 'ZOOM METHOD DOES NOT
WORK WHILE
DoEvents 'REPORT IS
LOADING, SO WE MUST PAUSE
Loop 'WHILE
REPORT LOADS.
CRViewer.Zoom 94
'===============
rs.Close 'ALL BELOW HERE IS CLEANUP
Set rs = Nothing
conn.Close
Set conn = Nothing
Set crystal = Nothing
Set report = Nothing
End Sub
pada waktu saya coba running program teryata ada error di bagian :
Set crystal = New CRAXDRT.Application 'MANAGES REPORTS
dan messagenya :
Run-Time error '-2147023898(800703e6)'
Automation error
Invalid access to memory location
mengapa kok ada error tsb yach ?? padahal di kompie lain tdk ???
dan saya punya query spt berikut :
select * from exim_beacukai_trc_bc40,exim_beacukai_trc_bc40_dtl where
exim_beacukai_trc_bc40.no=exim_beacukai_trc_bc40_dtl.no
tapi mengapa disection detail ditampilkan semua record walau berbeda
no tabel headernya, mengapa bisa terjadi padahal dari query tersebut
kan sudah betul tapi mengapa relationshipnya tidak jalan ???
dan saya sudah buat parameter utk report dan sudah jalan tapi kok
report tetap tidak mau ditampilkan berdasarkan parameter tesebut ????
soryy kalu kepanjangan postingnya, tapi ini urgent bgt, please tolong
bantu kasih solusi / saran ASAP, thx's
thx thx thx thx thxthx thxthx thxthx thx thx thx thx thx
