Discussion :

[Duddy]

Bonjour,

Afin de pouvoir concaténer de gros fichiers, j'ouvre une base secondaire et je lui ajoute les fichiers. Ma base secondaire "gonfle" normalement en volume. Lorsque mon opération est terminée, je la referme par "SET mabase = nothing".

A partir de ce moment là, comment puis-je contrôler le temps de compactage de ma base?
Cela me provoque des erreurs dans la boucle de mon code.

J'y ai adjoint une tempo, mais elle devient variable en fonction des PC utilisés.

Quelqu'un connait il une méthode qui permet de surveiller la fin de compactage de ma base secondaire?

Merci à tous

[Duddy]

Bonjour,

Ma question étant restée sans réponse, j'ai quand même continuer à réfléchir pour apporter une solution à mon problème.

Voici le résultat de ma réflexion afin que les personnes intéressées puisse en profiter et que les autres puissent apporter des simplifications ou des améliorations.

Lors du compactage d'une base, celle-ci créée automatiquement une base temporaire nommée bd1.mdb. J'ai donc créé une fonction qui va me chercher ce fichier et qui tourne tant qu'il est présent.

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
          Function FichierExist() As Boolean
10
          vFichierCherch = "bd1.mdb"    'initialise le fichier recherche
          vChemin = CurrentProject.Path & "\"   'charge le chemin
          vFichierTrouve = Dir(vChemin & "*.mdb")      'initialise le fichier trouve
 
          Do Until vFichierTrouve = ""     'tant que le fichier trouve est <> de rien
                    If vFichierTrouve = vFichierCherch Then  'si les variables sont egales on sort
                              Exit Do
                    End If
                    vFichierTrouve = Dir      'passe au suivant
          Loop
          If vFichierTrouve <> "" Then 'remonte si variable non vide
                    GoTo 10
          End If
          End Function

La solution que j'ai mise en place fonctionne dans mon cas, j'ai adjoint en plus une fonction "tempo" que j'ai fixé à 20s.

Code :

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

1
2
3
4
5
6
7
8
        Function vTimer()
        heuredebut = Timer
 
        While heurefin - heuredebut < 20
            heurefin = Timer
        Wend
 
        End Function

Si toutefois, quelqu'un a mieux, merci d'avance.

Je passerai le post à résolu dans quelques temps dans l'espoir que quelqu'un apporte un plus à la solution.

[Duddy]

Bonsoir,

Je clos le post après avoir tester ma procédure qui fonctionne.

Peut-être servira t-elle à quelqu'un.