Multi-Select List Box issue

[SamL]

Hi, I'm programming some annual management reports for a non-profit org. The data stretches back to 2015, so I have a cmbServiceYear combo box sorted in descending order so it's easy to pick the year for the annual report. This part works.



The next tab stop on the form is a multi-select (simple) list box (lstPrograms) so management can select their pet programs. Every year they will be different, and I assume they will eventually report on all of them anyway. But they want it this way. OK. Problem: While the Row Source for list box works correctly, it doesn't populate the list box. It's totally blank. I checked column counts and widths, and the bound column, and they're all correct. The row source for the list box is a query, qryLstProgram, and here is the SQL:

SELECT ServicesSL.ProgramFROM ServicesSL
WHERE (((Year([Service Date]))=[forms]![frmRptMgmtMenu]![cmbServiceYear].[value]))
GROUP BY ServicesSL.Program
HAVING (((ServicesSL.Program) Is Not Null))
ORDER BY ServicesSL.Program;

If I stop execution after selecting the year, and run the query independently, it gives me all the programs that were on the table in that year. Why doesn't it populate the list box? Even clicking on the list box doesn't force the query to run.

Thanks,
Sam

[SamL]

Solved. It seems that Access reads the row source property upon loading the form. Since upon loading, the value of the combo box is null, the list box is null as well.

If I erase the info from the row source property, and put that info in the combo box's AfterUpdate event, the list box populates correctly. Thanks.

It's simple:

Private Sub cmbServiceYear_AfterUpdate()

    Dim qryLstP As QueryDef
    
    Me.lstPrograms.SetFocus
    Set qryLstP = CurrentDB.QueryDefs("qryLstProgram")
    Me.lstPrograms.RowSource = qryLstP.SQL
    
End Sub