Hello All:

I have a subroutine that I pieced together off of the net and I got it working for what I want to do. Basically I am doing a search from combo boxes and opening up a query window. The query is editable and I don't want it to be. Can someone lend me a hand on how to open up the query window in Snapshot mode? My code for subroutine is below.

Thanks..Tony
================================================== ===

Private Sub scmdSearch_Click()
    Dim db As Database
    Dim QD As QueryDef
    Dim where As Variant

    Set db = CurrentDb()

    On Error Resume Next
    db.querydefs.Delete ("Dynamic_Query")
    On Error GoTo 0

    where = Null
    where = where & " AND [RecordNumber] = + Me![scboRecordNumber] + "
    where = where & " AND [EnteredBy] = '" + [scboEnteredBy] + "'"
    'where = where & " AND [EnteredDate] = + Me![scboEnteredDate] + "
    where = where & " AND [RequestingFacility] = '" +
            Me![scboRequestingFacility] + "'"
    where = where & " AND [RequestedBy] = '" + Me![scboRequestedBy] +
            "'"
    where = where & " AND [CurrentContact] = '" +
            Me![scboCurrentContact] + "'"
    where = where & " AND [OrdersetName] = '" + Me![scboOrdersetName]
            + "'"
    where = where & " AND [OrderItemName] = '" +
            Me![scboOrderItemName] + "'"
    where = where & " AND [OrderSection] = '" + Me![scboOrderSection]
            + "'"
    where = where & " AND [OrdersetFormat] = '" +
            Me![scboOrdersetFormat] + "'"
    where = where & " AND [OrdersetType] = '" + Me![scboOrdersetType]
            + "'"
    'where = where & " AND [RequestedDate] = + Me![scboRequestedDate]
            + "
    where = where & " AND [ChangeApproved] = '" +
            Me![scboChangeApproved] + "'"
    'where = where & " AND [ChangeApprovalDate] = +
            Me![scboChangeApprovalDate] + "
    where = where & " AND [AssignedAnalyst] = '" +
            Me![scboAssignedAnalyst] + "'"
    'where = where & " AND [CompletedDate] = + Me![scboCompletedDate]
            "

    'MsgBox "Select * from BHCS_Change_Request " & (" where " +
            Mid(where, 6) & ";")
    Set QD = db.CreateQueryDef("Dynamic_Query", _
            "Select * from BHCS_Change_Request " & (" where " +
            Mid(where, 6) & ";"))
    DoCmd.OpenQuery "Dynamic_Query"

End Sub
================================================== ===============

Create a report from the query, and open the report instead.

Did that help?


mmcdonal

Also, there is an easier way to do this using criteria in the query itself, rather than passing this string. For example, on the column in the query for RecordNumber, add this criteria:

[Forms]![frmYourFormName].[scboRecordNumber]

The query will go out and fetch this itself when you open the report that uses the query as the data source. So your only code is to open the report.

mmcdonal

Thank you mmcdonal:

That sure was easier.


Tony