This was perfect... thank you so much... here is the final code that works perfect
Private Sub cmdGenerateReport_Click()
If Me.cboReports & "" <> "" Then
DoCmd.OpenReport cboReports, acViewReport, , IIf(IsNull(Me.cboFacility), "", "Facility='" & Me.cboFacility & "'")
Else...