Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access [page] de [pages]

[page] de [pages]

11 réponses
Avatar
Stef
Bonjour,



Quelle formule utiliser pour signaler sur quel enregistrement je me trouve,
de la même manière que le fait les "boutons de déplacements" dans le
formulaire.

J'aimerais utiliser un affichage plus explicite dans les sous formulaires en
marquant fiche 1/4, 2/4 etc.

Je trouve que la petite barre du dessous n'est pas très visible et peut
porter à confusion avec celle du formulaire.



Merci

Stéf
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Eric
Bonjour,

Tu mets une Etiquette (ou label) avec un espace saisi dans le sous-form
en entête ou en pied de formulaire sous réserve qu'il ne soit pas en
mode feuille de données et sur l'évènement sur Activation du sous-form :
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _
& "/" & Me.Recordset.RecordCount
End Sub

Bonjour,



Quelle formule utiliser pour signaler sur quel enregistrement je me trouve,
de la même manière que le fait les "boutons de déplacements" dans le
formulaire.

J'aimerais utiliser un affichage plus explicite dans les sous formulaires en
marquant fiche 1/4, 2/4 etc.

Je trouve que la petite barre du dessous n'est pas très visible et peut
porter à confusion avec celle du formulaire.



Merci

Stéf




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Stef
Bonjour,
Je n'y arrive pas, je ne sais pas différencier les nom des fonctions et des
noms d'exemples comme: NomLabel et "fiches "
J'ai bien mis une étiquette au nom de NomLabel en entête du sous formulaire,
et mis en activivation ce sous formulaire:

Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _ & "/" &
Me.Recordset.RecordCount

End Sub

Y a-t-il des crochet à mettre, je ne sais pas.
Merci
Stéf

"Eric" a écrit dans le message de news:
%
Bonjour,

Tu mets une Etiquette (ou label) avec un espace saisi dans le sous-form en
entête ou en pied de formulaire sous réserve qu'il ne soit pas en mode
feuille de données et sur l'évènement sur Activation du sous-form :
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _
& "/" & Me.Recordset.RecordCount
End Sub

Bonjour,



Quelle formule utiliser pour signaler sur quel enregistrement je me
trouve, de la même manière que le fait les "boutons de déplacements" dans
le formulaire.

J'aimerais utiliser un affichage plus explicite dans les sous formulaires
en marquant fiche 1/4, 2/4 etc.

Je trouve que la petite barre du dessous n'est pas très visible et peut
porter à confusion avec celle du formulaire.



Merci

Stéf




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Eric
Bonjour,

Tu as bien un label nommé NomLabel dans lequel tu as saisi un espace ?
(tu peux nommer ce label comme bon te semble ou presque, par exemple
lblAffichage, le tout est de connaitre son nom pour le code).

Dans la procédure Activation du sous-formulaire:
Copies ceci en admettant que NomLabel est bien le nom du contrôle Label.
Tout sur une ligne entre Private Sub Form_Current() et End Sub:
Me.NomLabel = "Fiche " & Me.CurrentRecord & "/" & Me.Recordset.RecordCount
(le retour à la ligne est du au lecteur de News)

OK ? sinon quel message as-tu ?


Bonjour,
Je n'y arrive pas, je ne sais pas différencier les nom des fonctions et des
noms d'exemples comme: NomLabel et "fiches "
J'ai bien mis une étiquette au nom de NomLabel en entête du sous formulaire,
et mis en activivation ce sous formulaire:

Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _ & "/" &
Me.Recordset.RecordCount

End Sub

Y a-t-il des crochet à mettre, je ne sais pas.
Merci
Stéf

"Eric" a écrit dans le message de news:
%

Bonjour,

Tu mets une Etiquette (ou label) avec un espace saisi dans le sous-form en
entête ou en pied de formulaire sous réserve qu'il ne soit pas en mode
feuille de données et sur l'évènement sur Activation du sous-form :
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _
& "/" & Me.Recordset.RecordCount
End Sub


Bonjour,



Quelle formule utiliser pour signaler sur quel enregistrement je me
trouve, de la même manière que le fait les "boutons de déplacements" dans
le formulaire.

J'aimerais utiliser un affichage plus explicite dans les sous formulaires
en marquant fiche 1/4, 2/4 etc.

Je trouve que la petite barre du dessous n'est pas très visible et peut
porter à confusion avec celle du formulaire.



Merci

Stéf




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Stef
Ah voila j'y suis arrivé un peu par accident, en faite cela fonction non pas
avec l'insertion d'une étiquette mais avec une insertion de zone de texte
dont on met le nom "NomLabel"

Au finale c'est presque bon, quand on ouvre le formulaire le sous formulaire
est compté comme suite sachant qu'il y a 2 fiches remplies:
1/1 puis 2/2 puis 3/2 et si je reviens sur le fiches précédentes: 2/2 puis
1/2.

Si on peut afficher dés le début 1/2 cela serais parfais.

encore merci
Stéf

"Eric" a écrit dans le message de news:
%
Bonjour,

