[AC-2007] Stopper une procédure Automation [Résolu]

[lelensois16]

Bonjour,

J'ai crée une procédure d'extraction Access - Excel via Automation.
Comme la procédure d'extraction est parfois longue ( 3 min ) :


- Si l'utilisateur clique sur le bouton Extraire , un formulaire apparait
- Sur ce formulaire , j'ai implémenté une barre de progression ( controle ProgressBar ) , il marche sans problème. Ce même formulaire contient un bouton annuler.
- à la fin de la barre de progression le formulaire disparait

Le problème c'est que je ne peux même pas cliquer sur le bouton en question , ni stopper la procédure de la manière habituelle ( Echap ou Ctrl + pause ) , meme pas faire une autre action sous Access.

Voici un bout de code ( j'ai enlevé les parties qui ne nous intéressent pas )

Code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
DoCmd.OpenForm "Attente_Extraction", acNormal
 
 
Forms("Attente_Extraction").Controls("ProgressBar").Min = 0
Forms("Attente_Extraction").Controls("ProgressBar").Max = 100
Forms("Attente_Extraction").Controls("ProgressBar").Value = 0
 
 
SQL = "Select Count(*) From ( " & m_strSQLORIGIN & " ) "
Debug.Print SQL
Set rst = Access.OpenRecordset(SQL)
NbreMax = 100 / rst.Fields(0)
Set rst = Nothing
 
Forms("Attente_Extraction").Controls("ETIQ").Value = " Temps total estimé : " & Round(((NbreMax * 100) / 50), 2) & " secondes "
 
 
m_strSQLORIGIN = " Select * From ( " & m_strSQLORIGIN & " ) Order by Date_pose "
 
    Set wksCommandes = wbkCommandes.Sheets("Feuil1")
    Set rst = Access.OpenRecordset(m_strSQLORIGIN)
 
    'On alimente les classeurs concernées
    With wksCommandes
        InitCol = 1
        For Each fld In rst.Fields
            .Cells(1, InitCol).Value = fld.Name
            InitCol = InitCol + 1
        Next fld
        InitLig = 2
        Do While Not rst.EOF
            InitCol = 1
            For Each fld In rst.Fields
                .Cells(InitLig, InitCol).Value = rst(InitCol - 1)
                InitCol = InitCol + 1
                Next fld
            InitLig = InitLig + 1
            rst.MoveNext
        'Forms("Attente_Extraction").Controls("ProgressBar").Value = Forms("Attente_Extraction").Controls("ProgressBar").Value + NbreMax
        Loop
    .Cells.EntireColumn.AutoFit
    .Columns("E:E").NumberFormat = "m/d/yyyy"
    .Columns("K:K").NumberFormat = "m/d/yyyy"
    .Columns("Q:Q").NumberFormat = "m/d/yyyy"
    .Columns("R:R").NumberFormat = "m/d/yyyy"
    .Columns("S:S").NumberFormat = "m/d/yyyy"
    .Range("A1").AutoFilter
    .Range("A2").Activate
    ActiveWindow.FreezePanes = True
    End With
 
Excel.Visible = False
 
Chrono = Timer - Chrono
Debug.Print "Temps d'éxecution du code en : " & CStr(Chrono * 1000) & "ms"
 
DoCmd.Close acForm, "Attente_Extraction", acSaveYes

Merci d'avance pour les pistes ,

Cdt

[marot_r]

Pour que Access réagisse aux commandes externe tu peux essayer d'ajouter des instruction DoEvents un peu partout dans ton code et particulièrement à l'intérieur des boucles.

A+

[lelensois16]

Bonjour
EXCELLENT ,
le pire c'est que cette instruction était cité dans la FAQ d'Access.

cdt