Une progress bar pendant l'execution d'une requete SQL
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:
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:
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
