fonction Dlookup VBA

Bonjour,

Je possède une table que j'utilise pour 3 boutons différents crées dans un formulaire.

Dans cette requête sélection il y a 3 champs (cette requête est mis à jour grâce à une autre requête)
- Nom
- Prénom
- Âge

Je souhaite utiliser la fonction DLookup qui va me sélectionner par exemple la ligne où l'âge = 25 (mais parfois, cette âge n'est pas dispo dans cette requête, je peux très bien avoir qu'une personne âgée de 18 ans..)
Je ne sais pas si vous me comprenez.


Voici ce que j'ai fait mais ça ne fonctionne pas. ça me sélectionne toujours la meme chose.

Code:

---

1 2	Dim AG As Single AG= Nz(DLookup("[AGE]", "Pers", "[AGE] = '25'"), 0)

---

Merci de votre aide.

L.L

salut lahli57,

DLookup() te choisira toujours la première occurrence trouvée. es ce bien ce que tu recherches à faire?

tu as peut être une erreur ici:

Code:

---

DLookup("[AGE]", "Pers", "[AGE] = 25")

---

;)

Bonjour,
En effet ça n'est pas ce que je cherche à faire
Je souhaite trouver parmi ma requête sélection, un âge donné parmi plusieurs âges.

Existe-t'il une fonction qui permet de faire ceci? Comme un where en fait.
Merci

qd je dis première occurrence c'est avec le critère dans le where. dans ton cas: "age=25". càd que si tu as plusieurs qui répondent au critère il n'y aura que le premier qui sera renvoyé.

Ah ben si c'est ça qu'il me faut. Car par exemple j'ai une ligne pour 25 ans, une autre pour 18...

Mais ce que je ne comprend pas., c'est que par exmple là ma table ne contient qu'une ligne (age = 18).
Si je mets ma condition sur age = 25 il faudrait qu'il ne me retourne rien or là il me retourne la ligne age = 18.

Sans doute qu'il y a une erreur dans mon code mais je ne vois pas où.. (je débute en VBA..)
merci

non pas d'erreur sur la syntaxe (si l'age est de type num, c'est sans les apostrophes).
à ce niveau là il n'y a pas de pb mais je vois que tu utilise un Nz() qui définit une valeur par défaut quand il n'y a pas de résultat... il faut voir le reste de ton code.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Nb_Click() On Error GoTo Err_Nb_Click   Dim stDocName As String Dim AG As Single   stDocName = "Pers" DoCmd.OpenQuery stDocName, acNormal, acEdit AG = Nz(DLookup("[AGE]", "Pers", "[AGE] = 25"), 0)   Exit_Nb_Click: Exit Sub   Err_NbClick: MsgBox Err.Description Resum End Sub

---

Pour Nz justement, je veux qu'il ne m'affiche rien (ou null) s'il n'y a pas de données.

Merci.

que cherches tu as faire???

si tu veux ouvrir la table selon un critère tu peux le faire autrement:
> création du formulaire à partir de la table en affichage "feuille de données"
> soit utiliser les filtres par code sinon ouvrir le formulaire avec déjà un critère:
Docmd.OpenForm avec l'argument [WhereCondition] cf <F1>

;)

Ce code, me permet via un clic dans mon formulaire d'ouvrir une requête sélection.
Etant débutante (je dirais même grande débutante) en VBA..j'ai trouvé ce code et est essayé de me l'approprier..

C'est peut-être pas la meilleure solution mais bon..
Pour mon soucis finalement j'ai fais autrement. AU lieu de créer 3 boutons différent (age = 18, 25, 32). J'en ai crée un dans lequel je retrouve de toute façon mes 3 cas.

Merci pour ton aide ;)