VB & Crystal paramater prompt problem

[rotomd]

I'm trying to pass variable from visual basic over to a crystal report parameter and that works fine, unfortunetly as soon as the report loads I am prompted to enter the variable again in the "Enter parameter fields" box. Is there anyway I can disable the parameter field box?

I am using crystl32.ocx component to call the report, bellow is my code:

Private Sub Command2_Click()
Dim test
test = InputBox("GRRR")
CrystalReport1.ReportFileName = "temp.rpt"
With CrystalReport1
.DiscardSavedData = True
.ParameterFields(0) = "par;" & test
.Action = 1
End With
End Sub

 

[vidru]

You need to pass a third argument in order to keep the prompt from displaying:

.ParameterFields(0) = "par;" & test & ";true"

-dave

 

[rotomd]

I tried both true and false as a third argument and the prompt is still displaying.

 

[vidru]

Hmmm... any subreports? What's the datatype of 'par'?

-dave

 

[rotomd]

no subreports. par is a string. it's odd when i use

.ParameterFields(0) = "par;" & test & ";true"

it doesn't even show my entered text in the crystal parameter box, but when I use

.ParameterFields(0) = "par;" & test & ";false"

it does show my entered text in the parameter prompt box. I'm not sure if this helps or not. I haven't been able to find much documentation on crystal32.ocx. Do I possibly need any other components to accompy this?

 

[vidru]

I just ran a test. If you move the .DiscardSavedData after the .Action line, you won't get prompted.

You can get the help files for the OCX here:
Crystal Reports ActiveX (OCX) Control help file

-dave

 

[rotomd]

Hmm, moving the .discardsavedData didn't change my program...

 

[mattKnight]

try the following

Private Sub Command2_Click()
    Dim test [COLOR=blue] as string[/color]
' not strictly required but good practice to type variables
    test = InputBox("GRRR")
    CrystalReport1.ReportFileName = "temp.rpt"
    With CrystalReport1
[COLOR=BLUE]         .EnableParameterPrompting = False[/color]
        .DiscardSavedData = True   
        .ParameterFields(0) = "par;" & test
        .Action = 1
    End With
End Sub

Take Care

Matt
If at first you don't succeed, skydiving is not for you.

 

[rotomd]

when I try .EnableParameterPrompting = False there is an error that it can not find the method. Is it possibly that I'm missing a .dll file? when I run depends.exe on the file I recieve this list:

CRPE32.DLL
OLEPRO32.DLL
VERSION.DLL
KERNEL32.DLL
USER32.DLL
OLE32.DLL
ADVAPI32.DLL
OLEAUT32.DLL
COMDLG32.DLL
GDI32.DLL

 

[rotomd]

OK, I have found the solution! DiscardSavedData must be set to false and then it will not prompt you.