I have used this code and it works perfect, but i have one issue. I want to be able to sort the reports, for some reason this code randomly sorts and ideas?
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 & ";"
Next objAO
cmbReportNames.RowSourceType = "Value List"
cmbReportNames.RowSource = strValues
End Sub
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 & ";"
Next objAO
cmbReportNames.RowSourceType = "Value List"
cmbReportNames.RowSource = strValues
End Sub