Valeur du compte d'enregistrements incorrecte

Version imprimable

04/04/2020, 10h44
DamKre

Valeur du compte d'enregistrements incorrecte
Bonjour.

Je souhaite mettre dans une étiquette "Affichage de l'alerte n°X sur Y."

J'ai donc procédé comme suit:
Code:

1 2 3 4 5 Private Sub Form_Current() On Error GoTo Erreurs ProgressionAlerte.Caption = "Affichage de l'alerte n°" & Me.CurrentRecord & " sur " & Form.Recordset.RecordCount [...]
Cela donne le résultat suivant :
- à l'ouverture du formulaire, cela donne toujours "alerte 1 sur 1". -> La valeur n'est pas correcte
- si je vais à l'enregistrement suivant, cela donne le bon résultat (exemple : "alerte 2 sur 7" ) -> La valeur est correcte.
- si je retourne au premier enregistrement, cela donne alors "alerte 1 sur 7" -> la valeur est correcte.
Pourquoi, à l'ouverture du formulaire, la valeur de Form.Recordset.RecordCount est-elle incorrecte, alors qu'elle donne le bon résultat par la suite ? 8O

Pour information, voici le code à l'ouverture du formulaire :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Form_Open(Cancel As Integer) On Error GoTo Erreurs Fermer.SetFocus Exit Sub Erreurs: [...]
Pouvez-vous me dire ce qui ne fonctionne pas ?
J'ai beau tester, tester encore, ce code fonctionne sauf pour le premier affichage.

Merci de vos lumières.
04/04/2020, 17h14
tee_grandbois
bonjour,

Citation:

Pourquoi, à l'ouverture du formulaire, la valeur de Form.Recordset.RecordCount est-elle incorrecte, alors qu'elle donne le bon résultat par la suite ?

étrange, c'est peut-être lié au type de recordsource est-ce une requête ?
attention, le résultat est faussé en cas d'application d'un filtre.
Sinon, essaie de faire un Movelast, puis un MoveFirst pour revenir au premier enregistrement:
Code:

1 2 3 4 Private Sub Form_Load() Me.Recordset.MoveLast Me.Recordset.MoveFirst End Sub
05/04/2020, 08h10
DamKre
Bonjour!
Merci de la réponse.

Citation:

Envoyé par tee_grandbois

étrange, c'est peut-être lié au type de recordsource est-ce une requête ?

Non, ce formulaire a pour source une simple table.

Citation:

Envoyé par tee_grandbois

attention, le résultat est faussé en cas d'application d'un filtre.

Le formulaire s'ouvre effectivement le plus souvent avec un filtre.
J'ai également ouvert le formulaire sans filtre, avec le même résultat.
Citation:
Envoyé par tee_grandbois

Sinon, essaie de faire un Movelast, puis un MoveFirst pour revenir au premier enregistrement:

Code:

1 2 3 4 Private Sub Form_Load() Me.Recordset.MoveLast Me.Recordset.MoveFirst End Sub
Cette solution semble fonctionner pour l'instant. Merci.
Cette technique simule-t-elle en quelque sorte un "refresh" du formulaire ?
05/04/2020, 09h00
tee_grandbois

bonjour,

Citation:

Cette technique simule-t-elle en quelque sorte un "refresh" du formulaire ?

Si on veut car cela concerne les propriétés: le fait d'exécuter un MoveLast met à jour le RecordCount du RecordSet. Ensuite le MoveFirst se positionne sur le premier enregistrement du formulaire (propriété CurrentRecord).

Citation:

Le formulaire s'ouvre effectivement le plus souvent avec un filtre.
J'ai également ouvert le formulaire sans filtre, avec le même résultat.

pour l'ouverture avec filtre cela confirme ce que je disais dans mon premier post.
Pour ce qui est de l'ouverture sans filtre cela ne devrait pas, à priori, provoquer l'anomalie sauf, peut-être en cas de nombre élevé d'enregistrements, dans ce cas le RecordCount n'est probablement pas mis à jour (à vérifier avec une table plus petite ?)
05/04/2020, 10h29
DamKre

Re-bonjour !

Citation:

Envoyé par tee_grandbois

Si on veut car cela concerne les propriétés: le fait d'exécuter un MoveLast met à jour le RecordCount du RecordSet. Ensuite le MoveFirst se positionne sur le premier enregistrement du formulaire (propriété CurrentRecord)

Explication très claire, merci ;)

Citation:

Envoyé par tee_grandbois

Pour ce qui est de l'ouverture sans filtre cela ne devrait pas, à priori, provoquer l'anomalie sauf, peut-être en cas de nombre élevé d'enregistrements, dans ce cas le RecordCount n'est probablement pas mis à jour (à vérifier avec une table plus petite ?)

Il n'y a que 11 enregistrements actuellement 8O

Le formulaire est avec propriété "Feuille de réponse dynamique", Ajout et suppression de données désactivées.
Je ne sais pas si ces éléments t'aident.

