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
Partager