Discussion :

[salent9]

Bonjour,

J’aimerai simuler une barre de progression dans un état access en mettant l’un au dessus de l’autre 2 textbox :
-Celle du dessous possède un fond blanc et une bordure noir
-Celle du dessus possède seulement un fond vert

Mon but et de modifier la largeur du textbox vert en fonction d’une valeur présent dans un textbox de l’état.
Pour ce faire j’utilise l’événement Sur la Page. (Car l’état est trié par utilisateur ce qui fait que chaque page de l’état affiche des données en fonction de l’utilisateur)

-Texte481 : affiche un % en fonction d’un calcule dans son source contrôle
-Texte987 :La Textbox dont je veux modifier la largeur.


Code :

Code :

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

1
2
3
4
5
6
Private Sub Report_Page()
Dim valeur As Double
valeur = Texte481.Value ‘valeur entre 0 et 1 
Texte987.Width = 6746 ‘La valeur maximal (pour simuler le 100%)
Texte987.Width = (Texte987.Width) * valeur 
End Sub

Malheureusement il y a un petit problème de màj des textbox et finalement quand je parcours les pages de l’état la barre est toujours au même niveau ... quelqu’un aurai une solution ?
Existe-t-il une commande pour actualiser un état (sans devoir le fermé ou jongler entre les mode pour le re-générer ) ? ou bien est-ce tout simplement pas possible de faire un semblant de dynamique dans un état ?

Merci d’avance de votre aide

[marsouin_89]

Bonjour,

Essaies un DoEvents ou Me.Repaint.
Je crois qu'une de ces 2 fonctions résoudra ton problème.

[salent9]

Merci dans la rapidité de ta réponse !

Cependant j'ai pas eu l'occasion de tester ta proposition, j'ai tester les évenement directement dans détail et non l'état en lui même et je crois que j'ai trouvé mon bonheur ^^ enfin pour l'instant ca marche ! je place mon morceau de code dans l'évenement "Sur impression" et plus de soucie de màj !