สอบถามครับ
คือสร้างโปรแกรมพิมพ์งานตามวันที่ที่เราป้อนข้อมูลเข้าไป
แต่ในเวลาที่เราคีย์ข้อมูลเราใส่วันที่สลับกันไปกันมา
เวลาสั่งพิมพ์ในรายงานก็ไม่สามารถเรียงตามวันที่ได้
แต่จะออกมาตามที่เราคีย์เข้าไป

ทำอย่างไรให้ในรายงานออกมาเรียงตามวันที่ครับ
ตัวอย่างเช่น เราคีย์ข้อมูล
1. 16/5/2553
2.17/5/2553
3.10/5/2553
4.1/5/2553

ต้องการให้ในรายงานเวลาเราสั่งพิมพ์ตามโปรแกรมที่สร้างออกมาเรียงวันที่ ดังนี้
1/5/2553
10/5/2553
16/5/25531
7/5/2553

เพราะตอนนี้เวลาเราสั่งพิมพ์มันจะออกมาที่เราป้อนข้อมูลไปครับ




Private Sub cmdweek_Click()
'Sets the Date From and Date To text boxes
'to show complete working week (Mon - Fri)
    
    Dim today

    today = Weekday(date)
    
    Me!txtdatefrom = DateAdd("d", (today * -1) + 2, date)
    Me!txtDateTo = DateAdd("d", 6 - today, date)

End Sub

Private Sub cmdmonth_Click()
'Sets the Date From and Date To text boxes
'to show complete month (from start to end of current month)

    Me!txtdatefrom = CDate("01/" & Month(date) & "/" & Year(date))
    Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtdatefrom))

End Sub

Private Sub cmdyear_Click()
'Sets the Date From and Date To text boxes
'to show complete current year

    Me!txtdatefrom = CDate("01/01/" & Year(date))
    Me!txtDateTo = DateAdd("d", -1, DateAdd("yyyy", 1, Me!txtdatefrom))
    
End Sub
Private Sub cmdReport_Click()
    On Error GoTo Err_cmdReport_Click

    Dim stDocName As String

    stDocName = "rptDateParameterReport"
    
'Check values are entered into Date From and Date To text boxes
'if so run report or cancel request

    If Len(Me.txtdatefrom & vbNullString) = 0 Or Len(Me.txtDateTo & vbNullString) = 0 Then
        MsgBox "¡ÃسÒÃкØÇѹ·ÕèËÃ×ÍàÅ×Í¡ÃÒ¡Ò÷Õèµéͧ¡ÒþÔÁ¾ìÃÒ§ҹ", _
               vbInformation, "¤Ø³äÁèä´éÃкØÇѹ·Õè..."
        Exit Sub
    Else
        DoCmd.OpenReport stDocName, acPreview
    End If
Exit_cmdReport_Click:
    Exit Sub

Err_cmdReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdReport_Click

End Sub

ตัวอย่างโปรแกรม