Aide pour access
bacez1
-
BartLogan -
BartLogan -
Bonjour,
j'ai une base de donnees access qui contient des noms, prenoms etc...
lorsque je crée un etat basé sur une requete. je souhaiterais que access affiche une colonne suplementaire ou il numerotera les enregistrements trouvés de 1 au nombres d'enregistrements trouvés.
exemple:
1 xxxxx
2 xxxxx
3 xxxxx
.
.
.
10 xxxxx
comment le faire ?
merci pour votre aide
j'ai une base de donnees access qui contient des noms, prenoms etc...
lorsque je crée un etat basé sur une requete. je souhaiterais que access affiche une colonne suplementaire ou il numerotera les enregistrements trouvés de 1 au nombres d'enregistrements trouvés.
exemple:
1 xxxxx
2 xxxxx
3 xxxxx
.
.
.
10 xxxxx
comment le faire ?
merci pour votre aide
1 réponse
Bonjour Bacez1,
Vous ne pouvez pas faire ce genre de chose directement dans une requête.
En revanche, en utilisant le langage VBA et le modèle objet DAO vous pouvez vous approcher de la solution.
Je vous donne une piste en supposant que la table qui contient les noms, prénoms, etc... s'appelle "tblMesAmis":
Dans un module standard écrivez :
' === Début de code ===
Dim dbs as DAO.database
Dim rs as DAO.recordset
Dim lCpt as long
set dbs = currentdb() ' La base de données courante
set rs = dbs.openrecordset("tblMesAmis", dbopensnapshot)
lCpt = 0
with rs
if .recordcount > 0 then
.movefirst
do until .eof
lCpt = lCpt + 1
debug.print lCpt & " " & !ChampNom & " " & !ChampPrenom
debug.print .AbsolutePosition & " " & !ChampNom & " " & !ChampPrenom
.movenext
loop
end if
end with
set rs = nothing
set dbs = nothing
' === Fin de code ===
En espérant vous avoir apporté un début de solution.
Cordialement,
BartLogan
Vous ne pouvez pas faire ce genre de chose directement dans une requête.
En revanche, en utilisant le langage VBA et le modèle objet DAO vous pouvez vous approcher de la solution.
Je vous donne une piste en supposant que la table qui contient les noms, prénoms, etc... s'appelle "tblMesAmis":
Dans un module standard écrivez :
' === Début de code ===
Dim dbs as DAO.database
Dim rs as DAO.recordset
Dim lCpt as long
set dbs = currentdb() ' La base de données courante
set rs = dbs.openrecordset("tblMesAmis", dbopensnapshot)
lCpt = 0
with rs
if .recordcount > 0 then
.movefirst
do until .eof
lCpt = lCpt + 1
debug.print lCpt & " " & !ChampNom & " " & !ChampPrenom
debug.print .AbsolutePosition & " " & !ChampNom & " " & !ChampPrenom
.movenext
loop
end if
end with
set rs = nothing
set dbs = nothing
' === Fin de code ===
En espérant vous avoir apporté un début de solution.
Cordialement,
BartLogan
