How can create List Box in Report ?

Report run by the query.

query is

select fieldname,....... from table
WHERE dbo_EMP.DEPT=[Department ]

it ask dept name.
I want the when it ask dept name, dept name
should be displayed in List Box.
User select the dept name from the list box.
what changing in the report properties ?

Please help.

regards.

Mateen

My approach to requirements like these has been to create a form with the listbox on it, and a button that will open the report and pass the parameters specified by your list box.

What I think that you are looking for is a Message Box when the report opens with a listbox on it, which I don't think is possible to do, but I would be happy to find out I am wrong.

Hope that helps

Mike

Mike
EchoVue.com

Create a list or combo box on a form, and make sure it is bound to the column you will need to generate your report. Usually it is the primary key (column 1) but may also be meaningful data (column 2).

Then place a button on your form to open the report. The wizard may ask for you to make an association from the combo box on the form, but if it doesn't, just add this code:

'=====

Dim stDocName As String
Dim stLink As String
Dim intMyCombo As Integer 'for column 1

'or

Dim stMyCombo As String ' for column 2

intMyCombo = Me.MyComboBox
'or
stMyCombo = Me.MyComboBox

stLink = "[MyFieldValue] = " & intMyCombo ' for integer

'0r

stLink = "[MyFieldValue] = " & "'" & stMyCombo & "'" ' for string

stDocName = "rptMyReportName"
DoCmd.OpenReport, stDocName, acPreview, , stLink
'=====

In this example, MyFieldValue is the column in your report that you want to specify criteria for. This will work if your report is based on a query or table.

You cannot put this in a report, but must put it on a form.

HTH

mmcdonal

Thanks for your response.

I try your code.
I make form and one button. and button click event
I write your code like this.

Dim stdocname As String
     Dim stlink As String
     Dim intmycombo As String

     intmycombo = Me.mycombobox // compile error, method or data
                                      member not found


     stlink = "[dbo_emp.dept] = " & "'" & stmcombo & "'"
     stdocname = "dept_report"
     DoCmd.OpenReport , stdocname, acPreview, stlink

it give above error.

Report name is dept_report
on click button it display print preview

query is

SELECT * FROM dbo_EMP;

query will like this

SELECT * FROM dbo_EMP where dbo_emp.dept=[deptname];

or query will without where clause.

I try both, but error is same.

regards.

Mateen