Crystal Report

[RockOi 0]

Assalamualaikum

mintak tolong betulkan sikit..aku ada bt 2 cara..satu klik dari mdi form,lagi satu klik dari option button..

macam mana nak link report dari mdi form ni..betulkan aku nye code nih..betul ke code nye ni..

apa silapnya..

run-time error '424';

object required

Private Sub paid_Click()

CRY1.ReportFileName = App.Path & "\Fines Charge.rpt"

CRY1.RetrieveSQLQuery

CRY1.PrintReport

End Sub

Dari form report aku ni dah ok..

Private Sub viewreport_Click()

ElseIf Option7.Value = True Then

CRY1.ReportFileName = App.Path & "\Fines Charge.rpt"

CRY1.RetrieveSQLQuery

CRY1.PrintReport

End Sub

terima kasih..

[nagakeciks 0]

W'salam

Sat, nak tanya..dari form mdi, ko panggil form lain utk view report?..kalo camtuh, aku rasa ko , kene load dulu nama form utk view tuh..pastulak

Private Sub paid_Click()

CRY1.ReportFileName = App.Path & "\Fines Charge.rpt"

CRY1.RetrieveSQLQuery

CRY1.PrintReport

End Sub

nih kat mdi tuh ke?..maybe ko kene taruk namaForm.CRY1.ReportFileName = ......

Cube dulu k..

[RockOi 0]

thank nagakeciks..

mm..aku dah letak namaForm.CRY1.ReportFileName = ...... tu..

tp keluar run-time error '424':

object required

apa yg aku bt kat mdi tu dia terus paparkan crystal report..

mmm korang rasa code tu dah betul ke?

[nagakeciks 0]

Mmm..ko nye code lain skit dari aku..uhukss..aku cadangkan ko, bertanya pada en DevGuy..dier power bab crystal report nih..

[RockOi 0]

mmm..ello en DevGuy..saya budak baru belajar, kalau salah tolong tunjukkan hhi..

erm nagakeciks ada code lain bolehlah bagi kat aku hihi..aku dah tak pakai dah cara tu, aku cuma pki satu cara je iaitu load form utk view report tuh..tapi aku nak tau gak cara dari mdi terus paparkan ke report..

terima kasih..

[RockOi 0]

ello anybody home??

[DevGuy 0]

salam..

anyway guna cr version brapa.

lepas tu guna vb version 6 ker atau .net

[RockOi 0]

seagate crystal report 8.0 & vb6.. .net masih x blaja lg nih..

[nagakeciks 0]

Aku buat camnih

Private Sub Form_Load()

strReport = "All.rpt"

Call OpenReport

End Sub

Private Sub OpenReport()

Dim ParamStart As Integer

Set Crystal = New CRAXDRT.Application

If (strReport <> "") Or (Right(strReport, 4) <> ".rpt") Then

Set myReport = Crystal.OpenReport(App.Path & "\Report\" & strReport)

myReport.EnableParameterPrompting = False

CRViewer.ReportSource = myReport

CRViewer.ViewReport

End If

Set Crystal = Nothing

Set myReport = Nothing

End Sub

Bro DevGuy , pekabo ?

[DevGuy 0]

salam.. heh nagakecik. ko sihat ker. mat diah kerja kat situ lagi ker..

roock oi. dah settle lom.

anywya sekarang Cr dah version 10. features di alagi power then before.

kat imbi ada jual around 5 ringgit jer. cool suport cross platform. leh ker linux, java, sun ,mac and naything la. leh apply ker web form. and kalau nak powerful lagi develop using .net..

rock oi. anywya kalau nak mintak tolong just kasi sample tu kat email and then nanti saya tgk.

kalau cep[at lagi bagus..

tapi guna crystal report version 9 la ..leh ker..

kalau nak crytal report version 9 atau 10 cakap.laa

leh burnkan kan lepas tu

oklahh

[RockOi 0]

mmm...thank DevGuy siap nk burn kan tu hihi..nak yang rm5 bleh tapi kat umah bleh lah..kalo kat kilang tak kene saman ker? hihi.. nak kene pakai version 9 atau 10 gak ker? saya dah pakai dah..download kat internet tapi tgk cam sama je..apa bezanya ngan 8.5? lebih kurang jek.. sistem saya dah settle dah utk library system kat perpustakaan kilang flextronics nih..dah pki cara lain..cuma panggil form lain utk view report jer.. sbb first time bt sistem sesorang nih..tapi ader satu masalah ni nak refresh report lak yang x leh ni..dah unsave with data pun masih x leh gak..nape ek? nak refreshkan bleh tapi tak kene masuk Cr balik..lecehlah..

mmm..thank nagakeciks.. nanti aku test cuba coding yg ko bagi tuh..

[nagakeciks 0]

aaa.abg DevGuy, saye sihat aje...saye ngan abg mad dah x keje situ dah..saye nih pun, dah keje balik kat kajang..mm..errr.CR 10 dah kluor ek?..siut tull..hehe..baru je beli CR 9..mmmm