คิวรี่ข้อมูลจากtextboxค้นหาช่วงวันที่ และฟิลด์อื่นๆ

[Earth]

ต้องการคิวรี่ข้อมูลจากหน้าฟอร์ม ค้นหารายการจากTextbox วันที่.... ถึงวันที่.... และเงื่อนไขฟิลด์อื่นๆ
รบกวนขอแนวทางหน่อยค่ะ

ตัวอย่างฟอร์ม

[pizza_p]

Private Sub Search_Click()

Dim stCriteria As String

stCriteria = IIf(IsNull(Me.PeriodDateStart), "", "[tblFieldDate] >= " & CDbl(Me.PeriodDateStart) & " And ") & _
                 IIf(IsNull(Me.PeriodDateEnd), "", "[tblFieldDate] <= " & CDbl(Me.PeriodDateEnd) & " And ") & _
                 IIf(IsNull(Me.ProcessNo), "", "[tblFieldProcessNo] = " & Me.ProcessNo & " And ") & _
                 IIf(IsNull(Me.Person), True, "[tblFieldPerson] = '" & Me.Person & "'")

Me.subForm.Form.RecordSource = "SELECT tblField1, tblField2, ... FROM tblTable WHERE " & stCriteria

End Sub

[Earth]

ลองทำดูติดเออเร่อค่ะ รบกวนช่วยดูให้หน่อยนะคะ

Private Sub Search_Click()

Dim stCriteria As String

stCriteria = IIf(IsNull(Me.PeriodDateStart), "", "[tblFieldDate] >= " & CDbl(Me.PeriodDateStart) & " And ") & _
                 IIf(IsNull(Me.PeriodDateEnd), "", "[tblFieldDate] <= " & CDbl(Me.PeriodDateEnd) & " And ") & _
                 IIf(IsNull(Me.ProcessNo), "", "[tblFieldProcessNo] = " & Me.ProcessNo & " And ") & _
                 IIf(IsNull(Me.Person), True, "[tblFieldPerson] = '" & Me.Person & "'")

Me.subForm.Form.RecordSource = "SELECT tblField1, tblField2, ... FROM tblTable WHERE " & stCriteria

End Sub

[pizza_p]

material type เป็น text ต้องแก้เป็นแบบนี้ครับ (ใส่เครื่องหมาย single quote เพิ่มเข้าไปเมื่อ data type เป็น Text)

โค๊ด: [Select]

IIf(IsNull(Me.processtxt ), "", "[material] = '" & Me.processtxt & "' And ") & _