انجام فیلتر توسط انتخاب چند گزینه از چند لیست باکس و ...

[saeed1234n]

با سلام
به تمامی اساتید و دوستان خوبم در تالار
همانطور که در عنوان تاپیک مشخص است
چگونه می توان فیلتری را توسط انتخاب یک یا
چند گزینه از یک یا چند لیست باکس در سابفرم موجود در فرم به نمایش در آورد .:متفکر:
پیشاپیش از حوصله و بذل توجه شما خوبان کمال تشکر را دارم .:تشویق:

نمونه فایل ضمیمه میباشد .

[saeed1234n]

از اساتید و دوستان خواهش می کنم عنایت فرمایند
و مثل همیشه ما را در مسیرمان یاری نمایند

[Abbas Amiri]

از اساتید و دوستان خواهش می کنم عنایت فرمایند
و مثل همیشه ما را در مسیرمان یاری نمایند

از کدهای زیر استفاده کنید :



Private Sub List2_Click()
Dim item As Variant
Dim strFilter As String
strFilter = "("
If List2.ItemsSelected.Count Then
For Each item In List2.ItemsSelected
strFilter = strFilter & "Lesson='" & List2.ItemData(item) & "' OR "
Next
strFilter = Left(strFilter, Len(strFilter) - 4) & ")"
End If
If List4.ItemsSelected.Count Then
If Len(strFilter) > 1 Then
strFilter = strFilter & " AND ("
Else
strFilter = "("
End If
For Each item In List4.ItemsSelected
strFilter = strFilter & "teacher='" & List4.ItemData(item) & "' OR "
Next
strFilter = Left(strFilter, Len(strFilter) - 4) & ")"
End If
If List6.ItemsSelected.Count Then
If Len(strFilter) > 1 Then
strFilter = strFilter & " AND ("
Else
strFilter = "("
End If
For Each item In List6.ItemsSelected
strFilter = strFilter & "class='" & List6.ItemData(item) & "' OR "
Next
strFilter = Left(strFilter, Len(strFilter) - 4) & ")"
End If
If strFilter = "(" Then strFilter = ""
Me.SUB_Table1.Form.Filter = strFilter
Me.SUB_Table1.Form.FilterOn = True
End Sub

[saeed1234n]

با سلام
ضمن تشکر از جناب استاد عباسی و الطاف همیشگی ایشان
با اجرای این دستورات لزوما باید لیست باکس دروس انتخاب و بعد لیست باکس های دیگر انتخاب شوند
آیا راهی هست که بتوان حالتهای مختلف دیگری را مد نظر داشت
مثلا در ابتدا لیست باکس کلاس انتخاب شود و بعد لیست باکس دیگری
یا ابتدا لیست باکس دبیران مشخص شود و ( یا ) بعد لیست باکس دیگری
با کمال تشکر :تشویق::تشویق::تشویق:

[Abbas Amiri]

سلام

کدهای پست 3 تصحیح شدند.