PMFJI

or Three:

report is based on stored query ("qryRpt")

form ("frmCrit") with 2 textboxes
  txtBeginDate
  txtEndDate

and command button ("cmdPreviewReport") to open report
with click event code something like...

{aircode--requires DAO reference}

Private Sub cmdPreviewReport_Click()
On Error GoTo Err_cmdPreviewReport_Click
   Dim lngUnixBegin As Long
   Dim lngUnixEnd As Long
   Dim strSQL As String

   If  NOT IsDate(Me!txtBeginDate)
                        Or NOT IsDate(Me!txtEndDate) Then
       MsgBox "You must enter valid beginning and ending dates."
       DoCmd.GoToControl "txtBeginDate"
   Else
       If  Me!txtBeginDate > Me!txtEndDate Then
           MsgBox "Ending date must be greater than Beginning date."
           DoCmd.GoToControl "txtBeginDate"
       Else
          lngUnixBegin = DateDiff("s",#1/1/1970#, CDate(Me!txtBeginDate))
          lngUnixEnd = DateDiff("s",#1/1/1970#, CDate(Me!txtEndDate))

          strSQL = "TRANSFORM .... " _
                   & " SELECT .... FROM ..." _
                   & " WHERE [UnixTimeStampField] >= " & lngUnixBegin _
                   & " AND [UnixTimeStampField] < " & lngUnixEnd & " + 1" _
                   & " GROUP BY  ...." _
                   & " PIVOT ....;"
           CurrentDb.QueryDefs("qryRpt").SQL = strSQL

           DoCmd.OpenReport "rptXXXX", acViewPreview

        End If
   End If

Exit_cmdPreviewReport_Click:
   Exit Sub

Err_cmdPreviewReport_Click:
       MsgBox "Error No: " & Err.Number & "; Description: " &
Err.Description
       Resume Exit_cmdPreviewReport_Click
End Sub

Aplogies again for jumping in (especially if misunderstood).

good luck,

gary

Hi John-thanks for responding-I really need to get this to work as there are
lots of crosstab reports to complete each month!

I tried what you suggested and it now does not even ask for a date to enter
and returns no data in the query when I try to run it.  I must be doing
something wrong.  

1.  I declared the parameters in the query under Query, Parameters:

[Forms]![Main Menu]![Beginning Date]
[Forms]![Main Menu]![Ending Date]

2.  in the criteria for the field in the query I entered (this is a field
that I created to change the date from the Unix timestamp to a date that
Access will recognize (DateAdd("s",[arrival_time],#1/1/1970#):

Between [Forms]![Main Menu]![Beginning Date] And [Forms]![Main Menu]![Ending
Date]

3.  I created two unbound text box controls on the main menu form, called
one Beginning Date and the other Ending Date (I take that I don't have to
enter anything in the control source).  When I try to open the report from
the Main Menu with a command button that I created, I get the following error
messge:

The Microsoft Jet database engine does not recognize " as a valid field name
or expression

Here is the SQL Code:

PARAMETERS [Forms]![Main Menu]![Beginning Date] DateTime, [Forms]![Main
Menu]![Ending Date] DateTime;
TRANSFORM Val(Nz(Count(dbo_HPD_HelpDesk.Status),0)) AS CountOfStatus
SELECT dbo_HPD_HelpDesk.Priority, Switch([Priority] Like
"[0]*","Low",[priority] Like "[1]*","Medium",[Priority] Like
"[2]*","High",[Priority] Like "[3]*","Urgent") AS PriorityName,
Count(dbo_HPD_HelpDesk.Status) AS CountOfStatus1
FROM dbo_HPD_HelpDesk
WHERE (((DateAdd("s",[arrival_time],#1/1/1970#)) Between [Forms]![Main
Menu]![Beginning Date] And [Forms]![Main Menu]![Ending Date]))
GROUP BY dbo_HPD_HelpDesk.Priority, Switch([Priority] Like
"[0]*","Low",[priority] Like "[1]*","Medium",[Priority] Like
"[2]*","High",[Priority] Like "[3]*","Urgent")
PIVOT dbo_HPD_HelpDesk.Status;