test d'une valeur nullRésolu

Question

bonjour,
voici mon code :

For i = 0 To SBPossible.ListCount - 1
    valeurpossible = SBPossible.ItemData(i)
    For j = 0 To SBUtilisé.ListCount - 1
        valeurutilisé = SBUtilisé.ItemData(j)
        Do While valeurpossible <> valeurutilisé
            j = j + 1
            valeurutilisé = SBUtilisé.ItemData(j)
        Loop
        If valeurutilisé = Null Then
            SBLibre.AddItem (valeurpossible)
        Else
            Exit For
        End If
        
    Next
Next

SBUtilisé,SBLibre et SBPossible sont des listes d'un formulaire de la base de données access.
Quand je lance mon programme, le test valeurutilisé=null n'est pas pris en compte. en effet quand la boucle "do while" s'effectue et que la valeur de valeurutilisé=null, le programme va directement dans la boucle else.
Je ne sais pas comment faire pour résoudre cette erreur.

merci d'avance

cs_Luluce25 · Accepted Answer

C'est bon mon problème est résolu
Il suffit de remplacer "if valeurutilisé = Null Then" par "if IsNull(valeurutilisé) then"

merci quand même pour ton aide willi

cs_Willi · Answer

Peut etre avec un
If valeurutilisé Is Nothing then
......

cs_Luluce25 · Answer

désolé mais ca marche pas non plus

cs_Willi · Answer

Il y a quelque chose que je ne comprend pas.

      If valeurutilisé = Null Then
            SBLibre.AddItem (valeurpossible)
      Else
            Exit For
      End If

Tu ne te serais pas planté et inversé ton Exit For avec SBLibre.... ?

cs_Luluce25 · Answer

non en fait si la valeurutilisé est égale a null alors j'ajoute une valeur à la liste sinon je sors du premier for pour changer ma valeur de "valeurpossible"

si "valeurutilisé"est égale à null alors ça veut dire que "valeurpossible" n'apparait pas dans la liste SBUtilisé.

Test d'une valeur null

5 réponses

Votre réponse