Discussion :

[fdalyon]

Bonjour

J'ai un formulaire qui est appelé depuis un premier formulaire sur clic d'un bouton.

Dans le premier formulaire j'ai mis une minuterie qui rafraichi un sous formulaire (en fait le planning que j'ai trouvé sur le site et qui est super)

Seulement quand j'appuie sur le bouton, ca ouvre bien le formulaire, mais ensuite j'ai également un bug causé lors de la mise à jour du planning.

J'ai mis une gestion des erreurs mais j'ai quand même le problème.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
  On Error GoTo Err_Handler
Exit_This_Sub:
    Exit Sub
Err_Handler:
    Resume Exit_This_Sub
 
        MajPlanning 'met à jour le planning selon la durée definie dans les proprietes sur minuterie
End Sub

Je crois que c'est parce que le formulaire ouvert par clic "gèle" toute l'appli tant qu'on n'a pas exécuté l'action. Mais je ne sais pas comment faire pour "dégeler cette appli.

Si quelqu'un pouvait me dire ce que je dois faire ...

Merci par avance.

[argyronet]

Bonjour,

Mais je ne sais pas comment faire pour "dégeler" cette appli.

La sortir du congel, non ???
Bon plus sérieursement, ta MAJ ne peut avoir lieue... dans ce bout de code.
Ton appel est après le Resume

Code :

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

1
2
3
4
Err_Handler:
    Resume Exit_This_Sub
         MajPlanning 'met à jour le planning selon la durée definie dans les proprietes sur minuterie
End Sub

Il faut la positionner ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Timer()
  On Error GoTo Err_Handler
  If MajPlanning  Then
    Me.TimerInterval = 0
  End If
 
Exit_This_Sub:
    Exit Sub
Err_Handler:
    MsgBox Err.Description, vbCritical, Err.Number
    Resume Exit_This_Sub
End Sub

Et transformer ta Sub MajPlanning () en fonction Long ou Boolean qui retourne respectivement une valeur <> 0 ou True si la MAJ s'est bien passée auquel cas, le Timer est désactivé et ne recommence pas son cycle...
C'est une suggestion (à peaufiner bien entendu)

Argy

[fdalyon]

Bonjour

C'est en lisant ta réponse que je me suis aperçu de mon erreur !!

Quelle idée d'aller mettre la maj du planning dans la gestion de l'erreur !

A la place j'ai simplement écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Timer()
  On Error GoTo Err_Handler
 
          MajPlanning 'met à jour le planning selon la durée definie dans les proprietes sur minuterie
 
Exit_This_Sub:
    Exit Sub
Err_Handler:
    Resume Exit_This_Sub
 
 
End Sub

Et tout fonctionne.

Merci bien pour ton aide.