Partial Display of List Items

[Tempo]

I have a list box control on an Access 2007 Form called "lstReports". I would like to populate this list box with report names like: rptMaintParts, rptMaintWorkorders, rptMaintParts On Order, etc. However, I do not want the "rptMaint" part of the report name to display in the text box. I once had the code to provide this functionality, but that was many years ago.

I would appreciate it greatly if someone would lead me in the right direction.

Thanks in advance,

Tempo

[Mihail]

In the Property Sheet, under Data tab, set the Row Source Type for your list to Value List. Then use a code like this:

Dim Rpt As String
    Rpt = Mid("rptMaintParts", 9)
        lst.AddItem (Rpt)
    Rpt = Mid("rptMaintWorkorders", 9)
        lst.AddItem (Rpt)
    Rpt = Mid("rptMaintParts On Order", 9)
        lst.AddItem (Rpt)

Maybe is better to create a function to return the string you need:

Private function ReturnRaportName(Rpt As String) As String
    ReturnRaportName = = Mid(Rpt, 9)
End Function

Then apply this function:

    lst.AddItem (ReturnRaportName("rptMaintParts"))

Good luck !

[NeoPa]

So, you want your ListBox to reflect the names of all reports that start rptMaint, but only to show those parts of the name after rptMaint.

Your code would need to go through all the reports checking for the match then adding the text after the match to the list :

Dim strList As String
Dim rpt As Report
 
For Each rpt In CurrentProject.AllReports
    If Left(rpt.Name, 8) = "rptMaint" Then _
        strList = strList & "," & Mid(rpt.Name, 9)
End With
Forms!frmBlahBlah.lstReports.RowSource = Mid(strList, 2)

Clearly, Row Source Type for lstReports must already be set to "Value List".

[Tempo]

Hi Guys!

This is to say a "Big Thank You" to both Mihail and NeoPa for each of your responses to my question. The code snippets are definitely a step in the right direction.

Not sure what I need to do to close this thread, but it's a done deal.


Thanks again, Tempo

[NeoPa]

You're welcome.

See Marking a Post as 'Best Answer'.

[Mihail]

Glad to help you.
Good luck !