IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

VBA Access Discussion :

Concaténation valeur null


Sujet :

VBA Access

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    298
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 298
    Par défaut Concaténation valeur null
    Bonjour,

    j'ai la fonction 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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
     
    Public Function Support(Projet As Long, Projet1 As Long) As String
    Dim res As DAO.Recordset
    Dim SQL As String
    Dim tempSupport As String
    Dim tempExpo As String
    'Selectionne les participant du projet
    SQL = "SELECT Support FROM Support WHERE Chrono=" & Projet
    Set res = CurrentDb.OpenRecordset(SQL)
    'Concatene les différents enregistrement
    While Not res.EOF
    tempSupport = tempSupport & res.Fields(0).Value & " + "
    res.MoveNext
    Wend
    'Enleve le dernier espace
    'libere la mémoire
     
     
    Dim SQL1 As String
    Dim var As String
    var = "Présentation autour de la maquette"
    'Selectionne les participant du projet
    SQL1 = "SELECT Expose FROM Expose WHERE Chrono= " & Projet1 & " And Expose<>'Présentation autour de la maquette'"
    Set result = CurrentDb.OpenRecordset(SQL1)
    'Concatene les différents enregistrement
     
     
        While Not result.EOF
            tempExpo = tempExpo & result.Fields(0).Value & " + "
            result.MoveNext
        Wend
     
    Support = tempSupport + tempExpo
    Support = Left(Support, Len(Support) - 3)
     
    'Enleve le dernier espace
     
    'libere la mémoire
    Set result = Nothing
    Set res = Nothing
     
    End Function
    Elle récupère des données d'un table et les concatène avec les donnée d'une autre table.

    Cependant avec

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Support = tempSupport + tempExpo
    si tempSupport est vide ou tempExpo alors la fonction ne retourne rien quand je l'appele dans ma requête sql.

    Si quelqu'un a une solution.

    Merci d'avance

  2. #2
    Membre Expert Avatar de Renardo
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    1 648
    Détails du profil
    Informations personnelles :
    Âge : 61
    Localisation : France

    Informations forums :
    Inscription : Avril 2006
    Messages : 1 648
    Par défaut
    bonjour,
    essai de rajouter Nz
    Support = nz(tempSupport) & nz(tempExpo)

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    298
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 298
    Par défaut
    j'ai toujours le meme problème.

    Cela vient sans doute de la requête sql suivant

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    SELECT Support(E.Chrono,S.Chrono) AS LesParticipants
    FROM Expose AS E INNER JOIN Support AS S ON E.Chrono = S.Chrono
    GROUP BY E.Chrono, S.Chrono;
    et de la condition ON car si E.chrono est nul la condition n'est pas vérifié

Discussions similaires

  1. Concaténer si valeur NULL
    Par adilsonn dans le forum SQL
    Réponses: 20
    Dernier message: 11/12/2014, 14h47
  2. requete avec la valeur NULL
    Par Hinkel dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 12/11/2008, 16h39
  3. Selectionner un champ de valeur nulle
    Par arcane dans le forum Requêtes
    Réponses: 2
    Dernier message: 30/09/2003, 14h26
  4. [CR9] conversion de valeurs NULL
    Par ministry dans le forum SAP Crystal Reports
    Réponses: 4
    Dernier message: 12/09/2003, 11h41
  5. Valeurs Nulles ou Valeurs à Zéro
    Par LLaurent dans le forum XMLRAD
    Réponses: 5
    Dernier message: 30/07/2003, 11h40

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