This is an excellent chapter!

I'm trying to develop a form that has a list box that shows 5 or 6 queries from which Users can select, to export data to Excel. I don't want to list ALL the queries in the database (but this chapter also has an excellent way to do that).

Problem: On page 544, it says "If you don't want Users to be able to choose every Query in the database, the [u]names</u> of the object can always be hard-coded into the Row Source property for the list box." I have tried modifying various code in VBA to include a single specific query, or in the Form's property sheet -- nothing works. Can anyone help?

There are 2 examples of VBA code in the book -- both are used in the Form's OnLoad Event.

'Example 1 -- setting the list data for a List Box control on form load

Private Sub Form_Load()

    Dim qdQueryName As QueryDef

    'Clear the list if it is already filled
    lstExport.RowSource = "" '(lstExport is the name of the List Box)
    lstExport.RowSourceType = "Value List"

    'Add all of the Query names to the List Box
    For Each qdQueryName In Application.CurrentDb.QueryDefs
        If (InStr(1, qdQueryName.Name, "~") = 0) Then
            Me.lstExport.AddItem qdQueryName.Name
        End If
    Next

End Sub



'Example 2 -- setting the list data for a List Box control on form load from a SQL statement

Private Sub Form_LoadOther()

    'Create the SQL Statement
    Dim strSQL As String
    strSQL = _
        "SELECT MSysObjects.Name " & _
        "FROM MSysObjects " & _
        "WHERE (((MSysObjects.Name) Not Like ""~*"") AND ((MSysObjects.Type)=5));"

    'Set the Row Sourse with the SQL Statement
    'lstExport is the name of the List Box.
    Me.lstExport.RowSourceType = "Table/Query"
    Me.lstExport.RowSource = strSQL

End Sub

How can I specifically list several query names in the RowSource property to fill the list box? Thanks for any suggestions.