Discussion :

[nicolas2603]

Bonjour, alors j'ai un formulaire qui affiche en mode colonne des infos contenues dans ma base. Sous cette colonne, j'ai créé 4 boutons qui permettent d'afficher :
B1 : le premier enregistrement,
B2 : l'enregistrement précédant,
B3 : l'enregistrement suivant,
B4 : le dernier enregistrement avec les codes

Code :

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

1
2
3
4
DoCmd.GoToRecord , , acFirst
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acLast

A côté de ces boutons j'ai un controle textbox dans lequel j'affiche la position de l'enregistrement courant par rapport au nombre total d'enregistrement, du style 1 sur 7. Pour cela j'ai cette formule dans mon textbox :

Code :

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

=[CurrentRecord] & " sur " & Compte(*)

Au chargement de la page, cela m'indique bien 1 sur 7. Mais lorsque je clique sur le bouton suivant, ça reste à 1 sur 7, lorsque je reclique ça me mets 2 sur 7, etc ... J'arrive au 7° enregistrement, et l'affichage en est donc à 6 sur 7 ! Si je clique sur B2, on redescend à 5 sur 7, je reclique, ça remonte à 6 sur 7, je reclique ça reviens à 5 sur 7, etc ... Bref j'arrive au 1° enregistrement et l'affichage en est à 2 sur 7 !! Il y a toujours un décalage.

De plus, si au chargement de la page je clique directement sur B4 , l'affichage se mets bien sur le dernier enregistrement mais la textbox laisse 1 sur 7...

Je précise que pourtant cela détecte bien la position de l'enregistrement, puisque j'ai codé pour que les boutons "suivant" ne soient pas visibles si on est sur le dernier enregistrement

Code :

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

1
2
3
4
If [CurrentRecord] = Form.RecordsetClone.RecordCount Then
        B3.Visible = False
        B4.Visible = False
   End If

et idem pour les boutons "précédent" si on est sur le premier, et qu'ils disparaissent bien lorsqu'on y est ...

Avez-vous une idée d'où viennent mes problèmes ? Un mauvais codage de la formule pour récupérer l'enregistrement actuel et/ou le nombre d'enregistrement ? Un rafraichissement forcé de la textbox à chaque action de boutons ? Merci d'avance.

[nicolas2603]

Bon j'ai résolu mon problème tout seul, je poste quand même ma technique pour ceux que ça intéresse.

Au lieu de mettre une formule dans ma textbox "compteur", j'ai choisi l'affichage par VB. Au chargement de la page je lui assigne cette valeur :

Code :

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

Me.Compteur.Value = [CurrentRecord] & " sur " & Form.Recordset.RecordCount

ce qui me donne un affichage 1 sur 1 au premier lancement. C'est normal, il faut forcer la lecture du dernier enregistrement pour avoir la valeur réelle du nombre d'enregistrement. Mais également penser, dans mon cas, à remettre l'affichage sur le premier enregistrement, ce qui nous donne :

Code :

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

1
2
3
Form.Recordset.MoveLast
Form.Recordset.MoveFirst
Me.Compteur.Value = [CurrentRecord] & " sur " & Form.Recordset.RecordCount

Au chargement de la page on a bien maintenant 1 sur 7, et pour chaque bouton je répète la phrase de comptage de la position, ce qui me donne 2 sur 7, 3 sur 7 ...

Et voilà !