Discussion :

[Jean-Luc80]

Bonjour
J'essaie d'utiliser un ActiveX (ProgressBar) trouvé sur le net pour remplacer celle de microsoft
Au démarrage j'ai une erreur 91 sur Mabarre.Value
Voici mon code que j'execute en cliquant sur un bouton ( essai)

Code :

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

1
2
3
4
5
6
Dim mabarre As prjOCX.pgrBar
Dim t
t = 1
For t = 1 To 100
mabarre.value = t
    Next t

Quelqu'un peut'il m'expliquer comment on déclare les variables dans un tel cas ?
A moins que dans Access il y ait une autre barre de progression .
D'avance merci

[LedZeppII]

Bonsoir,

Si ton code est dans un formulaire et que le contrôle activeX s'appelle ctlProgressBar (propriété Nom dans l'onglet Autres de la fenêtre des propriétés)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim mabarre As prjOCX.pgrBar
Dim t, ValeurMax As Long
 
ValeurMax = 100
' définition de l'objet
set mabarre = Me.ctlProgressBar.Object
' définition de la valeur max de la barre de progression
mabarre.Max = ValeurMax 
 
For t = 1 To ValeurMax 
   mabarre.value = t
Next t

Au lieu de 100 essaie 10000 ou 100000 sinon ça va aller trop vite.

A+

[Jean-Luc80]

Merci de ces conseils
J'ai compris comment instancier un ActiveX et ça marche
A +