มีคนถามคำถามนี้ไว้ที่
http://www.officevba.com/forums/topic.asp?TOPIC_ID=1402&FORUM_ID=17&CAT_ID=1&Topic_Title=sort+ascending&Forum_Title=Microsoft+Access&M=0
คำถามมีดังนี้

Hi,i´m stack :(
I have text field (orderNo)what is come from formula
Me.[OrderNo] = Me.VesselID.Column(1) & " - " & Me.CategoryID.Column(1) & Me.Order & "\" & Me.OrderYearID.Column(1)
and i want record to be sort Ascending in datasheet view but result is come lake this:
dfm - d1/02
dfm - d10/02
dfm - d11/02
dfm - d12/02
dfm - d13/02
dfm - d2/02
dfm - d20/02
dfm - d21/02 and ect,ect...
what i nead is :
dfm - d1/02
dfm - d2/02
dfm - d3/02
dfm - d4/02
dfm - d5/02
dfm - d11/02
dfm - d12/02
dfm - d13/02
tip. all field are text field.
so how to make query or vb code what is gona sort ascending ?
Please Help!!!


ผมเลยได้ตอบเขาไปดังนี้

You have to add one column to your query. Then sort it based on this column. My table is called Table2 and the new column called Sorting. Here´s the SQL of the query.

SELECT Table2.OrderNo, Val(Mid([OrderNo],InStr([OrderNo],"-")+3,(InStr([OrderNo],"/")-(InStr([OrderNo],"-")+3)))) AS Sorting
FROM Table2
ORDER BY Val(Mid([OrderNo],InStr([OrderNo],"-")+3,(InStr([OrderNo],"/")-(InStr([OrderNo],"-")+3))));

This should sort the data the way you want.
Tim K.


ตัวอย่างอยู่ที่
http://agserver.kku.ac.th/basiceng/sortint97.zip ครับ