Macros - Gestion des bugs

Question

Bonjour, 

Je viens de recuperer une base Access composée de plusieurs macros, composée elles mêmes de plusieurs requêtes.

Lors de l'ouverture du formulaire, une macro est appelé à être lancée.
Dans cette macro, il y a une requete qui se connecte sur une autre base de données.
Le problème est : si les tables nécessaires à cette requête sont occupées (donc inaccessibles), Access génère un bug avec une tite fenetre qui a pour titre "L'action a échoué", le nom de la macro, le nom de la requete qui n'a pas fonctionné;  et je n'ai pas d'autre possibilité que de cliquer sur "Arreter".

Ce que j'aimerai : c'est que cette boite de message n'apparaisse pas et que je puisse dire si tu peux pas te connecter maintenant retente dans 2 mn.

Avez vous une idée sur comment faire?

Ci-dessous la portion du code qui pause problème :
 
Dim UserInt As Double
MinuteInt = DLookup("[Minute Interval]", "StopAuto")
UserInt = (60000 * MinuteInt) 'Calculate Timer value based upon setup minute




TimerInterval = UserInt 

'Set the Form Timer to setup selected minutes


Dim stDocName As String
DoCmd.SetWarnings False
    stDocName = "ProcessAnalysis_auto" 

'Process the Auto mode
    DoCmd.RunMacro stDocName

Merci pour votre aide, 

Flo

Brosske · Answer

bonjour,

le principe:

do
   err.clear
   on error resume next
      ton action qui peut foirer
loop while err.description<>"" then 'eh oui ça a foiré donc on réessaie

en suite tu peux améliorer avec un timer ou autre élément qui limite la durée du loop

j'espère que ça te donne une idée

F.M.

Macros - Gestion des bugs

1 réponse

Votre réponse

Discussions similaires