Discussion :

[gerarddurand]

Bonsoir,

Sur un formulaire le clignotement ne fonctionne pas. Sur d'autres formulaires tout marche bien avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Timer()
On Error Resume Next
Me![Image87].Visible = Not Me![Image87].Visible
 
If Autorite < 2 Then
 Me![Image82].Visible = Not Me![Image82].Visible
 
End If
 
End Sub

Savez-vous pourquoi ?

Cordiales salutations.

[marot_r]

Essaye

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Timer()
   On Error Resume Next

   Me![Image87].Visible = Not Me![Image87].Visible
 
   If Autorite < 2 Then
     Me![Image82].Visible = Not Me![Image82].Visible
   End If

   doevents
End Sub

et le on error resume next doit être utilisé avec précaution car cela peut 'glisser l'erreur sous le tapis' sans la gérer proprement et produire une erreur plus loin.

Dans le cas présent tu n'aurais même pas besoin de cela puisqu'en fonctionnement normal ton code ne devrait pas générer d'erreur.

A+

[gerarddurand]

bonsoir marot r,

Merci pour ta réponse mais cela ne fonctionne toujours pas même avec la modification. Ce n'est qu'un détail. Je finirai par trouver.

Merci également pour ton explication du 'on error resume next'.

Salutations.

[gerarddurand]

bonsoir,

@ marot r

et le on error resume next doit être utilisé avec précaution car cela peut 'glisser l'erreur sous le tapis' sans la gérer proprement et produire une erreur plus loin.

J'ai revu ma copie et grâce à ta remarque j'ai en effet, trouvé et traité, quelques erreurs 'sous le tapis'.

merci

salutations.