在组合框中选择了Access - 预览报告

Question

我有一个数据库表单“frmReports”，其中包含以下组合框：

cboReports显示要选择的报告名称列表 cboCompanyName这将显示一个客户列表，用于选择报告的对象

我有一个应该被点击的按钮，它根据组合框中的上述选项打开报告。

我已经尝试了下面的代码，它在昨天工作，但是现在给出3071错误 - 代码太复杂了？

Private Sub cmdClientReport_Click()
    If IsNull(cboReports) Then
        MsgBox "You Must First Select a Report To Print!" 
        cboReports.SetFocus
    End If

    DoCmd.OpenReport cboReports, acViewPreview
End Sub