Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Requête Nz(.. versus Val(Nz(..


Sujet :

Access

  1. #1
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2016
    Messages
    99
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Santé

    Informations forums :
    Inscription : octobre 2016
    Messages : 99
    Points : 128
    Points
    128
    Par défaut Requête Nz(.. versus Val(Nz(..
    Bonjour,

    Soit une table Table_1 contenant deux champs numériques Num1 et Num2 ... mais où les Null ne sont pas interdits ! En l’occurrence, elle contient :
    Num1 Num2
    Null 12
    21 0
    31 Null
    51 52

    Et voici un bout de code VBA où on compare la première valeur à la somme des deux valeurs, en se protégeant contre les Null (qui ont un autre usage ailleurs) :
    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
    21
    22
    Public Function Fn_Loop(sql As String)
        Dim oRst As DAO.Recordset
        Debug.Print "-------------------------------------------"
        Debug.Print sql
        Debug.Print "-------------------------------------------"
        Set oRst = CurrentDb.OpenRecordset(sql)
        While Not oRst.EOF
            If oRst("N1") = oRst("N1p2") Then
                Debug.Print oRst("N1") & " = " & oRst("N1p2")
            Else
                Debug.Print oRst("N1") & " <> " & oRst("N1p2")
            End If
            oRst.MoveNext
        Wend
        oRst.Close: Set oRst = Nothing
    End Function
    
    Public Function Fn_Test()
        Fn_Loop "SELECT Nz([Num1],0) AS N1, Nz([Num1],0)+Nz([Num2],0) AS N1p2 FROM Table1;"
        Fn_Loop "SELECT Val(Nz([Num1],0)) AS N1, Nz([Num1],0)+Nz([Num2],0) AS N1p2 FROM Table1;"
    End Function
    ... et Fn_Test affiche :
    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
     
    -------------------------------------------
    SELECT Nz([Num1],0) AS N1, Nz([Num1],0)+Nz([Num2],0) AS N1p2 FROM Table1;
    -------------------------------------------
    0 <> 12
    21 <> 21
    31 <> 31
    0 <> 0
    51 <> 103
    -------------------------------------------
    SELECT Val(Nz([Num1],0)) AS N1, Nz([Num1],0)+Nz([Num2],0) AS N1p2 FROM Table1;
    -------------------------------------------
    0 <> 12
    21 = 21
    31 = 31
    0 = 0
    51 <> 103
    Comme vous pouvez vous en douter, j'ai été surpris par les "21 <> 21" et autres égalités non-détectées.

    La raison en est que "SELECT Nz([Num1],0) AS N1 .." retourne en fait la String "0" et non une valeur numérique, alors que la deuxième partie "... Nz([Num1],0)+Nz([Num2],0) ..." retourne toujours une valeur numérique.
    .. d'où la nécessité absolue du Val(Nz(.. sur la première partie.

    Il est vrai que la documentation de Nz précise bien que, dans une requête, Nz retourne toujours une chaîne, et ce même si la valueifnull est 0.

    Je suis le seul à m'être cassé le nez sur ce bug ou c'est une "erreur de débutant" ;-) ?

    Cordialement,
    Olivier

  2. #2
    Rédacteur/Modérateur
    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    6 343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 6 343
    Points : 13 430
    Points
    13 430
    Billets dans le blog
    11
    Par défaut
    Je suis le seul à m'être cassé le nez sur ce bug ou c'est une "erreur de débutant" ;-) ?
    Non, probablement pas

    On peut aussi constater que dans :

    Il n'y a pas d'opération.

    Alors que dans :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    N1p2 : Nz([Num1];0)+Nz([Num2];0)
    Il y a l'addition donc, il peut repérer que c'est un numérique.

    Alors peut-être essayer aussi de multiplier par 1 pour N1 ou d'ajouter 0:

    Cdlt,
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information en abondance, plein de bonnes choses à consulter sans modération

    Apprendre par l'exemple :
    Intégration d'un planning basé sur le module de classe clPlanner
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel

  3. #3
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2016
    Messages
    99
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Santé

    Informations forums :
    Inscription : octobre 2016
    Messages : 99
    Points : 128
    Points
    128
    Par défaut
    Je confirme, dans une requête, un Nz([Num1];0) retourne TOUJOURS une chaîne. Une chaîne qui représente [Num1] (si non null), ou "0" dans le cas contraire.

    Quand on fait le même test en VBA, ce n'est pas le cas :
    • Nz(12,"0") retourne un Long,
    • Nz(Null,0) retourne un Long,
    • Nz(Null,"0") retourne une String,

    ... donc ça se comporte - je dirai - plus ou moins "naturellement" comme ce à quoi on s'attend.

    Alors que, dans une requête (notez aussi le passage de la virgule au point-virgule, version française oblige) :
    • Nz(12;0) retourne "12" ... en String !
    • Nz(Null;0) retourne "0"... en String aussi
    • Nz(Null;"0") retourne "0", en String toujours, même si, là, ça paraît plutôt logique.


    Tout ça peut donner des bugs bien amusants à localiser, n'est-il pas ?

    Cordialement,
    Olivier

  4. #4
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    13 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 13 501
    Points : 20 501
    Points
    20 501
    Par défaut
    Bonjour.

    Autre bug amusant avec NZ() : la suppression des décimales.
    Vécu dans un environnement multilingue, sur poste en "Anglais", pas de problème les décimales sont là. Sur le même poste en "français", plus de décimales ... et pas de message d'alerte.
    Perso j'utilise iif(not isNull(UneValeur), unValeur, ValeurPourNull), cela permet de conserver le typage et évite les mauvaises surprises.
    Bon ça peut faire des formules assez longues mais on ne peut pas tout avoir.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  5. #5
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2016
    Messages
    99
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Santé

    Informations forums :
    Inscription : octobre 2016
    Messages : 99
    Points : 128
    Points
    128
    Par défaut
    Merci pour ces infos ! Je crois qu'on va se définir une fonction locale Fn_NonZero et que les consignes seront "interdiction d'utiliser Nz dans les requêtes" !

    Comme on a déjà un utilitaire SnifQuery qui permet d'ouvrir en mode création toutes les requêtes d'une BD contenant une certaine chaîne, on n'aura plus qu'à le lancer sur "Nz(" et à faire les remplacements.

    Encore merci !

    Cordialement,
    Olivier

  6. #6
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2016
    Messages
    99
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Santé

    Informations forums :
    Inscription : octobre 2016
    Messages : 99
    Points : 128
    Points
    128
    Par défaut
    Finalement, c'est plus subtil que ça ! Ça n'a rien à voir SPECIFIQUEMENT avec Nz. C'est un problème de passage du SQL vers le VBA, via le DAO !

    Dans un recordset récupéré via DAO un champ provenant d'une fonction avec un type de retour Variant est toujours renvoyé sous le type String (càd 10 - voir https://docs.microsoft.com/fr-fr/off...numeration-dao) ... que cette fonction soit Nz ou une fonction perso !!

    J'ai modifié mon code comme ci-dessous pour voir et la valeur, et le type :
    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
     
    Public Function Fn_Loop(sql As String)
        Dim oRst As DAO.Recordset
        Debug.Print "-------------------------------------------"
        Debug.Print sql
        Debug.Print "-------------------------------------------"
        Set oRst = CurrentDb.OpenRecordset(sql)
        While Not oRst.EOF
            If oRst("N1") = oRst("N1p2") Then
                Debug.Print oRst("N1") & "(" & oRst("N1").Type & ") = " & oRst("N1p2") & "(" & oRst("N1p2").Type & ")"
            Else
                Debug.Print oRst("N1") & "(" & oRst("N1").Type & ") <> " & oRst("N1p2") & "(" & oRst("N1p2").Type & ")"
            End If
            oRst.MoveNext
        Wend
        oRst.Close: Set oRst = Nothing
    End Function
    J'imagine bien que les types des champs d'un recordset ne peuvent pas dépendre de l'exécution de la requête sous-jaccente - sinon, le type pourrait varier pour chaque ligne de résultat.

    CONCLUSION : si une colonne de requête provient uniquement d'une fonction à retour Variant, souvenez-vous que, via DAO, vous récupérerez toujours une String ! Par contre si une colonne provient d'une somme de Variant, la présence de l'opérateur forcera un type numérique (et ce sera d'ailleurs toujours un Double, même si les valeurs sommées sont uniquement des Long).


    Une autre façon de procéder est de faire le test "If oRst("N1") = oRst("N1p2")" directement à l'intérieur de la requête, comme ci-dessous :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    SELECT Nz([Num1],0) AS N1, Nz([Num1],0)+Nz([Num2],0) AS N1p2, [N1]=[N1p2] AS Test_Res FROM Table1;
    Avec cette requête, Test_Res sera TOUJOURS correct mais, si vous tentez de réutiliser oRst("N1") sans vous attendre à y trouver une String, vous ferez comme moi : vous chercherez un bon moment !
    ... ce qui montre bien que le problème est dans la transition DAO de la requête vers le recordset et non dans le Nz lui-même !

    Quand on a compris, tout paraît toujours plus simple ...

    Cordialement,
    Olivier

    PS: j'ai vérifié l'histoire des décimales et, sur ma version française d'Access (2013), ça marche ! Pas de problème de ce côté là !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2016] Mise en forme conditionnelle, requête croisée et fonction Val ,chasse au Gremlin!
    Par vavavoum74 dans le forum Requêtes et SQL.
    Réponses: 5
    Dernier message: 21/12/2018, 07h28
  2. [AC-2010] Optimisation de formulaire Tabel versus Requête
    Par zooffy dans le forum VBA Access
    Réponses: 3
    Dernier message: 14/11/2017, 14h22
  3. Utilisation de MAX dans une requête SQL
    Par Evil onE dans le forum Langage SQL
    Réponses: 7
    Dernier message: 15/06/2004, 18h38
  4. Requete requête sous sybase
    Par eddie dans le forum Sybase
    Réponses: 3
    Dernier message: 02/04/2003, 14h51
  5. [BDD] Enregistrer le résultat d'une requête
    Par Mowgly dans le forum C++Builder
    Réponses: 5
    Dernier message: 19/06/2002, 15h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo