ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข

[Tatchawin]

สวัสดีครับทุกท่าน ผมต้องการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ได้ตามเงื่อนไขที่เลือกเลย
โดยผมเขียนโค้ดตามด้านล่างนี้ แล้วลอง filter ดู จากภาพ
1. ที่ Field MonthNum ผมต้องการเลือก Record ของเดือน 9 (September)
2. ที่ Field WorkGroup ผมต้องการเลือก “งานอื่นๆ”

แต่ผลลัพท์คือ ไปเอา “งานอื่นๆ” ของเดือนอื่นมา ซึ่งผมต้องการของเดือน 9 เท่านั้น(ซึ่งผลลัพธ์ที่ถูกต้อง จะต้องไม่มีของเดือน 9 โผล่มา เพราะไม่มี”งานอื่นๆ” ในเดือน 9) ผมจะต้องเพิ่มเติม Code อย่างไรให้ Filter ทำงานทั้งสองตัวครับ

ขอบคุณล่วงหน้าครับผม


Private Sub lstMonthSort_AfterUpdate()
    Call Search1
End Sub
--------------------------------------------------------------------------------------------------------
Sub Search1()
Dim varItem As Variant
Dim strsearch As String
Dim Task As String

Me.FilterOn = True
For Each varItem In Me!lstMonthSort.ItemsSelected
    strsearch = strsearch & "," & Me!lstMonthSort.ItemData(varItem)
Next varItem
'MsgBox (strSearch)
    If Len(strsearch) = 0 Then
        Task = "SELECT * FROM qryPerday"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    Else
        strsearch = Right(strsearch, Len(strsearch) - 1)
        'MsgBox (strSearch)
        Task = "SELECT * FROM qryPerDay WHERE ([MonthNum] in (" & strsearch & "))"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    End If
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub lstWorkGroup_AfterUpdate()
    Call Search2
End Sub
--------------------------------------------------------------------------------------------------------
Sub Search2()
Dim varItem As Variant
Dim strsearch As String
Dim Task As String

Me.FilterOn = True
For Each varItem In Me!lstWorkGroup.ItemsSelected
    strsearch = strsearch & "," & Me!lstWorkGroup.ItemData(varItem)
Next varItem
'MsgBox (strSearch)
    If Len(strsearch) = 0 Then
        Task = "SELECT * FROM qryPerday"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    Else
        strsearch = Right(strsearch, Len(strsearch) - 1)
        'MsgBox (strSearch)
        Task = "SELECT * FROM qryPerDay WHERE ([WorkGroup] in (" & strsearch & "))"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    End If
End Sub

[PNR]

ส่งFile และ เพิ่มข้อมูลเบื้องต้นในตาราง และฟอร์มนั้นมาครับ (ถ้าไม่ได้ส่วนตัวมาก)
เดี่ยวผมปรับโค้ดให้ใหม่ ดูแล้วโค้ดไม่ได้ยาวอะไรเลยครับ สั้นๆ เอง

[Tatchawin]

ขอแนบไฟล์ส่งมาตามนี้นะครับผม ไหนๆก็ไหนๆแล้ว ผมอยากให้ Sort ได้ทั้ง lstYearSort, lstMonthSort, lstWorkGroup, lstDepartment และ lstSection

ยังไง ถ้าท่านแก้ให้ filter ได้หมดนี้ ก็ดีนะครับ อิอิ

ขอบคุณล่วงหน้าครับ :D

[PNR]

ครับพรุ่งนี้จัดให้ครับผม
วันนี้ผมเลิกงานแล้ว

[Tatchawin]

Ok ครับ เดี๋ยวรอนะครับ อิอิ

[PNR]

ลองดูนะครับ
โค้ดแต่ละ listbox ผมจัดไว้เป็นชุดนะครับ
คงไม่ยาก ยังติดตรงส่วนไหนบอกได้

[Tatchawin]

