单击按钮时报告未打开

Question

当我单击报告上的按钮时，出现错误。调试器带我到最后一行。 DoCmd.OpenReport "CTZ", acViewReport, , filter

Dim vCTZ As String
Dim vYear As String

If Me.CTZ.Value <> "" Then
vCTZ = "'" & Me.CTZ.Value & "'"
'MsgBox vCTZ

filter = "CTZ Description=" & vCTZ & ""
'MsgBox filter
End If

If Me.Year.Value <> "" Then
vYear = "'" & Me.Year.Value & "'"

If filter <> "" Then
filter = filter & " and "
'MsgBox filter
End If
filter = filter & "Test Year=" & vYear & ""

'MsgBox filter
End If

DoCmd.OpenReport "CTZ", acViewReport, , filter

End Sub