Calling Temporary reports in List Box of Reports

[alphaomega3]

I have created a form for listing my reports using tips and code from Allen Browne's website. The Code is as Follows:

 Function EnumReports(fld As Control, id As Variant, row As Variant, col As Variant, code As Variant) As Variant
    ' Purpose:  Supplies the name of all saved reports to a list box.
    ' Usage:    Set the list box's RowSourceType property to:? EnumReports
    '               leaving its RowSource property blank.
    ' Notes:    All arguments are provided to the function automatically.
    ' Author:   Allen Browne        [e-mail]    Feb.'97.
 
    Dim db As Database, dox As Documents, i As Integer
    Static sRptName(255) As String              ' Array to store report names.
    Static iRptCount As Integer                 ' Number of saved reports.
 
    ' Respond to the supplied value of "code".
    Select Case code
        Case acLBInitialize                     ' Called once when form opens.
            Set db = CurrentDb()
            Set dox = db.Containers!Reports.Documents
            iRptCount = dox.Count               ' Remember number of reports.
            For i = 0 To iRptCount - 1
                sRptName(i) = dox(i).Name       ' Load report names into array.
            Next
            EnumReports = True
        Case acLBOpen
            EnumReports = Timer                 ' Return a unique identifier.
        Case acLBGetRowCount                    ' Number of rows
            EnumReports = iRptCount
        Case acLBGetColumnCount                 ' 1 column
            EnumReports = 1
        Case acLBGetColumnWidth                 ' 2 inches
            EnumReports = 2 * 1440
        Case acLBGetValue                       ' The report name from the array.
            EnumReports = sRptName(row)
        Case acLBEnd
            Erase sRptName                      ' Deallocate array.
            iRptCount = 0
    End Select
End Function 

How do I keep this from listing "~TMP*" repoorts?

[ADezii]

I have created a form for listing my reports using tips and code from Allen Browne's website. The Code is as Follows:

 Function EnumReports(fld As Control, id As Variant, row As Variant, col As Variant, code As Variant) As Variant
    ' Purpose:  Supplies the name of all saved reports to a list box.
    ' Usage:    Set the list box's RowSourceType property to:? EnumReports
    '               leaving its RowSource property blank.
    ' Notes:    All arguments are provided to the function automatically.
    ' Author:   Allen Browne        [e-mail]    Feb.'97.
 
    Dim db As Database, dox As Documents, i As Integer
    Static sRptName(255) As String              ' Array to store report names.
    Static iRptCount As Integer                 ' Number of saved reports.
 
    ' Respond to the supplied value of "code".
    Select Case code
        Case acLBInitialize                     ' Called once when form opens.
            Set db = CurrentDb()
            Set dox = db.Containers!Reports.Documents
            iRptCount = dox.Count               ' Remember number of reports.
            For i = 0 To iRptCount - 1
                sRptName(i) = dox(i).Name       ' Load report names into array.
            Next
            EnumReports = True
        Case acLBOpen
            EnumReports = Timer                 ' Return a unique identifier.
        Case acLBGetRowCount                    ' Number of rows
            EnumReports = iRptCount
        Case acLBGetColumnCount                 ' 1 column
            EnumReports = 1
        Case acLBGetColumnWidth                 ' 2 inches
            EnumReports = 2 * 1440
        Case acLBGetValue                       ' The report name from the array.
            EnumReports = sRptName(row)
        Case acLBEnd
            Erase sRptName                      ' Deallocate array.
            iRptCount = 0
    End Select
End Function 

How do I keep this from listing "~TMP*" repoorts?

'I've returned a sub-set of your code with changes indicated by a *. It was
'tested on my PC and works fine. Hope this helps you...

* Dim T As Integer                            'New Array Index to prevent "Holes"
 
    ' Respond to the supplied value of "code".
    Select Case code
        Case acLBInitialize                     ' Called once when form opens.
            Set db = CurrentDb()
            Set dox = db.Containers!Reports.Documents
            iRptCount = dox.Count               ' Remember number of reports.
            For i = 0 To iRptCount - 1
              * If Left(dox(i).Name, 1) <> "~" Then
                   * sRptName(T) = dox(i).Name       ' Load report names into array.
                   * T = T + 1
              * End If
            Next
            EnumReports = True