I would build the where clause using only those combos with a value.
something like...
Code:
dim strWhere as string
if nz(Me.[cboProjectCode],"")<>"" then
strWhere=strWhere & "tblEntry.Entry_ProjectCodeIDfk=" & Me.[cboProjectCode] & " And "
end if
if nz(Me.[cboCostCenter],"")<>"" then
strWhere=strWhere & " tblEntry.Entry_CostCenterIDfk=" & Me.[cboCostCenter] & " And "
end if
if nz(Me.[cboYear],"")<>"" then
strWhere=strWhere & "tblEntry.Entry_EventYear=" & Me.[cboYear] & " And "
end if
if nz(strWhere,"")<>"" then
strWhere = " Where " & left(strWhere,len(strWhere)-4)
end if
SQL = "SELECT tblEntry.EntryID, tblEntry.Entry_ProjectCodeIDfk, tblEntry.Entry_CostCenterIDfk, tblEntry.Entry_Description, " _
& "tblEntry.Entry_ProductSKU, tblEntry.Entry_UnitPrice, tblEntry.Entry_QuantityofUnits, tblEntry.Entry_VendorIDfk, " _
& "tblEntry.Entry_PurchaseOrderIDfk, tblEntry.Entry_EventYear, tblEntry.Entry_ReceiptDate, tblEntry.Entry_ReceiptNumber, " _
& "tblEntry.Entry_BAFIDfk, qryEntry.Entry_TotalCost FROM qryEntry " _
& strWhere