BO: parameter in Querz

[Guest_imported]

Dear All,

I would like to filter the data in report giving the value at the time of running the report. For this purpose, i have designed a VBA form and will call this for on BeforeRefresh event and user can enter value for the parameter. Now my question is how to use the paramete in the querz and assign value to it at runtime.
Many thanks in advance,
visu

 

[hadry]

The below sample with little customization would help you

Dim mydoc As Document
Dim myrpt As Report
Dim mydp As DataProvider
Dim mycond As Condition
dim concount as Integer
Set mydoc = Application.Documents.Open("Name of the doc&quot
Set mydp = mydoc.DataProviders(1)
condcount = mydp.Queries(1).Conditions.Count
MsgBox condcount
MsgBox Now
mydp.Load
For i = 1 To condcount
mydp.Queries(1).Conditions.Remove (1)
Next i
condformatcount = 0
Set mycond = mydp.Queries(1).Conditions.Add("Class name", "object name", "Equal to (or any other operator)", " value &quot

condformatcount = 1


Set mycond = mydp.Queries(1).Conditions.Add("Class name", "object name", "Equal to (or any other operator)", " value &quot
condformatcount = 1

CondFormat = "("
For i = 1 To condformatcount
If i <> condformatcount Then
CondFormat = CondFormat & &quot;#&quot; & i & &quot; AND &quot;
Else
CondFormat = CondFormat & &quot;#&quot; & i & &quot&quot;
End If
Next i
mydp.Queries.Item(1).Conditions.Format = CondFormat
mydp.Unload
DoEvents
mydoc.Refresh