Hi,

Just have a question. In my application I'm listing all the reports in a list box. This works fine. I'm populating the list with the next code that is set on the on open event of the form the list box is on:

dim Obj as AccessObject
For Each Obj in CurrentProject.AllReports
   Me.lstReports.AddItem Mid(Obj.Name,4)
Next

Like I said, this works fine, but when the form opens, the reports are not sorted alphabetically. Is it possible to become the same list in a sort order that is ascending? (I guess yes, but how can I get this?)

Thanks

That's a good one. I would be inclined to paste them to a table, and then base the list box on the table to get the sort function.

So:

DoCmd.SetWarnings False
DoCmd.OpenQuery "qryDELETETempTable"
DoCmd.SetWarnings True

'Open recordset (rs) on table

dim Obj as AccessObject
For Each Obj in CurrentProject.AllReports
   rs.AddNew
   rs("ListItem") = Mid(Obj.Name,4)
   rs.Update
Next

Me.lstReports.requery

This should work pretty fast.

Did that help?

mmcdonal

This is working fine. Thanks very much