data report output still the same

[KGComputers]

Hi to all!

I have a problem with my data report.

when I pass these values to the parameters for the first time, it will produce the output correctly. On the second processing, the output will never change. The output is still the same.
An example is when I input values for dates of sales that occured in range with November 11 - November 16, it will produce the correct output. However, in the second processing like I input values like dates December 1 and December 25, the output does not change. It will display the sales from November 11 - November 16.

Here is the code...

Private Sub cmdProcessReport_Click()
deOrders.Commands(6).Parameters(0).Value = s_date
deOrders.Commands(6).Parameters(1).Value = e_date
End Sub

Private Sub cmdViewReport_Click()
rptSalesReport.WindowState = vbMaximized
rptSalesReport.Show
End Sub

Is this has something to do with the parameters passed to the data environment command qrySalesReport?

Hoping for any response.... :) :) :)

[rush_shri]

why don't you try "rptsalesreport.refresh" before passing parameters.

[KGComputers]

Hi rush_shri!

I tried it already. Inserting the refresh before the parameters will display the report first, then an error message will appear. The message is Parameter1 has no default value..

:) :) :)

[dee-u]

Are you using a client-side cursor?

[KGComputers]

Greetings!!!!

Yes, Im using (use client-side cursor) for my cursor location....

:) :) :)

[dee-u]

Have you tried...

rptSalesReport.Refresh

[KGComputers]

Greetings!!!

Yes, I've done that already....

I placed the refresh before the passing of values code. It will generate an error message.I tried to insert the refresh after the code, the output doesnt change...

:) :) :)

[dee-u]

Would you post all your code involve in that report-generation?

[KGComputers]

Hi.....

Here is the code for my report generation form (frmSalesReport)..

The codes with comment are the previous solutions I've used...

This code that I've posted a while ago was working though with errors on the result of data report...




Option Explicit
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim prm1 As New ADODB.Parameter
Dim prm2 As New ADODB.Parameter
Dim rst As New ADODB.Recordset
Dim strsql As String

Private Sub cmdExit_Click()
Set rst = Nothing
Set cnn = Nothing
Unload Me
End Sub

Private Sub cmdProcessReport_Click()
Dim s_date As String
Dim e_date As String

'dtPicker controls dtStart and dtEnd
s_date = dtStart.Value
e_date = dtEnd.Value

deOrders.Commands(6).Parameters(0).Value = s_date
deOrders.Commands(6).Parameters(1).Value = e_date

Print s_date & " " & e_date

'With cmd
' .ActiveConnection = cnn 'predefined connection object
' .CommandType = adCmdText
' .CommandText = "select * from qrySalesReport"
' .Parameters(0) = DateValue(s_date)
' .Parameters(1) = DateValue(e_date)
' Set rst = cmd.Execute
'End With

'With rptSalesReport
' Set .DataSource = rst
' .DataMember = rst.DataMember
'End With
'With cmd
' Set .ActiveConnection = cnn
'.CreateParameter "[Starting Date]", adDate, adParamReturnValue, , DateValue(s_date)
'.CreateParameter "[Last Date]", adDate, adParamReturnValue, , DateValue(e_date)

'.Parameters.Append cmd.CreateParameter("[Starting Date]", adDate, adParamInput, , CDate(s_date))
'.Parameters.Append cmd.CreateParameter("[Last Date]", adDate, adParamInput, , CDate(e_date))
'.CommandType = adCmdStoredProc
'.CommandText = "qrySalesReport"

' .CommandText = "Select * from qrySalesReport where OrderDate Between" & #s_date# & "And" #e_date#
'Set rst = cmd.Execute
'End With
cmdViewReport.Enabled = True
txtStart.Text = s_date
txtEnd.Text = e_date
End Sub

Private Sub cmdReset_Click()

If dtStart.CheckBox = False Then
dtStart.Value = Null
End If
If dtEnd.CheckBox = False Then
dtEnd.Value = Null
End If


End Sub

Private Sub cmdViewReport_Click()
rptSalesReport.WindowState = vbMaximized
rptSalesReport.Refresh
rptSalesReport.Show
End Sub

Private Sub Form_Load()
cmdViewReport.Enabled = False
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=d:\POSSample\Orders.mdb;"
dtStart.CheckBox = True
dtEnd.CheckBox = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set rst = Nothing
Set cnn = Nothing
End Sub



Is the problem has something to do with the value property of the command in my data environment? How do I make sure if the parameters being passed will take effect and will replace the old values?

:) :) :)

[techgnome]

Crystal, right? Open the report, and under the File menu... make sure the "Save Data With Report" option is TURNED OFF. For what ever reason, this is turned on by default. We ran into this problem we ran into early on with CR until some one figured it out.

-tg

[KGComputers]

Hi!!!

Im still using the built in data report designer....