ขอบคุณมากๆเลยครับ แต่ผมมีคำถามเพิ่มเติม หลังจากที่ได้ทดลองครับ
1. ผมลองกดเลือก filter ที่ปี 2020 แล้วก็กดที่ปี 2020 ซ้ำอีกทีเป็นการ Unfilter ปรากฎว่าขึ้น Popup Runtime Error แบบนี้ครับ
(ที่จริงกด filter ที่ตรงไหนก็ได้ แล้วกดซ้ำอีกทีก็ขึ้น Error runtime เหมือนกัน) ผมอยากแก้ไขตรงนี้
คือ ไม่ให้ขึ้น runtime Error เลย แล้วเมื่อกดซ้ำ Unfilterให้โชว์ Record เหมือนตอนที่เปิด Form frmManpower1 ขึ้นมาครับ
(เข้าใจว่าจะโชว์เฉพาะเดือนปัจจุบันกับเดือนหน้าอีก 1 เดือน)

2. จากภาพ ที่หมายเลข 2 อยากทำปุ่ม Unfilter ครับ เวลาเราเลือก filter หลายๆอัน แล้วอยาก Unfilter ให้โชว์ Record
เหมือนตอนที่เปิด Form frmManpower1 ขึ้นมาครับ

3. อยากทำปุ่ม Select All คือให้ Show Record ทั้งหมด ทุกๆปี ทุกเดือน ทุก WorkGroup ทุกDepartment ทุกSection เลยครับ

รบกวนขอไอเดีย หรือช่วยแก้ไขให้ผมหน่อยนะครับ ผมเองก็งงๆ ที่พัฒนามาได้ในตอนต้นก็ดูจาก youtube มาแบบไม่เข้าใจเท่าไหร่ครับ
ขอบคุณมากๆครับผม

[PNR]

แก้โค้ดบรรทัดนี้นะครับ เออเร่อจะหายไป
StrWhere = Nz((criteria1 & criteria2 & criteria3 & criteria4 & criteria5), "")

ปุ่มที่ 1 โจทย์ข้อ 2

โค๊ด: [Select]

Private Sub Cmb1_Click()
Dim sql As String
Dim i As Long
Dim currentMonth As String
Dim NextMonth As String
Dim Criteria As String
With Me.lstYearSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstMonthSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstSection
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstWorkGroup
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstDepartment
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
currentMonth = Month(Date)
NextMonth = Month(Date) + 1
Criteria = " [MonthNum] in " & "(" & currentMonth & "," & NextMonth & ")"
sql = "SELECT * FROM qryPerDay WHERE" & Criteria
Forms!frmManpower1!frmqryPerDay.Form.RecordSource = sql
End Sub
ปุ่มที่ 2 โจทย์ข้อ 3 ใส่โค้ดแบบนี้

โค๊ด: [Select]

Private Sub Cmb2_Click()
Dim sql As String
Dim i As Long
With Me.lstYearSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstMonthSort
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstSection
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstWorkGroup
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
With Me.lstDepartment
    .Selected(0) = True
    For i = .ListCount To 0 Step -1
        .Selected(i) = False
    Next i
End With
sql = "SELECT * FROM qryPerDay;"
Forms!frmManpower1!frmqryPerDay.Form.RecordSource = sql
End Sub

[Tatchawin]

ขอบคุณมากครับคุณ PNR ผมทำได้แล้วครับ เจ๋งมากๆเลยครับ แต่อยากจะสอบถามเพิ่มเติมครับ พอดีเจอโจทย์เพิ่มจากเจ้านายครับ
คำถามคือ ตัว Listbox แต่ละตัวนี่เราสามารถทำให้ Row Source มันกรองเปลี่ยนตามกันได้ไหมครับ กล่าวคือ

