Open Report

Thanks. The SQL string has two WHERE conditions. I've slso tried it with recordsets. It didn't work.

It's based on Check Form 2.0

Jan An SQL string should have only one WHERE condition.

WHERE YEAR = 2026 AND Month = 6
It works

What didn't work?

I have a form with a subform and a corresponding report. The parent form contains two boxes: YearCombo and MonthCombo.

When the subsequent PrintBtn function is used, for example, to select 2026 and 6, it displays the correct values in the first column of the report, but the report then continues to show all months.
SQL statement:

Details

Private Sub PrintBtn_Click()
    Dim SQL As String, WhereStr As String, OrderBy As String

    WhereStr = ""
    If YearCombo <> "" Then
        If WhereStr <> "" Then WhereStr = WhereStr & " AND "
        WhereStr = WhereStr & "Jahr = " & YearCombo

    End If
    If MonthCombo <> "" Then
        If WhereStr <> "" Then WhereStr = WhereStr & " AND "
        WhereStr = WhereStr & "MonatID= " & MonthCombo
    End If

     SQL = "SELECT * FROM tblExpenses"

    If WhereStr <> "" Then
        SQL = SQL & " WHERE " & WhereStr
    End If
''''
'''''    SQL = SQL & " ORDER BY " & SortField
'''''    If SortHow = "Z-A" Then SQL = SQL & " DESC"
''''
    SQL = SQL
    SQL2 = SQL
    Me.RecordSource = SQL

    SQL = Me.Filter

    
    DoCmd.OpenReport "repNeu - Copy", acViewReport, penArgs:=Me.RecordSource

End Sub
Copy

Solved it. Set the combo boxes directly to the query. No SQL. Thanks to all!

Glad you got it working, Jan. Using the combo boxes as criteria directly in the report's underlying query is usually the simplest solution when the report is already designed.

For a report, I would generally avoid changing the form's RecordSource just to print. Let the report's query read the values from YearCombo and MonthCombo, then open the report. Nice job troubleshooting it.