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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

22 ก.ค. 62 , 13:21:24
อ่าน 357 ครั้ง

Earth


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

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

 

22 ก.ค. 62 , 15:28:09
ตอบกลับ #1

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

 

22 ก.ค. 62 , 16:34:33
ตอบกลับ #2

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

 

22 ก.ค. 62 , 16:59:43
ตอบกลับ #3

pizza_p

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

โค๊ด: [Select]
IIf(IsNull(Me.processtxt ), "", "[material] = '" & Me.processtxt & "' And ") & _

 


บอร์ดเรียนรู้ Access สำหรับคนไทย