Bonjour,

CEla fait deja pas mal de tremps que je cherche la solution a ce probleme donc j'aimerai le soumettre a la communaute

J'ai creer un formulaire qui contient une progressbar et qui s'affiche avant de lancer ma requete SQL celui s'affiche correctement mais il m'est impossible de rafraichir ma progress bar

voici le code de ma fonction
Le formulaire "waiting forml est celui qui contient la progress bar


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
Private Sub PFCBt_Click()
 
        Dim db As DAO.Database, rst As DAO.Recordset
        Dim sql As String
 
 
DoCmd.OpenForm "WaitingForm"
DoEvents
 
 
sql = "select * from mytable"
 
Set db = CurrentDb
 
 
Set rst = db.OpenRecordset(sql, dbOpenDynaset, dbReadOnly)
 
Call ShowResults(rst)
 
End Sub
Et voci le code du formulaire:

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
Private Sub Form_Open(Cancel As Integer)
DoEvents
i = 1
 
 
 
End Sub
 
Private Sub Form_Timer()
 
ProgressBar1.Value = i
i = i + 1
 
If i = 100 Then i = 0
 
End Sub

Est ce que je devrais utiliser autre chose que l'event ontimer?
Bien sure si je stop la fonction PFCBt_Click() la progress bar se met en route automatiquement.
Comment faire marcher ma progressbar et ma requete sql en meme temps?

Merci de votre aide