Re: Stopping report

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: albertsong (albertsong_at_discussions.microsoft.com)
Date: 10/20/04 

Date: Wed, 20 Oct 2004 14:05:02 -0700

OK, now I understand how to use the WhereCondition and how to use OpenArgs to
send strings through. In my example, I can send a string through OpenArgs
that says "between 10/1/04 07:00AM and 10/4/04 09:00AM".

But, I also need either the values themselves or the difference between
these two values to do some calculations in the report. I already have a
function JustMinutes that calculates the difference in minutes so that's not
the issue. I'm dividing the run time of a machine during the user entered
time by the total time available between the user entered time to get
utilization. As I see it, I can:
1. Pass both of the actual date/time values from the unbound controls and
calculate the difference in the report OR
2. Calculate the difference between the actual date/time values from the
unbound controls in another unbound control on the forms and pass it to the
report

Either way, how do I use OpenArgs to pass this value (to do calculations) in
addition to the string?

"Allen Browne" wrote:

> You will have a command button on your form that actually opens the report.
> In its Click event you need to build two strings: one as the WhereCondition
> for OpenReport, and the other as the description for the user.
>
> In Access 2002 and 2003, you can pass the description through the OpenArgs,
> and just add a text box on the report with Control Source of:
> =[Report].[OpenArgs]
> In earlier versions, assign strDescrip to the Caption of a hidden label on
> your form, and use the Format event of the Report Header section to read it,
> and copy to a text box on the report.
>
> This example shows how to create the 2 strings for different field types,
> using the different delimiters. Note that the date range example copes with
> the fact that the field may have a time component by asking for "less than
> the next day".
>
> Private Sub cmdPreview_Click()
> Dim strWhere As String 'Where Condition
> Dim strDescrip As String 'Description of Where Condition.
> Dim lngLen As Long 'Length of string.
> Const conJetDate ="\#mm\/dd\/yyyy\#" 'Format for dates.
>
> 'Text field example.
> If Not IsNull(Me.txtSurname) Then
> strWhere = strWhere & "([Surname] = """ & Me.txtSurname & """) AND "
> strDescrip = strDescrip & "Surname of " & Me.txtSurname & ". "
> End If
>
> 'Number field example.
> If Not IsNull(Me.txtAmount) Then
> strWhere = strWhere & "([Amount] >= " & Me.txtAmount & ") AND "
> strDescrip = strDescrip & "Amount at least " & Format(Me.txtAmount,
> "Currency") & ". "
> End If
>
> 'Date range example
> If Not IsNull(Me.txtStartDate) Then
> strWhere = strWhere & "([MyDateField] >= " & _
> Format(Me.txtStartDate, conJetDate) & ") AND "
> strDescrip = ...
> End If
> If Not IsNull(Me.txtEndDate) Then
> strWhere = strWhere & "([MyDateField] < " & _
> Format(Me.txtEndDate + 1, conJetDate) & ") AND "
> End If
>
> 'Chop of the trailing " AND "
> lngLen = Len(strWhere) - 5
> If lngLen > 0 Then
> strWhere = Left$(strWhere, lngLen)
> strDescrip = Left$(strDescrip, Len(strDescrip) - 2)
> End If
>
> 'Open the report
> DoCmd.OpenReport "MyReport", acViewPreview, , strWhere,
> OpenArgs:=strDescrip
> End Sub
>
>
> --
> Allen Browne - Microsoft MVP. Perth, Western Australia.
> Tips for Access users - http://allenbrowne.com/tips.html
> Reply to group, rather than allenbrowne at mvps dot org.
>
> "albertsong" <albertsong@discussions.microsoft.com> wrote in message
> news:6BF77DDC-35D2-404D-816B-B2E44110C435@microsoft.com...
> > Thanks for all of the help and support...just a couple more questions...
> >
> > I've created an unbound form that has unbound controls for everything that
> > a
> > user might want to filter on (like date range, machine, shift, etc.)
> >
> > How do I use the information that the user enters in the unbound controls
> > to:
> > 1. Filter the results of query for the report
> > 2. Display the user entry information on the report
> >
> > For instance, the user enters a StartDate and EndDate for records. The
> > query must limit the records to info bewteen those dates and then I need
> > to
> > display the dates the user requested on the report.
>
>
>

Relevant Pages

  • Re: Stopping report
    ... You can pass as many values as you like in the OpenArgs string, ... Another alternative is to use the Open event of the report to read the ... I can send a string through OpenArgs ... > unbound controls in another unbound control on the forms and pass it to ...
    (microsoft.public.access.forms)
  • Re: Passing info to a report from a form
    ... I actually want to pass six different strings to be displayed in my report. ... Do you know if I can pass an array into OpenArgs? ... Dim Var As Variant ...
    (microsoft.public.access.reports)
  • Re: Stopping report
    ... You will have a command button on your form that actually opens the report. ... In its Click event you need to build two strings: ... > How do I use the information that the user enters in the unbound controls> to: ... > display the dates the user requested on the report. ...
    (microsoft.public.access.forms)
  • Re: Stopping report
    ... If you pass in a string such as: ... >> You can pass as many values as you like in the OpenArgs string, ... >>> these two values to do some calculations in the report. ... Pass both of the actual date/time values from the unbound controls ...
    (microsoft.public.access.forms)
  • Re: [Fwd: Re: [PATCH 4/5]PCI: x86 MMCONFIG: introduce pcibios_fix_bus_scan()]
    ... >> Introduces the x86 arch-specific routine that will determine whether ... these strings defined and other strings embedded in the routine body. ... remove the string that advises posting a report. ...
    (Linux-Kernel)