ผมต้องการจัดเรียงลำดับซอย เช่น กวางทอง1,1/2,......100,100/1
                                        ทองหลาง1,2/1.......100,100/3
ต้องการเขียนคิวรีในการจัดเรียงซอย เป็นเช่น กวางทอง1,กวางทอง2 ฯลฯ

ขอบพระคุณมากครับ

มีตัวอย่างไหมครับ อยากได้พอดี

ท่านใดมีตัวอย่างช่วยลงเพื่อนำมาใช้งาน...ผมสนใจ

Private Sub TextFind_AfterUpdate()
On Error GoTo Err_Find
     Dim CutFName As String
     Dim CutLName As String
     Dim len_name As Byte
      If IsNumeric(TextFind) Then     'MsgBox "เป็นตัวเลข"
        DoCmd.ApplyFilter , "รหัสประจำตัว  like '" & [TextFind] & "*'OR เลขประจำตัวประชาชน  like '" & [TextFind] & "*'"
        len_name = 0
        End If
     If Not IsNumeric(TextFind) Then   'MsgBox "เป็นตัวหนังสือ"
         len_name = InStr([TextFind], " ")
            If len_name > 0 Then
                CutFName = Left([TextFind], [len_name] - 1)
                CutLName = Right([TextFind], Len(TextFind) - [len_name])
                DoCmd.ApplyFilter , "ชื่อ like '" & [CutFName] & "*' and นามสกุล Like '" & [CutLName] & "*'"
            Else
                DoCmd.ApplyFilter , "ชื่อ like '" & [TextFind] & "*' Or นามสกุล Like '" & [TextFind] & "*'"
            End If
    End If
    TextFind = Null
    TextFind.SetFocus
    Exit Sub
Err_Find:
   TextFind = Null
   TextFind.SetFocus
End Sub

เขียนคำสั่งอย่างไรครับ รบกวนท่านด้วย

ขอพระคุณมากครับท่านอาจารย์แหลมทอง ผมทำสำเร็จตามคำแนะนำของท่านแล้ว

รบกวนท่าน LAEMTHONG ด้วยครับ

ยังไม่ประสบความสำเร็จเลยครับ ผมขอศึกษา EXCELL ก่อนครับ ขอความกรุณาเพิ่มรายละเอียดในารดำเนินการครับ