Filter Report by Optional Date and Optional Combo Box

[ARickert]

I posted this on the SQL forum and no one gave me any helpful advice. I'd like to reiterate that I'M A NOVICE; I need this explained so I can understand it, and apply it.


The code below was someone elses that I adapted to my databse.

I would like to filter Report: DQC by an OPTIONAL date range (which I have done with the code below). I would also like to filter it by and OPTIONAL combo box that self populates from my table with PEBLO names. I have gotten the combo box to self populate, but do not know how to add it into the VB. Combo Box Name: Combo27

Private Sub Command29_Click()
Dim strReport As String
Dim strDateField As String
Dim strWhere As String
Dim lngView As Long
Const strcJetDate = "\#mm\/dd\/yyyy\#" 

strReport = "DQC" 
strDateField = "[Date]" 
lngView = acViewPreview 

If IsDate(Me.Text22) Then
strWhere = "(" & strDateField & " >= " & Format(Me.Text22, strcJetDate) & ")"
End If
If IsDate(Me.Text24) Then
If strWhere <> vbNullString Then
strWhere = strWhere & " AND "
End If
strWhere = strWhere & "(" & strDateField & " < " & Format(Me.Text24 + 1, strcJetDate) & ")"
End If


If CurrentProject.AllReports(strReport).IsLoaded Then
DoCmd.Close acReport, strReport
End If

'Debug.Print strWhere 'Remove the single quote from the start of this line for debugging purposes.
DoCmd.OpenReport strReport, lngView, , strWhere

Exit_Handler:
Exit Sub
Err_Handler:
If Err.Number <> 2501 Then
MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "Cannot open report"
End If
Resume Exit_Handler
End Sub
Private Sub RUN_Click()
End Sub

[pbaldy]

no one gave me any helpful advice. I'd like to reiterate that I'M A NOVICE; I need this explained so I can understand it, and apply it.

I find that somewhat offensive, since I believe I gave you the correct direction to go in on the other thread. What exactly about your existing code do you need explained so that the advice given previously makes sense to you?

[ARickert]

PBaldy, I wasn't trying to be offensive, that's why I stressed that I'm a novice... I don't understand what you are talking about. I'm not saying your advice wasn't right, I just don't understand it.