เพิ่มฟังก์ชั่นนี้ในฟอร์ม

Private Function buildSQL(strSQL As String, strPattern As String, col As Collection, i As Integer) As String
    If i = 1 Then
        buildSQL = strSQL & "'" & strPattern & "'" & " & '" & colCheckBox.Item(i) & "'"
        Else
            buildSQL = buildSQL & strSQL & "'" & strPattern & "'" & " & '" & colCheckBox.Item(i) & "' OR "
            Debug.Print buildSQL
            buildSQL = buildSQL(buildSQL, "*", col, (i - 1))
    End If
    
End Function

และคำสั่งสำหรับปุ่มลบข้อมูล

Private Sub Command46_Click()
Dim i As Integer
Dim strSQL As String
Dim strPattern As String
Dim tmpQuery As QueryDef

strPattern = "??????"

strSQL = "DELETE del_no FROM Q_ORDER_SELECT WHERE del_no Like "

    strSQL = buildSQL(strSQL, "*", colCheckBox, colCheckBox.Count)

    With CurrentDb
        Set tmpQuery = .CreateQueryDef("delQuery", strSQL)
        tmpQuery.Execute
        .QueryDefs.Delete tmpQuery.Name
    End With
    Set colCheckBox = Nothing

End Sub

*** หมายเหตุ
     รูปแบบเงื่อนไขการลบไม่แน่นอนจึงไม่สามารถระบุว่าจะใช้ Pattern '??????' หรือ '*' ถ้านัยสำคัญของการลบคือเลขท้าย 5 ตัว ก็อาจใช้แพทเทิร์น '*' ได้ แต่ถ้าเกิดว่า ขณะที่กำลังเก็บค่า Collection นั้น มีเลขที่เป็นจำนวน 0xxxx
เลขที่เก็บใน Collection จะมีแค่ 4 หลัก ผลกระทบก็คือ ถ้ามีข้อมูล 14443 และ 04443 ซึ่งค่าใน Collection เท่ากับ 14443, 4443 ถ้าใช้แพทเทิร์น '??????' & '14443' เรคคอร์ดจะถูกลบเพียงเรคคอร์ดเดียว แต่ถ้าใช้แพทเทิร์น '*' & '4443' เรคคอร์ดจะถูกลบออกไป 2

ขอบคุณ U&ME ครับสำหรับคำตอบ แต่ผมยอมรับไม่เก่งเรื่องคำสั่งที่ทำให้ดู ที่ผมทำโปรแกรมได้บางส่วน คือใช้ดูตัวอย่างที่เขาทำโปรแกรมไว้แล้ว แล้วเอามาแกะดูที่ละคำสั่งดู ผมรบกวนช่วยทำเป็นตัวอย่างโปรแกรมให้ดูหรือมีตัวอย่างโปรแกรมที่ทำไว้แล้วก็ได้ครับ
ส่งไปที่ accboard@gmail.com Password : accgmail