Renseignement sur barre de progression

[pasb71]

Bonjour,

Je travaille sur une base de donnée.

Dans un formulaire j'ai un bouton qui execute beaucoup de requêtes et qui met également une base mysql à jour.

J'aimerai que pendant ce temp de mise à jour il y a une barre de progression qui s'affiche.

J'ai trouvé un vieux post sur un site internet avec un code vba qui fonctionne.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmdBarreProgression_Click() 
 
Dim intX As Integer, intZ As Integer 
For intX = 1 To 100 
 
 
' vu que la boucle s'exécute rapidement on ajoute une pause 
For intZ = 1 To 60 
 
DoEvents 
Next intZ 
' Mise à jour de la barre de progression. On donne une valeur entre 1 et intX 
Me!txtProgression = intX & "%" 
Me!txtProgression.Width = 18 * intX 
Next intX 
 
' Message final facultatif 
Me!txtProgression = "Opération terminée" 
End Sub

Est-ce que je peux mettre mes requêtes de mise à jour entre ce code?. J'ai essayé mais je n'ai pas trouvé

Merci

[mc.schmer]

Salut,

Ton code n'intègre pas de gestion d'objet de barre de progression (autrement dit ProgressBar)

Code :

1
2
3
ProgressBar1.min = ...
ProgressBar1.max = ...
ProgressBar1.value = ...

Ni d'ailleurs de gestion de la barre d'état:

Code :

acSysCmdUpdateMeter, x

Ton code serait-il dépendant d'un objet access tel qu'un rectangle?

Amicalement.