combo box vba help

[ashleydkennedy]

Does anyone know how to build a combo box that references the various forms/or tables in the database. I want to have a combo box or list box where the user can pick a form and then the form opens (basically for navigation).

Thanks in advance

 

[Jack Cowley]

Use this code as the Row Source for you Combo to show Forms:

SELECT [MSysObjects].[Name] FROM MSysObjects WHERE (Left([Name],1)<>"~") And ([MSysObjects].[Type])=-32768 ORDER BY [MSysObjects].[Name];

And this to show Tables:

SELECT [MSysObjects].[Name] FROM MSysObjects WHERE (Left([Name],1)<>"~") And ([MSysObjects].[Type])=1 ORDER BY [MSysObjects].[Name];

 

[chrismcbride]

Make a table with two columns 1. Actual name of Form you want to open & 2. Descriptive alias of Form. Base your combo box on this table and set bound column to first column and displayed column to second. In After Update of combo box use ...

DoCmd.OpenForm cboForm_tpen

... to pass the value of the bound column

HTH
Chris

 

[ashleydkennedy]

Chris,

I like your idea, could you elaborate on the code a bit more because after trying what you said an error kept occuring. How do I open the correct forms from the combo box?

Thanks
Ash