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 |
Partager