Recordset2.PercentPosition-Eigenschaft (DAO)

Gilt für: Access 2013, Office 2013

Legt einen Wert fest, der die ungefähre Position des aktuellen Datensatzes (aktueller Datensatz) im Recordset -Objekt basierend auf einem Prozentwert der Datensätze im Recordset angibt, oder gibt diesen Wert zurück.

Syntax

Ausdruck . PercentPosition

Ausdruck Eine Variable, die ein Recordset2-Objekt darstellt.

Hinweise

To indicate or change the approximate position of the current record in a Recordset object, you can check or set the PercentPosition property. When working with a dynaset- or snapshot-type Recordset object opened directly from a base table, first populate the Recordset object by moving to the last record before you set or check the PercentPosition property. If you use the PercentPosition property before fully populating the Recordset object, the amount of movement is relative to the number of records accessed as indicated by the RecordCount property setting. You can move to the last record by using the MoveLast method.

Nachdem Sie die PercentPosition-Eigenschaft auf einen Wert festgelegt haben, wird der Datensatz an der ungefähren Position, die diesem Wert entspricht, aktuell, und die PercentPosition-Eigenschaft wird auf einen Wert zurückgesetzt, der die ungefähre Position des aktuellen Datensatzes widerspiegelt. Wenn Ihr Recordset-Objekt beispielsweise nur fünf Datensätze enthält und Sie den Wert der PercentPosition-Eigenschaft auf 77 festlegen, kann der von der PercentPosition-Eigenschaft zurückgegebene Wert 80 und nicht 77 sein.

Die PercentPosition-Eigenschaft gilt für alle Typen von Recordset-Objekten mit Ausnahme von Recordset-Objekten vom Vorwärtstyp oder Recordset-Objekten , die aus Passthrough-Abfragen für Remotedatenbanken geöffnet werden.

Sie können die PercentPosition-Eigenschaft mit einer Bildlaufleiste auf einem Formular oder in einem Textfeld verwenden, um die Position des aktuellen Datensatzes in einem Recordset-Objekt anzugeben.

Beispiel

In diesem Beispiel wird die PercentPosition-Eigenschaft verwendet, um die Position des aktuellen Datensatzzeigers relativ zum Anfang des Recordset-Objekts anzugeben.

    Sub PercentPositionX() 
     
     Dim dbsNorthwind As Database 
     Dim rstProducts As Recordset2 
     Dim strFind As String 
     Dim strMessage As String 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     ' PercentPosition only works with dynasets or snapshots. 
     Set rstProducts = dbsNorthwind.OpenRecordset( _ 
     "SELECT ProductName FROM Products " & _ 
     "ORDER BY ProductName", dbOpenSnapshot) 
     
     With rstProducts 
     ' Populate the Recordset. 
     .MoveLast 
     .MoveFirst 
     
     Do While True 
     ' Show current record information and ask user 
     ' for input. 
     strMessage = "Product: " & !ProductName & vbCr & _ 
     "The record pointer is " & _ 
     Format(.PercentPosition, "##0.0") & _ 
     "% from the " & vbCr & _ 
     "beginning of the Recordset." & vbCr & _ 
     "Please enter a character search string " & _ 
     "for a product name." 
     strFind = Trim(InputBox(strMessage)) 
     If strFind = "" Then Exit Do 
     
     ' Try to find a record matching the search string. 
     .FindFirst "ProductName >= '" & strFind & "'" 
     If .NoMatch Then .MoveLast 
     Loop 
     
     .Close 
     End With 
     
     dbsNorthwind.Close 
     
    End Sub