Discussion :

[vandrie]

Bonjour,

J'ai cherché sur la FAQ, j'ai eu une réponse concernant un code SQL mais si je l'applique dans mon code, ça ne fonctionne pas.
Je n'ai pas d'erreur mais ça ne fonctionne pas.
Voici mon bout de code :

Code :

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

1
2
3
4
5
6
7
    'Sortir si pas de préventif sur cet équipement
    If IsNull(rstE.Fields("ObjStrPrevMeca").Value) = True Then
        Call AddPreventif(Vloc.Item("VpObjStrActuel"), "MÉCANIQUE", Month(Now))
        MsgBox "1 préventif créé sur l'équipement : " & Vloc.Item("VpObjStrActuel"), vbInformation, "Spy vous informe"
    Else
        MsgBox "Cet équipement n'est pas conçu pour avoir un préventif mécanique.", vbExclamation, "Spy vous informe"
    End If

Même quand le champ ObjStrPrevMeca est renseigné par au moins un item, le code me déroute vers le "ELSE" de mon "IF" ...

Merci.

[LedZeppII]

Bonsoir,

La propriété Value d'un champ multi-valeurs n'est jamais nulle car c'est un objet Recordset2.
Il faut tester le nombre d'enregistrements.

Code :

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

1
2
3
4
5
If rstE.Fields("ObjStrPrevMeca").Value.RecordCount = 0  Then
     ' le champ ne contient aucune valeur (assimilable à Null)
Else
    ' le champ contient au moins une valeur
End if

A+

[vandrie]

Merci beaucoup.
Une subtilité qui en intéressera certainement beaucoup.