Discussion :

[petchy]

bonjour,
dans mon code je récupère des données d'une requête ACCESS pour afficher dans un graph.
mais j'ai un soucis lorsque qu'il n'y à pas de valeur dans les champs de ma requête,les barres de 13 ans et 14 ans mettent n'inporte quoi car il n'y à pas de valeurs. Est ce possible de contourner ce problème ?

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
39
40
41
42
43
44
45
46
47
48
49
Private Sub Command1_Click() 'total présents filles
On Error Resume Next
    Dim MaBD As String
 
    MaBD = App.Path & "\BD\centre_aéré.mdb"
    With Adodc2
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
        .RecordSource = "SELECT * FROM present1"
        End With
    Adodc2.Refresh
    Adodc2.Recordset.MoveFirst
 
    MoveOk = False
    With MSChart1
        .ChartType = VtChChartType2dBar   ' type de graphe
        .ColumnCount = 1                   ' nombre de barre
        .RowCount = 12                     ' nombre de mois
 
 
        ' lecture du nom des mois
        For i = 1 To 12
            .Row = i
            .Column = 1
            .RowLabel = Adodc2.Recordset.Fields(0) & " ans"  ' le nom de chaque mois
            '.Data = Adodc1.Recordset.Fields(3).Value  ' la valeur
            .Data = Adodc2.Recordset.Fields(2).Value
            '.Data = Adodc2.Recordset.Fields(3).Value
            'MoyMax = MoyMax + Adodc1.Recordset.Fields(3)
            Adodc2.Recordset.MoveNext                 ' le mois suivant
        Next i
 
    End With
End Sub
Private Sub Command2_Click() 'total présents garçons
On Error Resume Next
' Deuxième série
    With MSChart1
        .ColumnCount = 2                  ' nombre de barre
        .RowCount = 12
 
        Adodc2.Recordset.MoveFirst
        For i = 1 To 12
            .Row = i
            .Column = 2
            .Data = Adodc2.Recordset.Fields(3).Value
            Adodc2.Recordset.MoveNext
        Next i
End With
  End Sub

merci