1. ที่ lstPlant ถ้าเรากดเลือกไปที่่โรงงานใดโรงงานหนึ่ง Row Source lstDepartment จะกรองเฉพาะข้อมูลที่สัมพันธ์กับ lstPlant ให้เลือก
2. ส่วนถ้าเลือก lstPlant และ lstDepartment ที่ lstPlant ก็จะกรองเฉพาะข้อมูลที่เกี่ยวข้องมาให้เลือก
สรุปคือ เป็นเสมือน Dropdown ไล่เป็นชั้นๆลงไปครับ ซึ่งผมแบบนี้ได้ ใน combo box แต่ผมนำหลักการแบบที่ทำใน combo box มาทำไม่สำเร็จ

รบกวนคุณ PNR อีกสักรอบได้ไหมครับ ขอบคุณมากๆครับผม
ปล. ผมแนบไฟล์ที่แก้โค้ดตามที่คุณ PNR แนะนำ พร้อมกับใส่ tblOrg ที่เป็นตารางแสดงความสัมพันธ์ของ Plant, Department และ Section มาให้ครับ

[PNR]

ลองดูครับ

[Tatchawin]

ขอบคุณมากๆครับท่าน ขออภัยที่มาตอบช้านะครับ พอดีหมุนไปทำงานอีกอย่าง
น่าจะเกือบได้แล้วครับ ขอรบกวนอีกสักนิดได้ไหมครับ คือ พอเปิด Form มาผมลองกดไปที่ lstDepartment กับ lstSection เลย ปรากฎว่าเกิด Error ตามภาพ
จะต้องแก้ตัวไหนครับ ผมลองแก้เองแล้วไม่ได้ครับ

รบกวนอีกสักนิดนะครับ ขอบคุณมากๆเลยครับ

[PNR]

ใช้เงื่อนไขการเช็ค ถ้าไม่มีรายการก็ยกเลิกการทำงานเช่น
Me.lstDepartment.Selected(0) = True

แก้ไขโค้ดเป็นแบบนี้ครับ

โค๊ด: [Select]

If Me.lstDepartment.Selected(0) = True Then
    Exit Sub
    Else
    For Each varItem4 In Me.lstDepartment.ItemsSelected
        strsearch4 = strsearch4 & "," & Me!lstDepartment.ItemData(varItem4)
    Next varItem4
    If strsearch4 = vbEmpty Then
    criteria4 = Null
    Else
        strsearch4 = Right(strsearch4, Len(strsearch4) - 1)
        criteria4 = " And [DepartmentID] in (" & strsearch4 & ")"
    End If
End If
'---------------------------------------------------------------------------------------------------------
If Me.lstSection.Selected(0) = True Then
    Exit Sub
    Else
    For Each varItem5 In Me.lstSection.ItemsSelected
        strsearch5 = strsearch5 & "," & Me!lstSection.ItemData(varItem5)
    Next varItem5
    If strsearch5 = vbEmpty Then
    criteria5 = Null
    Else
        strsearch5 = Right(strsearch5, Len(strsearch5) - 1)
        criteria5 = " And [SectionID] in (" & strsearch5 & ")"
    End If
End If

[Tatchawin]

ขอบคุณครับท่าน ขออีกนิดครับ ที่ lstSection กดซ้ำหลายๆที ไม่มี Error ครับ แต่ที่ lstDepartment กดทีเดียวไม่เปนไร
แต่ถ้ากดซ้ำ2-3 ครั้งก็จะมี Error = Runtime Error '5': ขึ้นมา ตรงนี้แก้อย่างไร ครับ

เหลือตรงนี้จุดเดียว ผมคิดว่าไม่น่ามีไรเพิ่มเติมแล้วครับ
รบกวนอีกสักรอบครับ
ขอบคุณเป็นอย่างยิ่งเลยครับ 

[PNR]

ทำไมของผมไม่เป็นครับ

[Tatchawin]

ขอบคุณมากๆเลยครับคุณ PNR ผมทำได้แล้วครับ ขอบคุณสำหรับความช่วยเหลือทุกคำถามนะครับ :D