Discussion :

[kervin]

Bonjour,

Je bute sur ce qui est sans doute un détail ...
Dans un formulaire (pop-up) j'ai un bouton derrière lequel il y a ce code

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
Private Sub Command0_Click()
Dim db As DAO.Database
Dim tabel As DAO.Recordset
Dim tb As String
 
Set db = DBEngine(0)(0)
Set tabel = db.OpenRecordset("Links") ' Links = table qui contient le nom des table à exporter
tabel.MoveFirst
While Not tabel.EOF
tb = tabel![Nom_T]
 
Dim rep As String
rep = CurrentProject.Path & "\Backup_Log\" & tb & ".xls"
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, tb, rep, True
 
Me.box1.Width = Me.box1.Width + 200
 
tabel.MoveNext
 
Wend
 
End Sub

j'ai également inséré un box dont la taille doit augmenter de 200 à chaque passage pour simuler un barre de progression.

Je n'arrive pas à obtenir l'effet visuel de l'acroissement de la "barre", j'obtient seulement sa taille max quand je sort de mon dernier passage.
J'ai beau introduire des requery's dans tout les coins, ça ne donne rien.

QQ peut-il me dire ce que j'ai oublié ??

Merci d'avance

a+

[Tofalu]

Code :

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

1
2
3
4
 
Doevents
Me.box1.Width = Me.box1.Width + 200
Me.repaint