Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 21/03/2011, 22h39   #1
Futur Membre du Club
 
Inscription : octobre 2006
Messages : 200
Détails du profil
Informations forums :
Inscription : octobre 2006
Messages : 200
Points : 18
Points : 18
Par défaut trouver le numero d"un enregistrement avec recordset

bonjour,

j'ouvre un recordset contenant une requete ssql comme ci -dessous :


Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ssql= " select * from client order by nom" 
 
Set rs = CurrentDb.OpenRecordset(ssql)
 
While (Not rs.EOF)
 
     ....
 
 
 
rs.MoveNext
 
Wend

et je souhaiterais savoir s'il etait possible de connaitre le numéro d'enregistrement apres chaque rs.movenext et en particulier de savoir qu'oin est au dernier enregistremnt (bien que le while not rs.eof s'arete au dernier enregistremnt) ? faut il creer une variable et incrementerde 1 a chaque fois qu'on change d'enregistrement?
moimemessssssssss est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/03/2011, 05h04   #2
Rédacteur/Modérateur
 
Avatar de Philippe JOCHMANS
 
Homme Philippe JOCHMANS
Développeur informatique
Inscription : mai 2005
Messages : 17 613
Détails du profil
Informations personnelles :
Nom : Homme Philippe JOCHMANS
Âge : 44
Localisation : France, Loir et Cher (Centre)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Communication - Médias

Informations forums :
Inscription : mai 2005
Messages : 17 613
Points : 30 968
Points : 30 968
Envoyer un message via MSN à Philippe JOCHMANS Envoyer un message via Skype™ à Philippe JOCHMANS
Bonjour

Regardes du coté de la propriété AbsolutePosition du recordset.

Code :
MsgBox rs.AbsolutePosition + 1
Philippe
__________________
Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
Si vous pensez commencer sans un livre, oublier : livres pour débuter
Vous pouvez consulter mes articles sur Access et PowerPoint
Le blog Office.

Inutile de m'envoyer un MP pour des questions techniques ou de me relancer , je n'y répondrais pas.
Philippe JOCHMANS est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/03/2011, 11h33   #3
Membre Expert
 
Avatar de keita
 
Homme
Inscription : novembre 2002
Messages : 879
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Côte d'Ivoire

Informations forums :
Inscription : novembre 2002
Messages : 879
Points : 1 015
Points : 1 015
Envoyer un message via MSN à keita
bonjour
Citation:
..en particulier de savoir qu'oin est au dernier enregistremnt ..
En addition de Phillipe:
Code :
MsgBox rs.AbsolutePosition + 1 & " sur " & rs.recordcount
Prendre soin de mettre ceci
Code :
1
2
rs.movelast
rs.moveFirst
Avant le While de façon à compter les enreg et à se repositionner sur le 1er et les parcourir.

@+
keita est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 22/03/2011, 21h41   #4
Futur Membre du Club
 
Inscription : octobre 2006
Messages : 200
Détails du profil
Informations forums :
Inscription : octobre 2006
Messages : 200
Points : 18
Points : 18
bonsoir,

merci pour vos reponse qui m'aident
faut il obligatoirement mettre le rs.movefirst pour se mettre sur le 1er enregistrement avant le while?

merci
moimemessssssssss est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/03/2011, 09h17   #5
Membre Expert
 
Avatar de keita
 
Homme
Inscription : novembre 2002
Messages : 879
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Côte d'Ivoire

Informations forums :
Inscription : novembre 2002
Messages : 879
Points : 1 015
Points : 1 015
Envoyer un message via MSN à keita
bonjour
Je répondrai oui.
Le rs.moveLast te permet de compter le nbre d'enreg. contenu dans ton recordset en allant se positionner sur le dernier; sans le rs.movefirst, access restera sur ce dernier enreg. et rs.EOF sera vrai et donc tu ne rentreras pas dans la boucle While (Not rs.EOF).
Néanmoins essaies toujours.

@+
keita est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 23h17.


 
 
 
 
Partenaires

Hébergement Web