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 :

Utilisation de la fonction DLookup [AC-2016]


Sujet :

VBA Access

  1. #1
    Membre à l'essai
    Homme Profil pro
    employé
    Inscrit en
    Juillet 2018
    Messages
    105
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : employé

    Informations forums :
    Inscription : Juillet 2018
    Messages : 105
    Points : 23
    Points
    23
    Par défaut Utilisation de la fonction DLookup
    Bonjour,

    Nom : Capture1.PNG
Affichages : 130
Taille : 3,7 Ko

    J'utilise la fonction DLookup pour allez chercher une valeur dans une requête.
    Cette requête à des critères qui font que parfois il y a une valeur et d'autre fois il n'y a pas de valeur.
    Lorsqu'il n'y a pas de valeur j'ai un message d'erreur qui apparait:

    Nom : Capture.PNG
Affichages : 122
Taille : 2,8 Ko

    Seulement moi, lorsqu'il n'y a pas de valeur j'aurai voulu faire apparaitre un MsgBox .

  2. #2
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 648
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 648
    Points : 14 626
    Points
    14 626
    Par défaut
    bonsoir,
    utilise If pour tester la valeur du résultat du Dlookup dans une variable:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim vrResultat as Variant
    vrResultat = Dlookup("[N°lame]", "R_Lame_en_cours")
    if isnull(vrResultat) then
        MsgBox "Affichage du message"
    else 
        l_rsArticles.FindFirst "T_Lames_N°lame = " & Val(vrResultat)
    end if
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?

  3. #3
    Membre à l'essai
    Homme Profil pro
    employé
    Inscrit en
    Juillet 2018
    Messages
    105
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : employé

    Informations forums :
    Inscription : Juillet 2018
    Messages : 105
    Points : 23
    Points
    23
    Par défaut
    Bonjour tee_grandbois,
    C'est nickel, merci pour l'info.
    Hier je t'ai envoyé un message perso, pour un problème dont nous avions travaillé ensemble l'année dernière (c'était sur une recherche entre deux dates), mais c'est bon j'ai trouvé.
    Encore un grand merci

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

Discussions similaires

  1. utiliser la Fonction DLookup
    Par Rodchess dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 23/05/2007, 17h49
  2. Utilisation dela fonction DLookup
    Par bernez dans le forum VBA Access
    Réponses: 3
    Dernier message: 10/05/2007, 18h25
  3. Utilisation de la fonction de déploiement
    Par mchicoix dans le forum XMLRAD
    Réponses: 4
    Dernier message: 01/03/2005, 14h35
  4. Utilisation de la fonction qsort
    Par Jsmeline dans le forum C
    Réponses: 8
    Dernier message: 28/01/2005, 12h40
  5. [LG]librairies : utiliser seulement quelques fonctions
    Par wwwroom dans le forum Langage
    Réponses: 13
    Dernier message: 14/05/2004, 22h50

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