OVH Cloud OVH Cloud

AVANCER/RECULER de 10 ou 50 enregistrements par un bouton

6 réponses
Avatar
Bataille Jean-Paul
Bonjour à tous,


Dans les formulaires, en bas à gauche deux boutons "enregistrement
précédent" ou "suivant"

Jaimerais faire un bon de 10 ou 50 enregistrements quelle est la macro et
la version VBA de cette commande ?




Merci anticipé,

6 réponses

Avatar
Raymond
Bonjour.

pour avancer:
Private Sub Commande0_Click()
If Me.Recordset.AbsolutePosition + 10 < Me.RecordsetClone.RecordCount -1
Then
Me.Recordset.AbsolutePosition = Me.Recordset.AbsolutePosition + 10
End If
End Sub

pour reculer tu fais l'inverse.
--
@+
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.


"Bataille Jean-Paul" a écrit dans le message de
news:3fa4e526$0$13298$
Bonjour à tous,


Dans les formulaires, en bas à gauche deux boutons "enregistrement
précédent" ou "suivant"

Jaimerais faire un bon de 10 ou 50 enregistrements quelle est la macro et
la version VBA de cette commande ?




Merci anticipé,




Avatar
J-Pierre
Inverse de la fonction de Raymond:

Private Sub Commande0_Click()
If Me.Recordset.AbsolutePosition - 1 > Me.RecordsetClone.RecordCount + 10
Then
Me.Recordset.AbsolutePosition = Me.Recordset.AbsolutePosition - 1
End If
End Sub

Moi aussi, je suis allé à l'école...

J-Pierre
Avatar
3stone
Salut,

"Bataille Jean-Paul"
| Dans les formulaires, en bas à gauche deux boutons "enregistrement
| précédent" ou "suivant"
|
| Jaimerais faire un bon de 10 ou 50 enregistrements quelle est la macro et
| la version VBA de cette commande ?


Vas regardez ceci... je pense que c'est exactement ce qu'il te faut.

http://www.self-access.com/dynafaq/article.php3?id_articley

--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
Pierre CFI
salut mon copain
c'est vrai qu'on le voit plus l'ami Hervé :o((

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"3stone" a écrit dans le message de news: 3fa5188e$0$22186$
Salut,

"Bataille Jean-Paul"
| Dans les formulaires, en bas à gauche deux boutons "enregistrement
| précédent" ou "suivant"
|
| Jaimerais faire un bon de 10 ou 50 enregistrements quelle est la macro et
| la version VBA de cette commande ?


Vas regardez ceci... je pense que c'est exactement ce qu'il te faut.

http://www.self-access.com/dynafaq/article.php3?id_articley

--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------





Avatar
3stone
Bonjour Pierre,

"Pierre CFI"
| salut mon copain
| c'est vrai qu'on le voit plus l'ami Hervé :o((

Ici, non... mais le 15 & 16... il était là, lui... ;-)))


ps: le lien, c'était tout de même ma contribution ;o)


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
Pierre CFI
j'avais pas été chez le coiffeur :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"3stone" a écrit dans le message de news: 3fa51e39$0$1877$
Bonjour Pierre,

"Pierre CFI"
| salut mon copain
| c'est vrai qu'on le voit plus l'ami Hervé :o((

Ici, non... mais le 15 & 16... il était là, lui... ;-)))


ps: le lien, c'était tout de même ma contribution ;o)


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------