Peut-on considérer ce problème comme résolu, ou on essaie de voir plus loin où cela bloque ?
05/04/2020, 14h28
tee_grandbois

Citation:

Peut-on considérer ce problème comme résolu, ou on essaie de voir plus loin où cela bloque ?

Cela pourrait être lié à la version 2007: je n'ai pas ce souci avec 2013.
Eventuellement, pour investiguer, il faudrait que j'ai une copie de la base (uniquement table sans données confidentielles et le formulaire), sinon on peut considérer que le problème est résolu.

bonjour,

je pense qu'il vaut mieux ici utiliser Recordsetclone :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
On Error GoTo Erreurs
dim n1 as long
with Me.recordsetclone
.movelast
.movefirst
n1= .recordcount
end with
 
ProgressionAlerte.Caption = "Affichage de l'alerte n°" & Me.CurrentRecord & " sur " & n1
[...]

cdlt

06/04/2020, 07h34
Jeannot45

:salut:

Autre possibilité :

Dans les événements : Sur Ouverture et Sur Activation, utiliser le code suivant :

Code:

ProgressionAlerte.Caption = "Affichage de l'alerte n°" & Me.CurrentRecord & " sur " & DCount("NomChamp","NomTable")

Bonjour à tous,

Citation:

Envoyé par tee_grandbois

Cela pourrait être lié à la version 2007: je n'ai pas ce souci avec 2013.
Eventuellement, pour investiguer, il faudrait que j'ai une copie de la base (uniquement table sans données confidentielles et le formulaire), sinon on peut considérer que le problème est résolu.

Access se comporte bizarrement avec cette DB depuis un petit temps (mais cela ne fait pas l'objet de ce souci).

Souhaites-tu que je t'envoie cela en MP ?
Citation:
Envoyé par micniv
bonjour,

je pense qu'il vaut mieux ici utiliser Recordsetclone :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Form_Current() On Error GoTo Erreurs dim n1 as long with Me.recordsetclone .movelast .movefirst n1= .recodrset.count end with ProgressionAlerte.Caption = "Affichage de l'alerte n°" & Me.CurrentRecord & " sur " & n1 [...]
cdlt
Merci de t'être penché dessus également.
Quelle est la différence avec la solution proposée par tee_grandbois, qui propose aussi un "move last/first" ?

Citation:

Envoyé par Jeannot45

:salut:

Autre possibilité :

Dans les événements : Sur Ouverture et Sur Activation, utiliser le code suivant :

Code:

ProgressionAlerte.Caption = "Affichage de l'alerte n°" & Me.CurrentRecord & " sur " & DCount("NomChamp","NomTable")

Merci à toi également.
Cette solution doit également gérer le fait que le formulaire applique un filtre. Or, le DCount donnera le nombre total d'enregistrements sur la table. Prévoir une condition basée sur le fait que le formulaire soit filtré ou non et ajouter le cas échéant une condition au DCount ne rendra-t-il pas la procédure plus lourde ?

06/04/2020, 09h19
Jeannot45

Citation:

Cette solution doit également gérer le fait que le formulaire applique un filtre. Or, le DCount donnera le nombre total d'enregistrements sur la table. Prévoir une condition basée sur le fait que le formulaire soit filtré ou non et ajouter le cas échéant une condition au DCount ne rendra-t-il pas la procédure plus lourde ?

Tu traites énormément de données ?
06/04/2020, 09h24
micniv

Citation:

Quelle est la différence avec la solution proposée par tee_grandbois, qui propose aussi un "move last/first" ?

J’agis sur le recordsetclone au lieu du recordset
06/04/2020, 09h42
tee_grandbois

bonjour,

Citation:

Envoyé par micniv

J’agis sur le recordsetclone au lieu du recordset

en complément de la réponse de micniv: comme son nom l'indique, RecordSetClone est une copie du RecordSet de l'objet en cours, propriété très pratique pour effectuer certaines opérations sur les enregistrements sans perturber le RecordSet en cours mais qui permet quand même sa mise à jour.

Citation:

Souhaites-tu que je t'envoie cela en MP ?

oui, faisons ça.
06/04/2020, 13h53
DamKre

Citation:

Envoyé par tee_grandbois

oui, faisons ça.

La voilà ;-)

Pièce jointe 553476
06/04/2020, 14h35
tee_grandbois

C'est la propriété Bouton de déplacement: à Non qui génère le problème quelque soit l'affichage par défaut (unique ou continu), il faut donc bien forcer la mise à jour du RecordCount avec MoveLast et MoveFirst au chargement du formulaire.

A noter aussi que la propriété Barre de défilement: Verticale ou Les deux, met bien à jour le RecordCount malgré Bouton de déplacement à Non
06/04/2020, 15h30
DamKre

Rebonjour,

Je te remercie, j'aurai au moins appris quelque chose grâce à toi.

En ce qui concerne

Citation:

Envoyé par Jeannot45

Tu traites énormément de données ?

La réponse est potentiellement oui.

Belle journée à tous !