Private Sub subCount()
Dim strCriteria, strCriteria2
strCriteria = Null
strCriteria2 = Null
If Trim(Me.Combo303 & "") <> "" Then
strCriteria = (strCriteria + " And ") & "employee_name='" & Me.Combo303 & "'"
strCriteria2 = (strCriteria2 + " And ") & "employee_name='" & Me.Combo303 & "'"
End If
If Trim(Me.comboCompany & "") <> "" Then
strCriteria = (strCriteria + " And ") & "Company_Name='" & Me.comboCompany & "'"
strCriteria2 = (strCriteria2 + " And ") & "Company_Name='" & Me.comboCompany & "'"
End If
If Trim(Me.comboStatus & "") <> "" Then
strCriteria = (strCriteria + " And ") & "Status ='" & Me.comboStatus & "'"
End If
If Trim(Me.comboType & "") <> "" Then
strCriteria = (strCriteria + " And ") & "Type ='" & Me.comboType & "'"
strCriteria2 = (strCriteria2 + " And ") & "Type ='" & Me.comboType & "'"
End If
If strCriteria & "" = "" Then
Me.Txtemp1 = 0
Else
Me.Txtempl = Nz(DCount("1", "tbl_empl", strCriteria), 0)
End If
If strCriteria2 & "" = "" Then
Me![On-Hold] = 0
Me![WIP] = 0
Me![CPL] = 0
Else
Me![On-Hold] = strCriteria2 & " And [Status]='On-Hold'"
Me![WIP] = 0 = strCriteria2 & " And [Status]='WIP'"
Me![CPL] = 0 = strCriteria2 & " And [Status]='CPL'"
End If
End Sub