Valeur null dans une requête

Version imprimable

1 pièce(s) jointe(s)

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:

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

Pièce jointe 147823

merci

05/06/2014, 12h28
ProgElecT

Salut

Citation:

....
lorsque qu'il n'y à pas de valeur dans les champs de ma requête
....

Doit on supposer que ta requête te renvoie certains champs vide?
Si oui, il faut vérifier le contenu du champs avant que de l'attribuer à la colonne du MSchart, si il est vide tu lui attribut par exemple zéro et/ou tu la rends invisible .
05/06/2014, 22h10
petchy

bonsoir

Citation:

Doit on supposer que ta requête te renvoie certains champs vide?
Si oui, il faut vérifier le contenu du champs avant que de l'attribuer à la colonne du MSchart, si il est vide tu lui attribut par exemple zéro et/ou tu la rends invisible .

le problème c'est que je récupère les valeurs de ma requête d'une autre "requête Analyse croisées" ,je ne veut pas rendre invisible ce champ car par exemple dans le champ
Fille ----> 13ans le champ est vide mais pas dans Garçons
par contre mettre un zéro dans ce champ ça m'intéresse,mais comment faire ?

merci
bonne soirée

Cela pourrait fonctionner comme ceci.

Code:

1
2
3
4
5
If IsError(Adodc2.Recordset.Fields(0).Value) Then
    .Data = 0
    Else
    .Data = Adodc2.Recordset.Fields(3).Value
End If

1 pièce(s) jointe(s)

bonjour,
merci pour le code, il fonctionne bien , mais car il y a toujours un mais :)
quand j'affiche mon graph j'ai bien 0 dans la barre des 13 ans colonne fille et 6 garçons.
par contre dans 14 ans j'ai bien 0 pour les garçons et 0 aussi pour les filles alors qu'ils y a 3 filles
je ne comprends pas pourquoi :oops:

Pièce jointe 148031

Code:

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
50
51
52
53
54
55
56
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
               If IsNull(Adodc2.Recordset.Fields(2).Value) Then
            .Data = 0
            Else
            .Data = Adodc2.Recordset.Fields(2).Value
 
            Adodc2.Recordset.MoveNext    ' le mois suivant
         End If       
 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
            If IsNull(Adodc2.Recordset.Fields(3).Value) Then
            .Data = 0
            Else
            .Data = Adodc2.Recordset.Fields(3).Value
 
            Adodc2.Recordset.MoveNext
             End If            
        Next i
End With
  End Sub

merci
bon week-end

07/06/2014, 15h55
ProgElecT

Salut
Dans ton code, ligne 52, Adodc2.Recordset.MoveNext, il me semble que le branchement à l'enregistrement suivant devrait être après la ligne End If.

:koi: Les ligne 30 et 31 ne devraient elles pas aussi permutées 8O ?
07/06/2014, 17h05
petchy

ça fonctionne super bien
merci t un chef :)