I am running a report but it is asking me to enter a parameter value. Can anyone tell me what is going on? When I go to debug it takes me to the bolded line. That is what my report is called. Thanks in advance to any help you can give.
[FONT="]Private Sub Command12_Click()
Dim res As Recordset
Dim Chz As Integer
Chz=Forms!Edreports!Frame7
If Check63 Then
Chz=Chz*10
End If
Select Case Chz
Case 1 'Attendance Report
IfIsNull(Combo31) Then
DoCmd.OpenReport "EdRep4a", acPreview 'for Class
Else
DoCmd.OpenReport "EdRep4b", acPreview 'for Employee
End If
Case 2 'Non Attend Reminder List
DoCmd.OpenReport "EdRep6", acPreview
Case 3 'Non Attend Reminder List
DoCmd.OpenReport "EdRep5", acPreview
Case 4 'Annual Report
DoCmd.OpenReport "EdRep0", acPreview
Case 5 'Print Names
DoCmd.OpenReport "EdRep7", acPreview
Case 6 'Print Appraisal by date
DoCmd.OpenReport "EdRep6", acPreview
Case 10 'Class by Department-Break by Department
DoCmd.OpenReport "EdRep4", acPreview 'for Class
Case 20 'Non Attendance Reminder List- Break by department
DoCmd.OpenReport "EdRep4b", acPreview
End Select
End Sub[/FONT]
[FONT="]Private Sub Command12_Click()
Dim res As Recordset
Dim Chz As Integer
Chz=Forms!Edreports!Frame7
If Check63 Then
Chz=Chz*10
End If
Select Case Chz
Case 1 'Attendance Report
IfIsNull(Combo31) Then
DoCmd.OpenReport "EdRep4a", acPreview 'for Class
Else
DoCmd.OpenReport "EdRep4b", acPreview 'for Employee
End If
Case 2 'Non Attend Reminder List
DoCmd.OpenReport "EdRep6", acPreview
Case 3 'Non Attend Reminder List
DoCmd.OpenReport "EdRep5", acPreview
Case 4 'Annual Report
DoCmd.OpenReport "EdRep0", acPreview
Case 5 'Print Names
DoCmd.OpenReport "EdRep7", acPreview
Case 6 'Print Appraisal by date
DoCmd.OpenReport "EdRep6", acPreview
Case 10 'Class by Department-Break by Department
DoCmd.OpenReport "EdRep4", acPreview 'for Class
Case 20 'Non Attendance Reminder List- Break by department
DoCmd.OpenReport "EdRep4b", acPreview
End Select
End Sub[/FONT]