ผมไม่ทราบว่าจะต้อง เขียนโค้ด order by เข้าไปอย่างไรครับ เพื่อให้Field [File_Name] ของ SubForm ชื่อ frmFilterFile เรียงลำดับตัวอักษร
ผมเพิ่งฝึกเขียนได้ไม่นานครับ พยายามแกะ และหัดเขียน โค้ดข้างล่างก็ดูตัวอย่างของคนอื่นมาปรับแต่งเอาด้วยครับ
Private Sub SearchCombo()
Dim sql As String
If IsNull(Me.Combo1) Then
sql = "SELECT * FROM qryFilterFileName"
ElseIf Not IsNull(Me.Combo1) Then
sql = "SELECT * FROM qryFilterFileName WHERE [Project_Code] = '" & Me.Combo1 & "'"
End If
Forms!frmFilterFileByCombo!FrmFilterFile.Form.RecordSource = sql
Forms!frmFilterFileByCombo!FrmFilterFile.Form.Requery
End Sub
รายละเอียดฟอร์มเป็นดังข้างล่างครับ
ผมตั้ง Combo1 ไว้เพื่อเลือกรหัสโครงการ เมื่อเลือกแล้วข้อมูลจาก qryFilterFileName จะถูกกรองและแสดงใน Form ชื่อ frmFilterFileByCombo ซึ่งในนี้ได้แทรก SubForm ชื่อ FrmFilterFile ไว้ เพื่อให้แสดงตารางไว้ 3 Fields
เมื่อกดเลือกรหัสโครงการที่ Combo1แล้ว จะได้ผลลัพธ์ดังข้างล่าง
ข้อมูลในฟิลด์ชื่อไฟล์ [File_Name] ยังไม่ได้เรียงลำดับ ผมไม่ทราบว่าจะต้องแทรก order by [File_Name] ไว้ตรงไหน อย่างไรครับ ไม่ทราบจริง ๆ ครับ พยายามแกะหามาครึ่งวันแล้วครับ TT
ขอรบกวนด้วยครับ
ขอบพระคุณอย่างสูงครับ
