Okay I changed the code again to :
rivate Sub CmdSubmit_Click()
Dim rst As dao.Recordset
Dim db As dao.Database
If Me.cboList.Column(0) = 1 Then
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT customerID from CustomersT WHERE ActiveCustomer")
While Not rst.EOF
DoCmd.OpenReport "StatementsReport", , "[CustomerID]=" & rst!CustomerID
DoCmd.Close acReport, "StatementsReport", acSaveYes
rst.MoveNext
Wend
'DoCmd.Close acReport, "StatementsReport", acSaveYes
DoCmd.Close acForm, "StatementsReportF", acSaveYes
Set rst = Nothing
Set db = Nothing
ElseIf Me.cboList.Column(0) = 2 Then
DoCmd.OpenReport "StatementsReport", acViewReport, , "[CustomerID]=" & Me.cboSupplier.Column(0)
DoCmd.Close acForm, "StatementsReportF", acSaveYes
End If
End Sub
When I run it it prints the 4 reports for the ative customers, but all 4 are exactly the same ( tthe first customer)