Propiedad Recordset2.AbsolutePosition (DAO)

Se aplica a: Access 2013, Office 2013

Establece o devuelve el número de registro relativo del registro actual de un objeto Recordset2.

Sintaxis

expression .AbsolutePosition

Expresión Variable que representa un objeto Recordset2 .

Comentarios

Puede usar la propiedad AbsolutePosition para colocar el puntero del registro actual en un registro específico basado en su posición ordinal en un objeto Recordset2 de tipo Dynaset o Snapshot. Puede también determinar el número del registro actual comprobando del valor de la propiedad AbsolutePosition.

Como el valor de la propiedad AbsolutePosition se basa en cero (es decir, un valor de 0 hace referencia al primer registro en el objeto Recordset2), no puede establecerlo en un valor mayor o igual al número de registros rellenados; si lo hace se producirá un error capturable. Puede determinar el número de registros rellenados en el objeto Recordset2 comprobando el valor de la propiedad RecordCount. El valor máximo permitido para la propiedad AbsolutePosition es el valor de la propiedad RecordCount menos 1.

Si no hay ningún registro actual, como cuando no hay registros en el objeto Recordset2 , AbsolutePosition devuelve –1. Si el registro actual se elimina, el valor de la propiedad AbsolutePosition no se define y se producirá un error capturable si se le hace referencia. Los registros nuevos se agregan al final de la secuencia.

No debería usar esta propiedad como un número de registro suplente. Los marcadores son todavía el método recomendado para retener cierta posición y volver a ella, y son la única manera de colocar el registro actual a través de todos los tipos de objetos Recordset2. En particular, la posición de un registro cambia cuando se eliminan uno o más registros anteriores. Además, no se tiene la certeza de que un registro tenga exactamente la misma posición si el objeto Recordset2 se vuelve a crear porque no se garantiza el orden de los registros individuales en un objeto Recordset a no ser que se cree con una instrucción SQL mediante el uso de una cláusula ORDER BY.

Nota:

• Al establecer la propiedad AbsolutePosition en un valor mayor que cero en un objeto Recordset2 recién abierto pero sin rellenar, se provoca un error capturable. Primero, rellene el objeto Recordset2 mediante el método MoveLast.
• La propiedad AbsolutePosition no está disponible en objetos Recordset2 de tipo forward-only o en objetos Recordset2 abiertos desde consultas de paso a través en bases de datos ODBC conectadas al motor de base de datos de Microsoft Access.

Ejemplo

En este ejemplo se usa la propiedad AbsolutePosition para realizar un seguimiento del proceso de un bucle que enumera todos los registros de un objeto Recordset2.

    Sub AbsolutePositionX() 
     
       Dim dbsNorthwind As Database 
       Dim rstEmployees As Recordset2 
       Dim strMessage As String 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
       ' AbsolutePosition only works with dynasets or snapshots. 
       Set rstEmployees = _ 
          dbsNorthwind.OpenRecordset("Employees", _ 
          dbOpenSnapshot) 
     
       With rstEmployees 
          ' Populate Recordset. 
          .MoveLast 
          .MoveFirst 
     
          ' Enumerate Recordset. 
          Do While Not .EOF 
             ' Display current record information. Add 1 to  
             ' AbsolutePosition value because it is zero-based. 
             strMessage = "Employee: " & !LastName & vbCr & _ 
                "(record " & (.AbsolutePosition + 1) & _ 
                " of " & .RecordCount & ")" 
             If MsgBox(strMessage, vbOKCancel) = vbCancel _ 
                Then Exit Do 
             .MoveNext 
          Loop 
     
          .Close 
       End With 
     
       dbsNorthwind.Close 
     
    End Sub