Passing parameter from VB to CR

[joseph.goh]

Below is my code
My problem is that give me an error about getitembyname saying that "method or data member not found"

any ideas???

Dim strsql As String
Set rsconn = New ADODB.Recordset
OpenDB
    strsql = "SELECT * FROM " & _
    "MASTER_MO WHERE MASTER_MO.SHIP_DATE=#" & frmShipping.cmbShipDate.Text & "# " & _
    "AND MASTER_MO.PO='" & frmShipping.txtPoNo.Text & "'"
    Debug.Print strsql
    rsconn.Open strsql, con, adOpenDynamic, adLockOptimistic, adCmdText

    Set CrAppl = New CRAXDRT.Application
    Set CrRep = CrAppl.OpenReport(App.Path & "\RptShipping1.rpt")
    CrRep.FormulaFields.GetItemByName("Container").Text = "'" & Trim(frmShipping.txtContainer.Text) & "'"
    CrRep.DiscardSavedData
    CrRep.Database.Tables(1).SetDataSource rsconn, 3
    CRViewer1.ReportSource = CrRep
    CRViewer1.EnableSearchExpertButton = True
    CRViewer1.DisplayGroupTree = False
    CRViewer1.EnableCloseButton = True
    CRViewer1.EnableZoomControl = True
    CRViewer1.DisplayToolbar = True
    
    CRViewer1.ViewReport
    Do While CRViewer1.IsBusy
        DoEvents
    Loop
     
    CRViewer1.Zoom 94
Set rsconn = Nothing
CloseDB

[binilmb]

if u are getting error in the following place

CrRep.FormulaFields.GetItemByName("Container").Text = "'" & Trim(frmShipping.txtContainer.Text) & "'"

it may be the problem with the object Container. it may not have the porperty "Text".

[joseph.goh]

if u are getting error in the following place

CrRep.FormulaFields.GetItemByName("Container").Text = "'" & Trim(frmShipping.txtContainer.Text) & "'"

it may be the problem with the object Container. it may not have the porperty "Text".

I have remove the text property but it still gave the same error and highlight in GetItemByName.

Is it needed to activate some reference or else???

[Hack]

Moved to reporting section

[King_George]

I have remove the text property but it still gave the same error and highlight in GetItemByName.

Is it needed to activate some reference or else???

Is the parameter in CR a string? If it isn't, make it a string.
Is the parameter named spelled correctly including case?
Try this:

.GetItemByName("Container").AddCurrentValue Trim(frmShipping.txtContainer.Text)

[joseph.goh]

Is the parameter in CR a string? If it isn't, make it a string.
Is the parameter named spelled correctly including case?
Try this:

.GetItemByName("Container").AddCurrentValue Trim(frmShipping.txtContainer.Text)

The value is string and the parameter name is correct

i have change to what u have suggest but when i try to run, it still gave me the error "method or data member not found" and GetItemByName is highlighted

I think vb cannot get that method, because after i type formulafields. it just prompt out add, count, delete but there is nothing about GetItemByName.

Any ideas ??

[King_George]

The value is string and the parameter name is correct

i have change to what u have suggest but when i try to run, it still gave me the error "method or data member not found" and GetItemByName is highlighted

I think vb cannot get that method, because after i type formulafields. it just prompt out add, count, delete but there is nothing about GetItemByName.

Any ideas ??

Sorry I misread the post. You cannot assign formula field values from VB. You can however assign values to parameter fields.
Report.ParameterFields.GetItemByName("parameter_name").AddCurrentValue value_to_add

In your report, just use that parameter in the formula assuming that this is what you want the value for..