Dgavilanes
Registered User.
- Local time
- Today, 07:27
- Joined
- Jun 25, 2001
- Messages
- 109
Hi All,
I have 15 Small frms that I would like to select from a combo box.
as needed.
I have similar code to open reports, but now I is forms
So any help will be greatly appreciated.
Dennis
<code> for reports
SELECT [MSysObjects].[Name] FROM MSysObjects WHERE (Left([Name],1)<>"~") And ([MSysObjects].[Type])=-32764 ORDER BY [MSysObjects].[Name];
Dim rptname
rptname = Me![yourcomboname]
DoCmd.OpenReport rptname, acViewPreview
I have 15 Small frms that I would like to select from a combo box.
as needed.
I have similar code to open reports, but now I is forms
So any help will be greatly appreciated.
Dennis
<code> for reports
SELECT [MSysObjects].[Name] FROM MSysObjects WHERE (Left([Name],1)<>"~") And ([MSysObjects].[Type])=-32764 ORDER BY [MSysObjects].[Name];
Dim rptname
rptname = Me![yourcomboname]
DoCmd.OpenReport rptname, acViewPreview