I am having some trouble referencing a subform using the string below...
If Not IsNull(Me.[txtFilteraccountrep]) Then
strWhere = strWhere & "(Forms.F_012_Won_Loss_Form.Form.[AccountRep] Like ""*" & Me.txtFilteraccountrep & "*"") AND "
End If
lngLen = Len(strWhere) - 5
If lngLen <= 0 Then
MsgBox "No criteria", vbInformation, "Search Criteria Not Found."
Else
strWhere = Left$(strWhere, lngLen)
Me.Filter = strWhere
Me.FilterOn = True
End If
Thank you for your assistance.
If Not IsNull(Me.[txtFilteraccountrep]) Then
strWhere = strWhere & "(Forms.F_012_Won_Loss_Form.Form.[AccountRep] Like ""*" & Me.txtFilteraccountrep & "*"") AND "
End If
lngLen = Len(strWhere) - 5
If lngLen <= 0 Then
MsgBox "No criteria", vbInformation, "Search Criteria Not Found."
Else
strWhere = Left$(strWhere, lngLen)
Me.Filter = strWhere
Me.FilterOn = True
End If
Thank you for your assistance.