Query from 2 combo boxes

[isladogs]

OK - do you want to upload a stripped down copy of your database with the form, report & anything else needed to check this out for you.
If so, I'll have a look later this evening

[frons]

Here it is, hope it can be of any help, and thank you for all your time, you've already helped me a lot!

[June7]

Your comboboxes are named cmbTurno and cmbTema but the code uses cboTurno and cboTema. (I prefer cbx prefix.) Fix names or fix code.

Select [Event Procedure] in the combobox AfterUpdate property.


The variables need to be string, not integer, type.

Public strTurno As String
Public strTema As String


Problem with this method is Format events only trigger for PrintPreview or direct to printer, not ReportView. Alternatively, the code will work in report Load event for any view.

An alternative to any event code is a function called by a textbox (textbox acts as 'label').

Private Function SetLabel() As String
    SetLabel = "Fanculo"
    If Nz(strTema, "") <> "" And Nz(strTurno, "") <> "" Then
        'Sono stati selezionati sia un turno che un tema
        SetLabel = "Tema " & strTema & "; Turno " & strTurno & ""
    ElseIf Nz(strTema, "") <> "" Then
        'Un tema è stato selezionato
        SetLabel = "Tema " & strTema & ""
    ElseIf Nz(strTurno, "") <> "" Then
        'Un turno è stato selezionato
        SetLabel = "Turno " & strTurno & ""
    Else
        'Nessuna selezione: sono stati selezionati tutti i record
        SetLabel = "Tutti gli studenti"
    End If
End Function

Textbox ControlSource: =SetLabel()


Also, variables lose their values when code execution is interrupted. Can be frustrating when debugging and code is dependent on global or public variables. Could make the variables local in the report code and set them by reference to the form controls.

Or use TempVars which don't lose value (I've never used them).

[isladogs]

All done.
The errors were caused by copying my code without adapting for your database
a) The 2 public variables need to be String not Integer
b) The combo boxes are called cmbTema (not cboTema) & cmbTurno (not cboTurno) so the code wasn't firing

The report now shows the filter info label correctly.

I've taken the liberty of removing the layout guides as they were driving me nuts
I've also added 2 small buttons to clear each combo on the form

Hope you're happy with this

EDIT: Just spotted that whilst I was looking at your db, June found the same issues
I had also changed the code to open the report in print preview using a procedure & got rid of the embedded macro (as I hate them!)

[frons]

Public strTurno As String
Public strTema As String

I totally missed that, gosh!
Thank you

[frons]

Hope you're happy with this

More than happy, looks like Christmas morning !
Now I need to scope everything bit by bit to fully understand what my mistakes were.
Thank you

[isladogs]

Excellent. Happy early Xmas.