You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
reports in a dropdown?
- Thread starter RpbertS
- Start date
- Local time
- Today, 03:12
- Joined
- Feb 19, 2002
- Messages
- 47,172
I will suggest a way that you can use at your own peril. Access contains a number of system tables that are generally hidden. The one that contains the information you need is MSysObjects. The following query will produce a recordset containing a list of reports.
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32764))
ORDER BY MSysObjects.Name;
Microsoft does not document these tables because they do not intend that we use them. That's why you use them at your own risk. As far as I can tell this method will work in A2K as well as A97. But, who knows if the next version of Access will contain a MSysObjects table or that it will be the same format.
I will in include a list of all the object types I have encountered. For some of them I just guessed at what they defined. Your database may not contail all of these types and they also might contain types, I have not found in any of my databases.
Type Description
-32768 Forms
-32766 Macros
-32764 Reports
-32761 Code Modules
-32758 ? Admin
-32757 ? System stuff
1 Local Access Tables
2 MSysDb?
3 system stuff
4 Attached ODBC Tables
5 Queries
6 Attached Access Tables
8 Relationships
Remember! the recommended way to obtain this information is by writing code to read through the collections.
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32764))
ORDER BY MSysObjects.Name;
Microsoft does not document these tables because they do not intend that we use them. That's why you use them at your own risk. As far as I can tell this method will work in A2K as well as A97. But, who knows if the next version of Access will contain a MSysObjects table or that it will be the same format.
I will in include a list of all the object types I have encountered. For some of them I just guessed at what they defined. Your database may not contail all of these types and they also might contain types, I have not found in any of my databases.
Type Description
-32768 Forms
-32766 Macros
-32764 Reports
-32761 Code Modules
-32758 ? Admin
-32757 ? System stuff
1 Local Access Tables
2 MSysDb?
3 system stuff
4 Attached ODBC Tables
5 Queries
6 Attached Access Tables
8 Relationships
Remember! the recommended way to obtain this information is by writing code to read through the collections.
i have successfully created a drop down list for all my reports in a simple fashion. from what i read, you guys are looking for a drop down list too pull up your reports right? well if i understand what you guys are asking for then just reply and i will be back to help you guys out.
right now i don't know how far you are at accomplishing this, but first things first.
first, create a table with all your reports. i reccommend creating a table for the combo box because this way you can always add different reports in this drop down combo box.
second, create the combo box and name it "report list". you can name whatever you want, but just make sure you name it something that will easily help you to remember. i'm sure you can do this.
third, create a command button that will print preview your report. here is an example. i named this command button "Download Report" make the neccessary changes for whatever you name this command button. this code goes in the onclick event.
Private Sub COMMAND_NAME_Click()
On Error GoTo Err_COMMAND_NAME_Click
Dim stDocName As String
If Me![NAME OF YOUR COMBO BOX] = "REPORT NAME IN COMBO BOX" Then stDocName = "NAME OF REPORT"
If Me![NAME OF YOUR COMBO BOX] = "REPORT NAME IN COMBO BOX" Then stDocName = "NAME OF REPORT"
If Me![NAME OF YOUR COMBO BOX] = "REPORT NAME IN COMBO BOX" Then stDocName = "NAME OF REPORT"
DoCmd.OpenReport stDocName, acPreview
Exit_COMMAND_NAME_Click:
Exit Sub
Err_COMMAND_NAME_Click:
MsgBox "Select a report!"
Resume Exit_COMMAND_NAME_Click
End Sub
notice that there are 3 if statements in the code. that's because i have 3 reports currently in my combobox.
This is alot of information at one time and i might have not explained it clearly. but if you have any questions... just reply...and i will back.
first, create a table with all your reports. i reccommend creating a table for the combo box because this way you can always add different reports in this drop down combo box.
second, create the combo box and name it "report list". you can name whatever you want, but just make sure you name it something that will easily help you to remember. i'm sure you can do this.
third, create a command button that will print preview your report. here is an example. i named this command button "Download Report" make the neccessary changes for whatever you name this command button. this code goes in the onclick event.
Private Sub COMMAND_NAME_Click()
On Error GoTo Err_COMMAND_NAME_Click
Dim stDocName As String
If Me![NAME OF YOUR COMBO BOX] = "REPORT NAME IN COMBO BOX" Then stDocName = "NAME OF REPORT"
If Me![NAME OF YOUR COMBO BOX] = "REPORT NAME IN COMBO BOX" Then stDocName = "NAME OF REPORT"
If Me![NAME OF YOUR COMBO BOX] = "REPORT NAME IN COMBO BOX" Then stDocName = "NAME OF REPORT"
DoCmd.OpenReport stDocName, acPreview
Exit_COMMAND_NAME_Click:
Exit Sub
Err_COMMAND_NAME_Click:
MsgBox "Select a report!"
Resume Exit_COMMAND_NAME_Click
End Sub
notice that there are 3 if statements in the code. that's because i have 3 reports currently in my combobox.
This is alot of information at one time and i might have not explained it clearly. but if you have any questions... just reply...and i will back.
Gino,
I keep getting this error:
The expression On Click you entered as the event property setting produced the following error:
Ambigous name detected:
Download_Report_Click.
I deleted the command button and put a new one with different names and i get this error if you can help me ASAP i would appreciate it very much.
here is what i have in the OnClick:
Private Sub reports_command_Click()
On Error GoTo Err_reports_command_Click
Dim stDocName As String
If Me![reports list] = "Make" Then stDocName = "rptMake"
If Me![reports list] = "Division" Then stDocName = "rptDivision"
DoCmd.OpenReport stDocName, acPreview
Exit_reports_command_Click:
Exit Sub
Err_reports_command_Click:
MsgBox "Select a report!"
Resume Exit_reports_command_Click
End Sub
[This message has been edited by tracey75 (edited 04-27-2000).]
I keep getting this error:
The expression On Click you entered as the event property setting produced the following error:
Ambigous name detected:
Download_Report_Click.
I deleted the command button and put a new one with different names and i get this error if you can help me ASAP i would appreciate it very much.
here is what i have in the OnClick:
Private Sub reports_command_Click()
On Error GoTo Err_reports_command_Click
Dim stDocName As String
If Me![reports list] = "Make" Then stDocName = "rptMake"
If Me![reports list] = "Division" Then stDocName = "rptDivision"
DoCmd.OpenReport stDocName, acPreview
Exit_reports_command_Click:
Exit Sub
Err_reports_command_Click:
MsgBox "Select a report!"
Resume Exit_reports_command_Click
End Sub
[This message has been edited by tracey75 (edited 04-27-2000).]
i am confused what you are asking. what report page? are you saying print previewing a report or are you saying the form where you are going to put this combo box? get back to me. i will be here.
yes, you do have to create a report first in order for this to work....
[This message has been edited by gino (edited 04-27-2000).]
yes, you do have to create a report first in order for this to work....
[This message has been edited by gino (edited 04-27-2000).]
going to the codes....in the event property...can you see Download_Report_Click? is Download_Report_Click anywhere in your codes?
did you name your combo box to reports lists?
[This message has been edited by gino (edited 04-27-2000).]
did you name your combo box to reports lists?
[This message has been edited by gino (edited 04-27-2000).]
You were right it was copied again above that one. Yes reports list is the name of the combo box.
ANyways, now when i click on to preview report i get a message "Select a report" i do and it jsut says the same thing
ANyways, now when i click on to preview report i get a message "Select a report" i do and it jsut says the same thing
The name of the combo box is REPORTS and the name of the command is reports command i dont see anything wrong with what i'm doing. Here is what i have. Go figure.Private Sub reports_command_Click()
On Error GoTo Err_reports_command_Click
Dim stDocName As String
If Me![Reports] = "Make" Then stDocName = "rptMake"
If Me![Reports] = "Division" Then stDocName = "rptDivision"
DoCmd.OpenReport stDocName, acPreview
Exit_reports_command_Click:
Exit Sub
Err_reports_command_Click:
MsgBox "Select a report!"
Resume Exit_reports_command_Click
End Sub
WHAT AM I DOING WRONG?????????HELP
On Error GoTo Err_reports_command_Click
Dim stDocName As String
If Me![Reports] = "Make" Then stDocName = "rptMake"
If Me![Reports] = "Division" Then stDocName = "rptDivision"
DoCmd.OpenReport stDocName, acPreview
Exit_reports_command_Click:
Exit Sub
Err_reports_command_Click:
MsgBox "Select a report!"
Resume Exit_reports_command_Click
End Sub
WHAT AM I DOING WRONG?????????HELP
i see that the codes are correct. its tough to say whats wrong but...yes the codes are correct but i can't see your combo box and its really tough for me to come up w/ a solution. these codes work well for me.
i know you got the knowledge but sometimes it happens to me where i misspell field names. also, what is in your combo box?
i know you got the knowledge but sometimes it happens to me where i misspell field names. also, what is in your combo box?
N
Nino
Guest
Wow....that all seemed pretty complicated. My simple mind uses this simple solution to pull and print reports from a combo box pull down list.
1. Create a table with 1 field for the "exact" names of your reports.
2.Create a form or use an existing form and create a combo box in design view.
3. Right click on combo box for properties. (Looking at ALL of the properties) In Row Source Type choose Table/Query. Take note of the name of the combo box before you scroll down to Row Source Type.
4. In Row Source choose Whatever you called your table.
5. Get out of properties (you can also do it from there, but I always get out). Right click on your combo box and click build event (you're going to build code)
6. Type docmd.openreport(tab)the[Name of the combo box you created]Notice the brackets. then type a comma and choose acviewPreview.
(Add error code around this statement if you like.)
7. Get out and chose Form view (or non-design view). Add whatever else you want around it...
Looks like this:
docmd.OpenReport[Name of Table],acViewPreview
you're done!!
Any time you add a report, add the exact name to your table.
That works for me - hope it helps.
1. Create a table with 1 field for the "exact" names of your reports.
2.Create a form or use an existing form and create a combo box in design view.
3. Right click on combo box for properties. (Looking at ALL of the properties) In Row Source Type choose Table/Query. Take note of the name of the combo box before you scroll down to Row Source Type.
4. In Row Source choose Whatever you called your table.
5. Get out of properties (you can also do it from there, but I always get out). Right click on your combo box and click build event (you're going to build code)
6. Type docmd.openreport(tab)the[Name of the combo box you created]Notice the brackets. then type a comma and choose acviewPreview.
(Add error code around this statement if you like.)
7. Get out and chose Form view (or non-design view). Add whatever else you want around it...
Looks like this:
docmd.OpenReport[Name of Table],acViewPreview
you're done!!
Any time you add a report, add the exact name to your table.
That works for me - hope it helps.
Similar threads
- Replies
- 12
- Views
- 356
Users who are viewing this thread
Total: 1 (members: 0, guests: 1)