Crystal Report

[ziela_azian 0]

a'kum sumer!!

kite ade kemusykilan psl CR ni la...kite dah setup kat sistem kite nak "generate", "view" then "print" report

. Report bleh generate, tp bile nak preview die x mo! nape agaknyer ek? ni kite bg coding yg dah kite setkan dlm VB, bantuan anda sumer didahulukan dgn ucapan THANK YOU

Private Sub cmdGenerate_Click()

Dim db As Connection

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbsunjin;Data Source=SJMSERVER"

db.Execute "SP_WORKORDERFB"

db.Close

Adodc1.Refresh

Private Sub cmdView_Click()

Screen.MousePointer = vbHourglass

strSelectionFormula = "{WORKORDERFB.WOID} = " & Val(txtWOID.Text)

CRDpr.ReportFileName = "C:\IMECSrpt\WO.rpt"

CRDpr.ReplaceSelectionFormula (strSelectionFormula)

CRDpr.RetrieveDataFiles

CRDpr.WindowTitle = "Work Order Form"

CRDpr.WindowState = crptMaximized

CRDpr.Destination = crptToWindow

CRDpr.Action = 1

Screen.MousePointer = vbDefault

End Sub

Private Sub cmdPrint_Click()

Screen.MousePointer = vbHourglass

strSelectionFormula = "{WORKORDERFB.WOID} = " & Val(txtWOID.Text)

CRDpr.ReportFileName = "C:\IMECSrpt\WO.rpt"

CRDpr.ReplaceSelectionFormula (strSelectionFormula)

CRDpr.RetrieveDataFiles

CRDpr.Destination = crptToPrinter

CRDpr.PrinterSelect

CRDpr.Action = 1

Screen.MousePointer = vbDefault

End Sub

[nagakeciks 0]

W'salam..aaa.. Ziela, lain macam skit cara awak open report nih..aper error yg kluo maser preview?..ke dier kluo skrin putih je?..

[ziela_azian 0]

ai nage..lame xsembang, kuar error ape ek?

tu la die error "unable to load report"

pastu die debug kat CRDpr.RetriveDataFiles..

kite dah pening nak pk ape code yg t'tinggal...tlg la ek!!

[nagakeciks 0]

eheh..saye pun penin..style awak lain skit..mm...en DevGuy ader?..