Discussion :

[Lucho63]

Bonjour,
Malgré mes recherches sur le forum, je n'arrive pas à mettre un texte clignotant. Je m'explique : sur un formulaire, je veux qu'un texte clignote ("Traitement en cours, veuillez patienter") durant le traitement sur évènement 'sur click' d'un bouton.
J'ai commencé par mettre ma procédure sur évènement minuterie du formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
 
    If Me.msg1.Visible = True Then
        Me.msg1.Visible = False
    Else
        Me.msg1.Visible = True
    End If
 
End Sub

J'ai laissé l'intervalle minuterie à 0
Par contre dans ma procédure sur click de mon bouton je mets la ligne

Code :

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

Me.TimerInterval = 100

puis

Code :

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

Me.TimerInterval = 0

en sortie de procédure

Et ça ne marche pas !!!
Merci de votre aide

[keks42]

peut etre en mettant un refresh à la fin de ton timer???

[Lucho63]

J'ai donc rajouté

Code :

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

1
2
Me.TimerInterval = 100
Me.Refresh

Et ça ne fonctionne toujours pas...

[Invité]

Bonjour

As tu été voir cela ?
http://access.developpez.com/faq/?pa...exteClignotant

[Domi2]

Bonjour,

Ta procédure pour le clignotement a l'air correcte (il y'a plus simple, mais bon...)

Ou places-tu exactement l'instruction de remise à 0 de l'intervalle du timer ?

Tu pourrais nous mettre le code complet de la procédure ?

Domi2

[ilank]

Bonjour les gens,
exemple : pour l'exemple le bouton s'appelle Bouton1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Private Sub Bouton1_Click()
  msg1.Visible=True
  Form.OnTimer="[Procédure événementielle]"
  Form.TimerInterval=100
  ..... Traitement  
  Form.Ontimer=""
  msg1.Visible=False
End sub
 
Private Sub Form_Timer()
 msg1.visible=Not msg1.Visible
End sub

[Lucho63]

Tout en sachant que :
L'intervalle de minuterie de mon formulaire est à 0. Je l'alimente dans la procédure de mon bouton

Le code de mon bouton est le suivant

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 Private Sub b_anomalies_Click()
On Error GoTo b_anomalies_Click_Err
 
    If IsNull(Me.date_debut) Then
        MsgBox "date début non remplie"
        Me.date_debut.SetFocus
        Exit Sub
    End If
 
    If IsNull(Me.date_fin) Then
        MsgBox "date fin non remplie"
        Me.date_fin.SetFocus
        Exit Sub
    End If
 
    '---> réglage minuterie à 1 seconde
    '     pour mettre le message en clignotant
    Me.TimerInterval = 1000
 
    '---> Fonction publique -traitement anomalies- qui se trouve dans module
    Call demarrage_anomalies
 
    '---> Fin réglage minuterie
    '     pour enlever le message en clignotant
    Me.TimerInterval = 0
    msg1.Visible = False
    MsgBox "Traitement terminé"
 
 
b_anomalies_Click_Exit:
    msg1.Visible = False
    Exit Sub
 
b_anomalies_Click_Err:
    MsgBox Error$
    Resume b_anomalies_Click_Exit
 
End Sub

Vous notez que ma procédure appelle une fonction écrite dans un module (est-ce important ?).
D'autre part, par rapport au message d'ilank, je ne mets pas la ligne

Code :

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

 Form.ontimer = .....

car ma procédure sur l'évènement 'sur minuterie' est dans les propriétés du formulaire