Tu as bien un label nommé NomLabel dans lequel tu as saisi un espace ? (tu
peux nommer ce label comme bon te semble ou presque, par exemple
lblAffichage, le tout est de connaitre son nom pour le code).

Dans la procédure Activation du sous-formulaire:
Copies ceci en admettant que NomLabel est bien le nom du contrôle Label.
Tout sur une ligne entre Private Sub Form_Current() et End Sub:
Me.NomLabel = "Fiche " & Me.CurrentRecord & "/" & Me.Recordset.RecordCount
(le retour à la ligne est du au lecteur de News)

OK ? sinon quel message as-tu ?


Bonjour,
Je n'y arrive pas, je ne sais pas différencier les nom des fonctions et
des noms d'exemples comme: NomLabel et "fiches "
J'ai bien mis une étiquette au nom de NomLabel en entête du sous
formulaire, et mis en activivation ce sous formulaire:

Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _ & "/" &
Me.Recordset.RecordCount

End Sub

Y a-t-il des crochet à mettre, je ne sais pas.
Merci
Stéf

"Eric" a écrit dans le message de news:
%

Bonjour,

Tu mets une Etiquette (ou label) avec un espace saisi dans le sous-form
en entête ou en pied de formulaire sous réserve qu'il ne soit pas en mode
feuille de données et sur l'évènement sur Activation du sous-form :
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _
& "/" & Me.Recordset.RecordCount
End Sub


Bonjour,



Quelle formule utiliser pour signaler sur quel enregistrement je me
trouve, de la même manière que le fait les "boutons de déplacements"
dans le formulaire.

J'aimerais utiliser un affichage plus explicite dans les sous
formulaires en marquant fiche 1/4, 2/4 etc.

Je trouve que la petite barre du dessous n'est pas très visible et peut
porter à confusion avec celle du formulaire.



Merci

Stéf




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
3stone
Salut,

"Stef"
| Ah voila j'y suis arrivé un peu par accident, en faite cela fonction non pas
| avec l'insertion d'une étiquette mais avec une insertion de zone de texte
| dont on met le nom "NomLabel"


Si, tu peux mettre une étiquette (label) maisil faut utiliser la propriété "Caption"

Me.NomLabel.Caption = "ce que tu veux"


| Au finale c'est presque bon, quand on ouvre le formulaire le sous formulaire
| est compté comme suite sachant qu'il y a 2 fiches remplies:
| 1/1 puis 2/2 puis 3/2 et si je reviens sur le fiches précédentes: 2/2 puis
| 1/2.
|
| Si on peut afficher dés le début 1/2 cela serais parfais.


Regarde ici :
http://www.mvps.org/accessfr/forms/frm0026.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Stef
J'ai fini par mieux comprendre les noms(label) et fonctions, j'en suis à
faire tourné les 3 systèmes (formules*) mais chacun font le même comptage de
1/1 au lieu de 1/2 quand on ouvre le formulaire.
Par curiosité j'ai essayé sur le formulaire principal, la numérotation est
bonne!

*
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord & "/" & Me.Recordset.RecordCount
Me.NomLabel2.Caption = "Fiche " & Me.CurrentRecord & "/" &
Me.Recordset.RecordCount
If Me.NewRecord Then
Me!lblNavigate.Caption = "New Record"
Else
With Me.RecordsetClone
.Bookmark = Me.Bookmark
Me!lblNavigate.Caption = "Enregistrement " & _
.AbsolutePosition + 1 _
& " de " & .RecordCount
End With
End If

End Sub

"3stone" a écrit dans le message de news:

Salut,

"Stef"
| Ah voila j'y suis arrivé un peu par accident, en faite cela fonction non
pas
| avec l'insertion d'une étiquette mais avec une insertion de zone de
texte
| dont on met le nom "NomLabel"


Si, tu peux mettre une étiquette (label) maisil faut utiliser la propriété
"Caption"

Me.NomLabel.Caption = "ce que tu veux"


| Au finale c'est presque bon, quand on ouvre le formulaire le sous
formulaire
| est compté comme suite sachant qu'il y a 2 fiches remplies:
| 1/1 puis 2/2 puis 3/2 et si je reviens sur le fiches précédentes: 2/2
puis
| 1/2.
|
| Si on peut afficher dés le début 1/2 cela serais parfais.


Regarde ici :
http://www.mvps.org/accessfr/forms/frm0026.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



