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
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
1
2
3
4 DoCmd.GoToRecord , , acFirst DoCmd.GoToRecord , , acPrevious DoCmd.GoToRecord , , acNext DoCmd.GoToRecord , , acLastAu 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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part =[CurrentRecord] & " sur " & Compte(*)
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 enregistrementet idem pour les boutons "précédent" si on est sur le premier, et qu'ils disparaissent bien lorsqu'on y est ...
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
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.
Partager