Discussion :

[adrien.gendre]

Bonjour je voudrais parcourir ma table la mettre dans un tableau pour après remplir une table temporaire, ceci avec la requête DAO suivante :

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
Do While CountMois <= 12
    Set CountTable = CurrentDb.OpenRecordset("SELECT STOCKDEB FROM MENSUELLE WHERE Mois = '" & TabMois(CountMois) & "'")
    If CountTable.Fields("StockDeb") = Null Then
        TabVal(CountMois) = "0"
    Else
        TabVal(CountMois) = CountTable.Fields("StockDeb")    End If
    CountMois = CountMois + 1
    Loop
        
    Dim Ecrir_Table As DAO.Recordset
    Set Ecrir_Table = CurrentDb.OpenRecordset("WT_Temp_Mvt_Mensuel_Stock", dbOpenDynaset)
    With Ecrir_Table
        .AddNew
        .Fields("Ligne") = "Stock Début de Mois"
        .Fields("Colone Libélé") = TabMois(T)
        .Fields("Colone Val") = TabVal(T)
        .Update
        .Requery
    End With
    T = T + 1

Mon problème ce situe sur la ligne en rouge, en fait je voudrais intercepter quand le tableau doit recevoir la valeur null il reçoi à la place la valeur zéro.
Merci de m'aider
Cordialement
Adrien GENDRE

[mouaa]

je comprends pas, c'est pas déjà ce que tu fais ?

[adrien.gendre]

Non en fait j'ai trouvé le code suivant qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Do While CountMois <= 12
    Set CountTable = CurrentDb.OpenRecordset("SELECT STOCKDEB FROM MENSUELLE WHERE Mois = '" & TabMois(CountMois) & "'")
    If IsNull(CountTable.Fields("StockDeb")) Then
        TabVal(CountMois) = "0"
    Else
        TabVal(CountMois) = CountTable.Fields("StockDeb")
    End If
    CountMois = CountMois + 1
    Loop

Voilà si sa peut te servir ...
Bonne continuation
Adrien GENDRE