Discussion :

[Djekill]

Bonjour,

Je souhaitai crée une barre de progression car au demarrage de ma BD la macro "Autoexec" est assez longue a executer.

Ma barre de proression fonction sans problème,mais au demarrage elle ne s'affiche pas.

Je comprend pas pourquoi ....

Voila merci

Bye

[repié]

tu veux bien montrer ton code stp?

[chrifo]

As-tu essayé de rendre la main au système pour qu'il l'affiche ? ("DoEvents()")

[repié]

ou encore de actualiser l'affichage

Code :

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

MonForm.repaint

[Djekill]

Code de une de mes barre de progression

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Function Lister_Formulaire()
 
Dim cnt         As Container
Dim doc         As Document
Dim db          As Database
Dim i           As Integer
Dim Compte      As Integer
Dim Caption     As String
 
Set db = CurrentDb
Set cnt = db.Containers("Forms")
i = 0
Compte = 0
Caption = "Init"
 
For Each doc In cnt.Documents 'Compte du nombre de Formulaire
Compte = Compte + 1
'Debug.Print Compte
Next
CurrentDb.Execute "Delete [ListeForm].[NomFormulaire] From [ListeForm]"
For Each doc In cnt.Documents
i = i + (100 / Compte)
ProgressBar (i)
'Debug.Print i
      CurrentDb.Execute "INSERT INTO [ListeForm] " _
                & "([NomFormulaire])" _
                & "SELECT """ & doc.Name & """ ;"
Next
 
End Function

ProgressBar() est une fonction que j'ai créer pour mes barres, le code :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function ProgressBar(Vitesse As Integer)
 
If Vitesse <> 100 Then
SysCmd acSysCmdInitMeter, "Initialisation, Creation des Tables, Creation des Formulaires, Preparation a l'utilisation", 100
SysCmd acSysCmdUpdateMeter, Vitesse
Else
SysCmd acSysCmdRemoveMeter
End If
End Function

Et ma macro est juste la macro Autoexec qui execute mes module au demarrage

Et ou suis je cense place le DoEvent() ?

[chrifo]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each doc In cnt.Documents
i = i + (100 / Compte)
ProgressBar (i)
EntierQuelconque = Doevents()
'Debug.Print i
      CurrentDb.Execute "INSERT INTO[ListeForm] " _
                & "([NomFormulaire])" _
                & "SELECT """ & doc.Name & """ ;"
Next

[Djekill]

j'ai pas compris le coup de ton EntierQuelconque ...

[chrifo]

Excuse moi, l'idée c'est juste d'avoir un entier où ranger le résultat du DoEvents()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public Function Lister_Formulaire()
 
Dim res as integer
 
Dim cnt         As Container
Dim doc         As Document
Dim db          As Database
Dim i           As Integer
Dim Compte      As Integer
Dim Caption     As String
 
Set db = CurrentDb
Set cnt = db.Containers("Forms")
i = 0
Compte = 0
Caption = "Init"
 
For Each doc In cnt.Documents 'Compte du nombre de Formulaire
Compte = Compte + 1
'Debug.Print Compte
Next
CurrentDb.Execute "Delete[ListeForm].[NomFormulaire] From[ListeForm]"
For Each doc In cnt.Documents
i = i + (100 / Compte)
ProgressBar (i)
res = Doevents()
'Debug.Print i
      CurrentDb.Execute "INSERT INTO[ListeForm] " _
                & "([NomFormulaire])" _
                & "SELECT """ & doc.Name & """ ;"
Next
 
End Function