Avatar
Stef
Fausse alerte, cela ne fonctionne pas mieux avec le formulaire principal,
une fois le formulaire fermé, le compteur reviens à 1/1 :-(

"Stef" <rien> a écrit dans le message de news:
43cf745d$0$14126$
J'ai fini par mieux comprendre les noms(label) et fonctions, j'en suis à
faire tourné les 3 systèmes (formules*) mais chacun font le même comptage
de 1/1 au lieu de 1/2 quand on ouvre le formulaire.
Par curiosité j'ai essayé sur le formulaire principal, la numérotation est
bonne!

*
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord & "/" & Me.Recordset.RecordCount
Me.NomLabel2.Caption = "Fiche " & Me.CurrentRecord & "/" &
Me.Recordset.RecordCount
If Me.NewRecord Then
Me!lblNavigate.Caption = "New Record"
Else
With Me.RecordsetClone
.Bookmark = Me.Bookmark
Me!lblNavigate.Caption = "Enregistrement " & _
.AbsolutePosition + 1 _
& " de " & .RecordCount
End With
End If

End Sub

"3stone" a écrit dans le message de news:

Salut,

"Stef"
| Ah voila j'y suis arrivé un peu par accident, en faite cela fonction
non pas
| avec l'insertion d'une étiquette mais avec une insertion de zone de
texte
| dont on met le nom "NomLabel"


Si, tu peux mettre une étiquette (label) maisil faut utiliser la
propriété "Caption"

Me.NomLabel.Caption = "ce que tu veux"


| Au finale c'est presque bon, quand on ouvre le formulaire le sous
formulaire
| est compté comme suite sachant qu'il y a 2 fiches remplies:
| 1/1 puis 2/2 puis 3/2 et si je reviens sur le fiches précédentes: 2/2
puis
| 1/2.
|
| Si on peut afficher dés le début 1/2 cela serais parfais.


Regarde ici :
http://www.mvps.org/accessfr/forms/frm0026.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/







Avatar
Stef
Je viens de faire d'autre test avec une nouvelle BD, et je remarque que le
comptage est bon à partir du moment ou l'on passe à l'enregistrement suivant
ex: 1/1 puis 1/4 Donc on dirait qu'il y a un problème de rafraîchissement,
ou peut être faire une formule qui passerais à l'enregistrement suivant puis
précédent avec comme condition qu'il y a au moins un enregistrement.

Vous en pensé quoi?

Stéf


"Eric" a écrit dans le message de news:
%
Bonjour,

Tu as bien un label nommé NomLabel dans lequel tu as saisi un espace ? (tu
peux nommer ce label comme bon te semble ou presque, par exemple
lblAffichage, le tout est de connaitre son nom pour le code).

Dans la procédure Activation du sous-formulaire:
Copies ceci en admettant que NomLabel est bien le nom du contrôle Label.
Tout sur une ligne entre Private Sub Form_Current() et End Sub:
Me.NomLabel = "Fiche " & Me.CurrentRecord & "/" & Me.Recordset.RecordCount
(le retour à la ligne est du au lecteur de News)

OK ? sinon quel message as-tu ?


Bonjour,
Je n'y arrive pas, je ne sais pas différencier les nom des fonctions et
des noms d'exemples comme: NomLabel et "fiches "
J'ai bien mis une étiquette au nom de NomLabel en entête du sous
formulaire, et mis en activivation ce sous formulaire:

Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _ & "/" &
Me.Recordset.RecordCount

End Sub

Y a-t-il des crochet à mettre, je ne sais pas.
Merci
Stéf

"Eric" a écrit dans le message de news:
%

Bonjour,

Tu mets une Etiquette (ou label) avec un espace saisi dans le sous-form
en entête ou en pied de formulaire sous réserve qu'il ne soit pas en mode
feuille de données et sur l'évènement sur Activation du sous-form :
Private Sub Form_Current()
Me.NomLabel = "Fiche " & Me.CurrentRecord _
& "/" & Me.Recordset.RecordCount
End Sub


Bonjour,



Quelle formule utiliser pour signaler sur quel enregistrement je me
trouve, de la même manière que le fait les "boutons de déplacements"
dans le formulaire.

J'aimerais utiliser un affichage plus explicite dans les sous
formulaires en marquant fiche 1/4, 2/4 etc.

Je trouve que la petite barre du dessous n'est pas très visible et peut
porter à confusion avec celle du formulaire.



Merci

Stéf




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
3stone
re,

"Stef"
| une fois le formulaire fermé, le compteur reviens à 1/1 :-(


essaies ainsi :


If Me.NewRecord Then
Me!lblNavigate.Caption = "New Record"
Else
With Me.RecordsetClone
.MoveLast
.Bookmark = Me.Bookmark
Me!lblNavigate.Caption = "Enregistrement " & _
.AbsolutePosition + 1 _
& " de " & .RecordCount
End With
End If


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Stef
GÉNIAL! :-)) tout est nickel chrome, cela s'affiche même avant celui du
compteur dans la barre d'état en bas.

Merci à vous Tous pour votre temps
Stéf

"3stone" a écrit dans le message de news:
%
re,

"Stef"
| une fois le formulaire fermé, le compteur reviens à 1/1 :-(


essaies ainsi :


If Me.NewRecord Then
Me!lblNavigate.Caption = "New Record"
Else
With Me.RecordsetClone
.MoveLast
.Bookmark = Me.Bookmark
Me!lblNavigate.Caption = "Enregistrement " & _
.AbsolutePosition + 1 _
& " de " & .RecordCount
End With
End If


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



1 2