print individual reports for all value in a table

[brennanstice]

Good evening all,

So I am new to this forum. I appreciate all of the help. I have a report in that is built off a query. The criteria for that query comes from a combo box off a simple table.

Right now the report prints out for individual values of the combo box or table. I'd like to build it so I can click a button and it prints all the values for the combo box. Is that possible? Does this make sense? Thanks again!

B

[rpeare]

Yes it is possible but it would require VB code to do it efficiently.

What you would have to do is cycle through all the values in the combo box, change the value of the combo box to the next item in the list, then print the report and repeat this until you're out of items.

Let's say you have a table called tblEmployees
tblEmployees has three fields
EmpID (autonumber)
EmpFN (text)
EmpLN (text)

Now let's say you have a form called frmPrintInfo
On that form you have a combo box called cmbEmployees
where the EmpID is the bound column.

Now say you have a report called rptEmployeeInfo that you want to print out for every employee in your database.

this is what I would do, create a button, in the ON CLICK event of that button have something like:

dim db as database
dim rst as recordset
dim ssql as string

set db = currentdb
ssql = "SELECT * FROM tblEmployees"
set rst = db.openrecordset(ssql)

rst.movefirst
do while rst.eof <> True
     me.cmbEmployees = rst.fields("EmpID")
     Docmd.openreport (insert your report information here)
     rst.movenext
loop
set db = nothing