Discussion :

[Ric500]

Bonjour à tous!

Tout d'abord, merci d'exister, forum, tu m'as "sauvé la vie" plus d'une fois !

J'ai un formulaire qui affiche des graphiques calculés entre 2 bornes de dates:

Si je saisis les dates à la main, l'événement "AfterUpdate" joue correctement et mes graphiques se mettent à jour sans problème.

Si je saisis les dates avec le contrôle DatePicker, la date s'affiche dans le contrôle mais la touche "Entrée" ne met pas les graphiques à jour bien que l'événement "AfterUpdate" se soit exécuté. J'ai mis des me.repaint en fin de procédure, mais rien n'y fait.
Les graphiques se mettent à jour lorsque je clique n'importe où dans la section Détail ???



Avez-vous une idée ???

[micniv]

Bonjour,
As-tu essayé l'actualisation du graphique sur l'évt "Sur changement", voire "sur Modification" ?

[Ric500]

Bonjour micniv,

Merci pour ta réponse

As-tu essayé l'actualisation du graphique sur l'évt "Sur changement", voire "sur Modification" ?

. Sur changement... bin pas de changement ! il faut tjrs que je clique sur le form pour que les graphiques s'affichent
. Sur modification le formulaire n'est pas "dirty" après sélection d'une date dans le DatePicker => ne se déclenche pas.

Je précise: ce formulaire a comme propriétés de données:
. Ajout autorisé : Non
. Suppr. autorisée: Non
. Modif autorisée: Oui
. Filtrage autorisé: Oui
. Verrouillage: Aucun

[Ric500]

Je viens de me rendre compte, en affichant le sélecteur, que le formulaire, qui n'est pas basé sur une source de données, ne s'affiche pas "Dirty" après sélection d'une date dans le DatePicker (le triangle du sélecteur ne s'affiche pas en crayon).

[Ric500]

... Ce qui me paraît logique vu qu'aucune donnée n'a été modifiée.

Autre indice: les graphiques se mettent à jour lorsque je clique n'importe où ailleurs (même dans l'éditeur VBE !).

[Ric500]

Voici ma procédure "AfterUpdate" :

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
Private Sub DteDeb_AfterUpdate()
    'Test Dates
    If Not IsDate(DteDeb) Then Exit Sub
    If DteDeb > DteFin Then Exit Sub
 
    Me.Refresh
    On Error Resume Next
    Dim strSQL As String, strSQL2 As String, strSQL3 As String
    'Libère les données source pour suppression SQLs
    strSQL = Graphique30.RowSource
    strSQL2 = Graphique33.RowSource
    strSQL3 = Graphique39.RowSource
    Graphique30.RowSource = ""
    Graphique33.RowSource = ""
    Graphique39.RowSource = ""
 
    ApplyFilter
    DoEvents
 
    Graphique30.RowSource = strSQL
    Graphique33.RowSource = strSQL2
    Graphique39.RowSource = strSQL3
    SF_StatsAgence.Form.Requery
    DoEvents
    Graphique30.Requery
    Graphique33.Requery
    Graphique39.Requery
 
    Me.SetFocus
End Sub

Sans point d'arrêt rien ne se passe lorsque je quitte le champ.
Avec un point d'arrêt sur la première ligne, tout s'affiche au passage de la ligne "Me.refresh"