Sudah bung , di .rpt nya sudah dibuat , apa yang salah ya ? apa dari project
references nya, karena desperate yang berbau crystal saya centang semua.
my CR Form codes
Option Explicit
Dim strSQL As String
Dim Crystal As CRAXDRT.Application
Dim myReport As CRAXDRT.Report
Dim strreport As String
Dim CRXSubreport As CRAXDRT.Report
Private Sub Form_Load()
strreport = "\report\Report.rpt"
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
Call OpenReport(strreport)
End Sub
Private Sub OpenReport(strreport As String)
Set Crystal = New CRAXDRT.Application
If (strreport <> "") Or (Right(strreport, 4) <> ".rpt") Then
Set myReport = Crystal.OpenReport(App.Path & "\" & strreport)
myReport.DiscardSavedData
opencon App.Path & "\data\db_CPU.mdb"
myReport.EnableParameterPrompting = False
strSQL = "Select * From VGA ORDER BY Date_VGA"
openrec strSQL
'text field sudah ada/dibuat
txtAmount.Text = "aloha"
With myReport
.ReportTitle = "Monitor"
.ParameterFields("tes") = ParameterAttributesEnum(txtAmount.Text)
.Formulas(0) = "Amount=" & Val(txtAmount.Text) & ""
.Action = 1
End With
myReport.Database.SetDataSource rs
CRViewer1.ReportSource = myReport
CRViewer1.ViewReport
Else
MsgBox "Report File not Found or File Error!!", , "Report Error"
Unload Me
End If
Set Crystal = Nothing
Set myReport = Nothing
End Sub
Private Sub Form_Unload(Cancel As Integer)
closerec rs
closecon
End Sub
Many Thanks.
----- Original Message ----
From: "Kudo, Shinichi" <[EMAIL PROTECTED]>
To: [email protected]
Sent: Monday, January 21, 2008 7:29:24 AM
Subject: Re: [Programmer-VB] Passing parameter pada Crystal Rep 8.5
di file reportnya (.rpt) sudah di buat pak
Formula??? dengan nama amount??
----- Original Message -----
From:
Erik
Sebastian
To: Programmer-VB@ yahoogroups. com
Sent: Thursday, January 17, 2008 2:34
PM
Subject: Re: [Programmer- VB] Passing
parameter pada Crystal Rep 8.5
Tidak
bisa bung run time error 438
object doesn't support this property or method
--->
myReport.Formulas( 0) = "Amount=" & Val(txtAmount. Text) &
""
ada solusi lain ? atau link site yang bisa donlod untuk sample
coding CR 8
many thanks.
-----
Original Message ----
From: "Kudo, Shinichi" <shinichijemy@ yahoo.com. sg>
To:
Programmer-VB@ yahoogroups. com
Sent:
Thursday, January 17, 2008 9:48:56 AM
Subject: Re: [Programmer- VB]
Passing parameter pada Crystal Rep 8.5
untuk over parameter saya lebih suka
menggunakan formula (tanpa perintah).
buat formula di Design repotnya misalnya
namanya Amount. lalu di coding VBnya seperti ini :
CR.Formulas( 0) = "Amount=" &
Val(txtAmount. Text) & ""
CR.Action=1
-----
Original Message -----
From:
Erik Sebastian
To:
Programmer-VB@ yahoogroups.
com
Sent:
Thursday, January 17, 2008 8:18 AM
Subject:
[Programmer- VB] Passing parameter pada Crystal Rep 8.5
Dear
Programmer VB
Saya masih newbie disini, minta petunjuk untuk oper
parameter dari vb ke crystal report 8, kalau berkenan minta contoh langsung
dalam bentuk potongan codingnya sahaja, jika ada yang mau buatin single
form
itu akan sangat baik sekali. Many thanks.
Looking for last minute shopping deals? Find them fast with Yahoo! Search.
Never miss a thing. Make Yahoo
your homepage.
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
