فیلتر همزمان یک یا چند چندین گزینه

[saeed1234n]

با سلام

به تمامی دوستان و اساتید خوبم

دوستان بدلیل کثرت سوالات درخصوص فیلتر همزمان چند آیتم ، نمونه ای قرار دادم که امیدوارم مفید باشد

و دوستان عزیز دیگر مشکلی در اینباره نداشته باشند.

111218

111219

[Abbas Amiri]

با سلام

به تمامی دوستان و اساتید خوبم

دوستان بدلیل کثرت سوالات درخصوص فیلتر همزمان چند آیتم ، نمونه ای قرار دادم که امیدوارم مفید باشد

و دوستان عزیز دیگر مشکلی در اینباره نداشته باشند.

111218

111219

بنده هم به نوبه خودم از جوابگویی شما به تاپیک ها سپاسگزارم

در مورد کدهای مربوط به فیلتر کردن عبارت "(1)" فقط در شرط اول الزامی است و بقیه موارد را می توانید حذف کنید.



Public Sub dofilter()
If Not IsNull(Me.Text0) Then
strfilter = "sn= Text0 "
Else
strfilter = "(1)"
End If
If Not IsNull(Me.Text2) Then
strfilter = strfilter & "and name='" & Text2 & "'"
Else
'strfilter = strfilter & "and(1)"
End If
If Not IsNull(Me.Text4) Then
strfilter = strfilter & "and date>='" & Text4 & "'"
Else
'strfilter = strfilter & "and(1)"
End If
If Not IsNull(Me.Text6) Then
strfilter = strfilter & "and date<='" & Text6 & "'"
Else
'strfilter = strfilter & "and (1)"
End If
Me.tbl_In_subform.Form.Filter = strfilter
Me.tbl_In_subform.Form.FilterOn = True
End Sub