Help with MSysObjects problem please..

[Simon Radford via AccessMonster.com]

I have a form which contains a field that collects the MSysObjects list of queries within the system.

Also on this form there is a button that is told to apply the query chosen by the user to a certain second form, however I cant seem to tell the button to select the object.

Currently I have:

SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name)=Me![Choose Filter]))

Anyone help please !

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

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

The SQL I use to get the names of all the queries in an .mdb is:

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((Left("Name",1))<>"~") AND ((MSysObjects.Flags)<>3 And
(MSysObjects.Flags)<>268435459) AND ((MSysObjects.Type)=5))
ORDER BY MSysObjects.Name;

You can put this in the RowSource property of a ComboBox (remember to
set the RowSourceType to Table/Query). Then in the ComboBox's
AfterUpdate event you can run the query the user selected:

Private Sub cboQueries_AfterUpdate()

If Not IsNull(Me!cboQueries) Then
DoCmd.OpenQuery Me!cboQueries
End If

End Sub

Make sure the bound column of the ComboBox is 1.

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQfAUOIechKqOuFEgEQI/rACgt7s3iLgZk8LQiwLaMRM5u6BrjVAAoKLM
CEmzpasyRwo7sat9LbaEmYy6
=Qifo
-----END PGP SIGNATURE-----
Simon Radford via AccessMonster.com wrote:

I have a form which contains a field that collects the MSysObjects list of queries within the system.

Also on this form there is a button that is told to apply the query chosen by the user to a certain second form, however I cant seem to tell the button to select the object.

Currently I have:

SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name)=Me![Choose Filter]))

Anyone help please !

[Simon Radford via AccessMonster.com]

To date I have set the following as an option instead of a button as I cant seem to find
and answer to the button issue.

I have set this as an after update event on the combo box itself
to set the focus on a second form, apply the filter chosen in combo box of the first form
then set the focus back to the original first form.

This does not apply the MYsysObects filter chosen from the combo box either, but I think
I am getting closer to a solution.
Private Sub Choose_Filter_AfterUpdate()
Forms![Contacts].SetFocus
DoCmd.ApplyFilter " & [Search Filter].[Choose Filter] & " '"
Forms![Search Filter].SetFocus
End Sub

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