เคยดาว์นโหลด DynamicQuery ไปลองดูแล้วครับ แล้วผมนำเอาไปปรับปรุงแต่ว่า มันมีปัญญาตรงที่เวลาเลือก คอนดิชั่นแล้วกด รันคิวรี่ แล้วจะเกิด error ขึ้นนะครับ รบกวนช่วยดูด้วยนะครับ 
 
Option Compare Database 
Option Explicit 
 
Private Sub cmdExit_Click() 
On Error GoTo Err_cmdExit_Click 
 
 
    DoCmd.Close 
 
Exit_cmdExit_Click: 
    Exit Sub 
 
Err_cmdExit_Click: 
    MsgBox Err.Description 
    Resume Exit_cmdExit_Click 
     
End Sub 
 
Private Sub cmdMakeQuery_Click() 
Dim dbs As Database, qdf As QueryDef 
Dim strSQL As String 
 
strSQL = "" 
 
' 1. Check if cmbModelName empty or not 
If Me.cmbModelName = "" Or IsNull(Me.cmbModelName) Then 
    ' Do nothing here 
Else 
    strSQL = strSQL & " qryChooseRawData.MODEL NAME = '" & Me.cmbModelName & "' " 
End If 
 
' 2. Combo box cmbChassis 
If Me.cmbChassis = "" Or IsNull(Me.cmbChassis) Then 
    ' Do nothing here 
Else 
    If strSQL = "" Then 
        strSQL = strSQL & " qryChooseRawData.Chassis = '" & Me.cmbChassis & "' " 
    Else 
        strSQL = strSQL & " And qryChooseRawData.Chassis = '" & Me.cmbChassis & "' " 
    End If 
End If 
 
' 3. Combo box cmbBoardType 
If Me.cmbBoardType = "" Or IsNull(Me.cmbBoardType) Then 
    ' Do nothing here 
Else 
    If strSQL = "" Then 
        strSQL = strSQL & " qryChooseRawData.Board Name = '" & Me.cmbBoardType & "' " 
    Else 
        strSQL = strSQL & " And qryChooseRawData.Board Name = '" & Me.cmbBoardType & "' " 
    End If 
End If 
 
' 4. Combo box cmbDefectCode 
If Me.cmbDefectCode = "" Or IsNull(Me.cmbDefectCode) Then 
    ' Do nothing here 
Else 
    If strSQL = "" Then 
        strSQL = strSQL & " qryChooseRawData.Defect Code = '" & Me.cmbDefectCode & "' " 
    Else 
        strSQL = strSQL & " And qryChooseRawData.Defect Code = '" & Me.cmbDefectCode & "' " 
    End If 
End If 
 
' 5. Combo box cmbRefPart 
If Me.cmbRefPart = "" Or IsNull(Me.cmbRefPart) Then 
    ' Do nothing here 
Else 
    If strSQL = "" Then 
        strSQL = strSQL & " qryChooseRawData.Part Ref = '" & Me.cmbRefPart & "' " 
    Else 
        strSQL = strSQL & " And qryChooseRawData.Part Ref = '" & Me.cmbRefPart & "' " 
    End If 
End If 
 
' 6. Combo box cmbCustomerName 
If Me.cmbCustomerName = "" Or IsNull(Me.cmbCustomerName) Then 
    ' Do nothing here 
Else 
    If strSQL = "" Then 
        strSQL = strSQL & " qryChooseRawData.Customer = '" & Me.cmbCustomerName & "' " 
    Else 
        strSQL = strSQL & " And qryChooseRawData.Customer = '" & Me.cmbCustomerName & "' " 
    End If 
End If 
 
' Check if txtStartDate empty or not 
If Me.txtStartDate = "" Or IsNull(Me.txtStartDate) Then 
    ' Do nothing here 
Else 
    If Me.txtEndDate = "" Or IsNull(Me.txtEndDate) Then 
        If strSQL = "" Then 
            strSQL = strSQL & "qryChooseRawData.COMPLETE DATE >= #" & Me.txtStartDate & "# " 
        Else 
            strSQL = strSQL & " And qryChooseRawData.COMPLETE DATE >= #" & Me.txtStartDate & "# " 
        End If 
    Else 
        If strSQL = "" Then 
            strSQL = strSQL & " qryChooseRawData.COMPLETE DATE Between #" & Me.txtStartDate & "# And #" & Me.txtEndDate & "# " 
        Else 
            strSQL = strSQL & " And qryChooseRawData.COMPLETE DATE Between #" & Me.txtStartDate & "# And #" & Me.txtEndDate & "# " 
        End If 
    End If 
End If 
 
If Me.txtStartDate = "" Or IsNull(Me.txtStartDate) Then 
    If Me.txtEndDate <> "" Or Not IsNull(Me.txtEndDate) Then 
        If strSQL = "" Then 
            strSQL = strSQL & " qryChooseRawData.COMPLETE DATE <= #" & Me.txtEndDate & "# " 
        Else 
            strSQL = strSQL & " And qryChooseRawData.COMPLETE DATE <= #" & Me.txtEndDate & "# " 
        End If 
    Else 
        ' Do nothing 
    End If 
End If 
 
If strSQL = "" Then 
strSQL = "SELECT * " _ 
        & "FROM qryChooseRawData;" 
Else 
strSQL = "SELECT *  " _ 
        & "FROM qryChooseRawData WHERE " & strSQL & ";" 
End If 
 
Set dbs = CurrentDb 
 
' Check if the qrySQL query exists or not, if so, delete it 
For Each qdf In dbs.QueryDefs 
    If qdf.Name = "qrySQL" Then 
        dbs.QueryDefs.Delete qdf.Name 
    End If 
Next qdf 
     
' Create the query named srySQL 
Set qdf = dbs.CreateQueryDef("qrySQL", strSQL) 
 
' Open the newly created query 
DoCmd.OpenQuery "qrySQL", acViewNormal, acReadOnly 
 
Set dbs = Nothing 
 
End Sub 
 
 
พอเรากำหนดคอนดิชั่นที่ chassis อันเดียว หรือ ไม่กำหนดอะไรเลย จะรันได้ไม่มี error  
แต่พอเลือกคอนดิชั่นอื่น ด้วย นี่สิ เกิด error ขึ้นที่  
' Create the query named srySQL 
Set qdf = dbs.CreateQueryDef("qrySQL", strSQL) 
ทำไงดีอ่ะครับ.....