kalau saya boleh tau kamu memakai databasenya apaan, karena sintaknya mungkin
agak sedikit beda
ini bukan coding sebenarnya, hanya tehniknya saja:
' ini object reportnya '
Set rApplication = CreateObject("crystalruntime.application")
Set rReport = rApplication.OpenReport(App.Path & "\" & gINIPathFileReport &
"\" & gINIFileRptMsPeriode)
With rReport
.Database.Tables(1).SetLogOnInfo "", gDataSource, gNamaUser, gPassUser
.DiscardSavedData
.Database.Verify
End With
' ini object CrViewernya '
With CrRptMsPeriode
.ReportSource = rReport
.DisplayGroupTree = False
.ViewReport
.Zoom 90
End With
____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
[Non-text portions of this message have been removed]
