MultiList select box and combo Box for report

[smcgrath]

since I am not very good at writing or deciphering code,
I am using the following code (from Allen Brown) on a command button to print
a report using a multi select listbox. How would I add 2 combo boxes and two
unbound text fields to this code.

The cboOrig is text
The cboStatus is text
The two unbound text boxes will hold interest rate ranges which are numeric

Private Sub cmdPrint_Click()
On Error GoTo Err_Handler
'Purpose: Open the report filtered to the items selected in the list box.

'Author: Allen J Browne, 2004. http://allenbrowne.com
Dim varItem As Variant 'Selected items
Dim strWhere As String 'String to use as WhereCondition
Dim strDescrip As String 'Description of WhereCondition
Dim lngLen As Long 'Length of string
Dim strDelim As String 'Delimiter for this field type.
Dim strDoc As String 'Name of report to open.

'strDelim = """" 'Delimiter appropriate to field type. See
note 1.
strDoc = "rptLoanSale"

'Loop through the ItemsSelected in the list box.
With Me.LstTerm
For Each varItem In .ItemsSelected
If Not IsNull(varItem) Then
'Build up the filter from the bound column (hidden).
strWhere = strWhere & strDelim & .ItemData(varItem) &
strDelim & ","
'Build up the description from the text in the visible column.
See note 2.
strDescrip = strDescrip & """" & .Column(1, varItem) & """, "
End If
Next
End With

'Remove trailing comma. Add field name, IN operator, and brackets.
lngLen = Len(strWhere) - 1
If lngLen > 0 Then
strWhere = "[loanterm] IN (" & Left$(strWhere, lngLen) & ")"
lngLen = Len(strDescrip) - 2
If lngLen > 0 Then
strDescrip = "Term: " & Left$(strDescrip, lngLen)
End If
End If

'Report will not filter if open, so close it. For Access 97, see note 3.
If CurrentProject.AllReports(strDoc).IsLoaded Then
DoCmd.Close acReport, strDoc
End If



'Omit the last argument for Access 2000 and earlier. See note 4.
DoCmd.OpenReport strDoc, acViewPreview, WhereCondition:=strWhere
Exit_Handler:
Exit Sub

Err_Handler:
If Err.Number <> 2501 Then 'Ignore "Report cancelled" error.
MsgBox "Error " & Err.Number & " - " & Err.Description, ,
"cmdPreview_Click"
End If
Resume Exit_Handler


End Sub

 

[Ken Snell \(MVP\)]

Take a look at this sample database:
Building SQL string based on values entered into controls
http://www.accessmvp.com/KDSnell/SampleDBs.htm#FilterForm

It, like Allen's, shows how to use multiselect listboxes. But it also shows
how to use many different types of controls (textboxes, comboboxes, etc.)
when building a single SQL clause for filtering a report.