Intercepter une valeur Null

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:

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

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

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

Code:

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