Recordset.Sort方法不排序

Question

我第一次使用.Sort，但從谷歌搜索以下應該工作，但調試打印輸出不排序。

Function SortByYear(ByVal z As DAO.Recordset) As String 
Dim mySortedRS As DAO.Recordset 
z.Sort = "Year" 
Set mySortedRS = z 
    Do 
     Debug.Print mySortedRS!Year 
     mySortedRS.MoveNext 
    Loop Until mySortedRS.EOF 
Set mySortedRS = Nothing 
End Function 

Answer 1

當你

Set mySortedRS = z 

沒有創建一個新的Recordset對象，你只是創建指向現有Recordset對象的新變量。要創建一個新的（排序）Recordset你需要使用

Set mySortedRS = z.OpenRecordset 

欲瞭解更多信息，請參閱

Recordset.Sort Property (DAO)