ACC: DFirst() and DLast() Functions Return Unexpected Records (109380)

   DFirst and DLast return values from the first and last occurrence
   according to the order of records in domain. If domain is an indexed
   table, the order follows the current index. Otherwise, the order
   follows the actual order of the records.
				

RESOLUTION

The following two sample Access Basic functions, GetFirst() and GetLast(), can be used in place of the DFirst() and DLast() functions to return the first and last records in the sorted domain as you expect.

NOTE: In the following sample code, an underscore (_) is used as a line- continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

   Option Explicit

   Function GetFirst (Expr$, Domain$, Criteria$)
      Dim MyDB As Database
      Dim MyDyna As Dynaset

      On Error GoTo Err_GetFirst

      Set MyDB = CurrentDB()
      Set MyDyna = MyDB.CreateDynaset(Domain$)

      If Len(Criteria$) > 0 Then
         MyDyna.Filter = Criteria$
         Set MyDyna = MyDyna.CreateDynaset()
      End If

      MyDyna.MoveFirst
      GetFirst = MyDyna(Expr$)

   Bye_GetFirst:

      Exit Function

   Err_GetFirst:
      GetFirst = Null
      Resume Bye_GetFirst

   End Function

   Function GetLast (Expr$, Domain$, Criteria$)
      Dim MyDB As Database
      Dim MyDyna As Dynaset

      On Error GoTo Err_GetLast

      Set MyDB = CurrentDB()
      Set MyDyna = MyDB.CreateDynaset(Domain$)

      If Len(Criteria$) > 0 Then
         MyDyna.Filter = Criteria$
         Set MyDyna = MyDyna.CreateDynaset()
      End If


      MyDyna.MoveLast
      GetLast = MyDyna(Expr$)

   Bye_GetLast:
      Exit Function

   Err_GetLast:
      GetLast = Null
      Resume Bye_GetLast

   End Function