Holy C**p!
That's great!

Thanks, Duane

Bill

Duane Hookom wrote:
I went back to the thread link you posted a while back. Try this:

Create a new blank form and add a subform control:
Name: fsubOne
Source Object:---nothing here-----

Add a combo box to the main form:
Name: cboQueries
Row Source:
--------------------------------------------------
SELECT msysObjects.Name
FROM msysObjects
WHERE (((msysObjects.Name) Not Like "~*") AND ((msysObjects.Type)=5))
ORDER BY msysObjects.Name;
--------------------------------------------------
After Update code:
--------------------------------------------------
Private Sub cboQueries_AfterUpdate()
If Not IsNull(Me.cboQueries) Then
Me.fsubOne.SourceObject = "Query." & Me.cboQueries
End If
End Sub
--------------------------------------------------

Duane,

[quoted text clipped - 21 lines]

Bill

--
Bill Reed

"If you can't laugh at yoursel, laugh at somebody else"

Message posted via http://www.accessmonster.com