a RAYMOND ( n° enregistrement )

Aide en ligne (extrait)

Définit ou renvoie le numéro d'enregistrement relatif de l'enregistrement
actuel d'un objet Recordset.

Valeurs définies ou renvoyées
La valeur renvoyée ou définie est un entier de type Long compris entre 0 et
le nombre d'enregistrements de l'objet Recordset moins un. Elle correspond à
la position ordinale de l'enregistrement actuel dans l'objet Recordset.

Remarques
La propriété AbsolutePosition permet de placer le pointeur d'enregistrement
actuel sur un enregistrement précis à partir de sa position ordinale dans un
objet Recordset de type Feuille de réponses dynamique (Dynaset) ou
Instantané (Snapshot).

AbsolutePosition, propriété, exemple

Dans l'exemple suivant, la propriété AbsolutePosition est utilisée pour
suivre les progrès d'une boucle qui énumère tous les enregistrements
contenus dans un Recordset.

Sub AbsolutePositionX()

Dim dbsNorthwind As Database
Dim rstEmployees As Recordset
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
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Bernard" <legrain-ber@ibelgique.com> a écrit dans le message de
news:0b2e01c3a073$15a5b390$a101280a@phx.gbl...
Salut Raymond, merci d'avoir pris un peu de ton temps pour
me répondre, mais excuse moi, si j'ai de bonne notion VBA
Excel MAIS en ACCESS je patauge comme un vrai débutant.
Mon aide en ligne est coromput et je ne trouve pas la
façon d'écrire le script avec AbsolutePosition, j'ai beau
faire des truc du style:

Dim LaPosition As ADODB.Recordset
Dim i
i = LaPosition.AbsolutePosition

Rien n'y fait; pourtant ce code-ci me renvoie le nb d'eng.

Bouton1.Caption = DCount([N°], "St- Nicolas UPP", [N°] <
999999999)

ENCORE MERCI de m'aider
Bernardin

Comme je te l'ai dit Raymond je patauge, mais à force
d'écrire et d'avoir les messages d'erreurs

Dim position
position = Me.N°

N° étant le nom de champ de ma clé primaire à numérotation
auto.

ET CA MARCHE

Merci :)))

ça marche si tu n'as pas de trous , c'est-à-dire tant que tu n'annules pas
d'enregistrements. Ta clé primaire correspond actuellement mais ce ne sera
pas toujours vrai et dans le temps tu auras des décalages entre la position
absolue et la position d'un enregistrement donnée par sa clé numauto.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Bernard" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08cc01c3a07e$eee6ea60$a501280a@phx.gbl...
Comme je te l'ai dit Raymond je patauge, mais à force
d'écrire et d'avoir les messages d'erreurs

Dim position
position = Me.N°

N° étant le nom de champ de ma clé primaire à numérotation
auto.

ET CA MARCHE

Merci :)))

t'es pas idiot toi car je suis justement entraint de me
dire comment faire.

car exemple mon enrg. 53 n'existe plus je passe de 52 à 54

et t'as raison c'est décalé.

Alors ? je cherche

Mais t'est un pot