General Report question - Drop Down

[TheProfessorIII]

I have a query that I created from a table.
Basic info in table (for example) - 5 fields:
Date, Name, Amount 1, Amount 2, Amount 3
Multiple entries for same person....
(Name, btw, is a drop-down combo box)

In a report, I am grouping by name, then by date, then summing the amounts.
Mike Smith, for example, has many entries, appearing on multiple pages.


How can I add a drop-down to the report, or some type of functionality that allows the end-user to select a name from a drop-down and only see Mike Smith's data? The drop down can appear when the end-user clicks on the button to launch the report, or, can be after the entire report is run - I don't care. Any suggestions would be appreciated. Thank you.

[pbaldy]

This would be one way:

http://www.baldyweb.com/wherecondition.htm

[TheProfessorIII]

Thanks for this - it helped allot. One last question. How do I add a 'close form' command to the below? So basically, when i click the button to run report, I want it to close the current form before i open the report.


Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'make sure a selection has been made
If Me.Name2.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 Name"
Exit Sub
End If
'add selected values to string
Set ctl = Me.Name2
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & """" & ctl.ItemData(varItem) & ""","
Next varItem
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)

'open the report, restricted to the selected items
DoCmd.OpenForm "Report", , , "NAME IN (" & strWhere & ")"
Exit_cmdOpenReport_Click:
Exit Sub
Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click
End Sub

[pbaldy]

Check out

DoCmd.Close

in VBA help, noting the available arguments.