A while back somebody asked about just listing all the reports in a list/combo box for the user. We all were like why do you need that, I think. Well, I have found a reason, and I need it also. I finally got to talk to my boss about our database, She gave me a list of 6 reports that she'll regularly need with more to come. I think that's a tad too much to slap on a switchboard individually. Can somebody give a hint or the VBA code. Thanks
Private Sub Form_Load()
Dim objAO As AccessObject
Dim objCP As Object
Dim strValues As String
Set objCP = Application.CurrentProject
For Each objAO In objCP.AllReports
strValues = strValues & objAO.Name & ";"
FirstReports.RowSourceType = "Value List"
FirstReports.RowSource = strValues