I have a combo box named cboReports.
This is the SQL in the row source property that is used to populate the combo box with the report names.
SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not Like "*Sub*") AND ((MSysObjects.Type)=-32764)) ORDER BY MSysObjects.Name;
Using this method I end up with a drop down list that the user views with cryptic names such as rptNtWk and rptCompNetGrp ,etc. etc. Is there a way to populate this list with more representative names of what the reports actually produce? Such as Net Weekly Sales, Compare Group Assets, etc. etc.
Here’s the code that’s in the AfterUpdate Event of the combo box.
Any help would be appreciated.
Thanks for your time.
This is the SQL in the row source property that is used to populate the combo box with the report names.
SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not Like "*Sub*") AND ((MSysObjects.Type)=-32764)) ORDER BY MSysObjects.Name;
Using this method I end up with a drop down list that the user views with cryptic names such as rptNtWk and rptCompNetGrp ,etc. etc. Is there a way to populate this list with more representative names of what the reports actually produce? Such as Net Weekly Sales, Compare Group Assets, etc. etc.
Here’s the code that’s in the AfterUpdate Event of the combo box.
Code:
Private Sub cboReports_AfterUpdate()
Dim strDocName As String
strDocName = Me![cboReports]
DoCmd.OpenReport strDocName, acPreview
End Sub
Thanks for your time.