Valeur du compte d'enregistrements incorrecte

**DamKre** · 04/04/2020, 10h44

Bonjour.

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

J'ai donc procédé comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**tee_grandbois** · 04/04/2020, 17h14

bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Load()
Me.Recordset.MoveLast
Me.Recordset.MoveFirst
End Sub

**DamKre** · 05/04/2020, 08h10

Bonjour!
Merci de la réponse.

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.

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.

Envoyé par tee_grandbois

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**tee_grandbois** · 05/04/2020, 09h00

bonjour,

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).

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 ?)

**DamKre** · 05/04/2020, 10h29

Re-bonjour !

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

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

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 ?

**tee_grandbois** · 05/04/2020, 14h28

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.

**micniv** · 05/04/2020, 16h33

bonjour,

je pense qu'il vaut mieux ici utiliser Recordsetclone :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Jeannot45** · 06/04/2020, 07h34

Autre possibilité :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**DamKre** · 06/04/2020, 08h52

Bonjour à tous,

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 ?

Envoyé par micniv

bonjour,

je pense qu'il vaut mieux ici utiliser Recordsetclone :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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" ?

Envoyé par Jeannot45

Autre possibilité :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**Jeannot45** · 06/04/2020, 09h19

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 ?

**micniv** · 06/04/2020, 09h24

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

**tee_grandbois** · 06/04/2020, 09h42

bonjour,

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.

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

oui, faisons ça.

**DamKre** · 06/04/2020, 13h53

Envoyé par tee_grandbois

oui, faisons ça.

La voilà ;-)

Pièce jointe 553476

**tee_grandbois** · 06/04/2020, 14h35

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