[VBA]Dlookup + Label

Bonjour le forum,

Après avoir retourné la faq et le forum dans tout les sens je me tourne vers vous, j'aimerai grâce a DlookUp plus un label que je préalablement crée sur un formulaire obtenir un résultat dans un autre label, en gros mon premier formulaire correspond à un numéro d'identification qui s'il est présent dans la BDD renvoi vers un autre menu et la dans ce menu je veux afficher dans un label le nom et prénom de la personne, donc sachant que le numéro d'identification de mon premier label correspond dans ma table à un nom et prénom avec un Dlookup + if je n'arrive pas à dire que
mon label1 = Nom,Prenom dans ma table = label 2

D'avance merci de votre aide.

Bonne fin de journée.

Cordialement,
Jean-Mikaël

Je ne le ferais pas avec un DLookup, mais avec un recordset en DAO.

Ici un très bon tuto sur le DAO .

Bonjour Heureux-Oli et merci de ta réponse il est vrai qu'avec un Dlookup je n'arrive pas du tout à m'en sortir, je test sa de suite avec un recordset merci encore pour ton aide. Bonne journée.

Cordialement,
Jean-Mikaël

Bonjour Heureux-Oli, le forum

Après avoir utilisé la méthode par recordset je n'arrive toujours pas à obtenir ce que je veux...

Je n'arrive pas à traduire qu'il faut que pour mon label qui se nomme label2 doit etre egal au résultat d'une comparaison par rapport à mon label1.
Dans mon label1 j'ai mon code ensuite ce code doit être comparé à la table utilisateur si l'on retrouve le code alors dans le label2 on affiche le nom et prenom correspondant au code du label1. J'ai bien essayé sa mais sans succès :

Code:

---

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

Private Sub test()   Dim MyRecordset As DAO.recordset Dim StrSql As String   StrSql = "SELECT utilisateurs.Nom from [utilisateurs]"   Set MyRecordset = CurrentDb.OpenRecordset(StrSql)     If CtlActiveX33 = StrSql Then CtlActiveX40 = StrSql End If     End Sub

---

Merci encore de votre aide.

Cordialement,
Jean-Mikaël

Salut,

tu parles de label1 et label2 et dans ton code, je ne les vois pas 8O

Bonjour jean-paul,

en fait label1 et label2 c'est juste pour raccourcir, là ctlactiveX33 = label1
et ctlactiveX40 = label2 c'était juste pour simplifier la chose dans le post,
j'espère que cela t'éclair un peu plus sur mon problème :) .

Bonne journée
Cordialement
Jean-Mikaël

Code:

---

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

Private Sub test()   Dim MyRecordset As DAO.recordset Dim StrSql As String Dim stTemp as string   StrSql = "SELECT utilisateurs.Nom from [utilisateurs]"   Set MyRecordset = CurrentDb.OpenRecordset(StrSql) stTemp = MyRecordset.Fields("Nom") MyRecoordset.close       If CtlActiveX33 = StrSql Then CtlActiveX40 = StrSql End If     End Sub

---

Tu retrouve la valeur de ton recordset dans stTemp.

strSQL n'est qu'une portion de texte qui va servir à extraire le recordset.

Maintenant, je ne sais pas très bien ce que tu veux obtenir, le premier post n'était pas très clair.

Dis nous ce que tu as et ce que tu voudrais avoir possible qu'on arrive à faire la liaison ensemble.

Bonjour Hereux-Oli merci de consacrer du temps à mon problème alors pour être plus précis voilà ce que je fait :

Dans un premier temps je developpe une petite appli de gestion de stock, dès que un utilisateur lance l'application il arrive sur l'écran d'accueil qui récupère automatiquement son code (identifiant sur le réseaux intranet de l'entreprise)grâce à la "fonction" :

Code:

---

Environ("Username")

---

le résulat de cette
fonction es récupéré dans le ctlactiveX33 qui est un label avec le code suivant:

Code:

---

CtlactiveX33 = Environ("Username")

---

enuite l'utilisateur click sur valider pour accéder au menu principal et là j'ai un autre label, le ctlactiveX40 et dans ce label j'aimerai que soit affiché le Nom et Prénom de la personne utilisant l'application, c'est pour cela que lors de l'arrivé sur le menu principal je souhaiterai faire que :

Mon CtlActiveX33 doit être comparé à la table utilisateur dans laquelle ce trouve le code affiché à la page d'accueil, si ce code est trouvé pendant la comparaison de l'ActiveX33 et de la table utilisateur alors dans l'ActiveX40 du menu principal on renvoi le résultat de la comparaison entre l'ActiveX33 et la table utilisateur, le résultat doit afficher Nom et Prénom puique le code correspond à un nom et prénom dans la table utilisateur,
Par exemple mon code identifiant à la page d'accueil est :

Dans le CtlActiveX33 égal à s0256 donc la comparaison va chercher dans la table utilisateur les nom et prénoms correspondant à ce code et va renvoyer le résultat dans l'ActiveX40 de la page principal.

J'espère avoir été plus précis sur mon problème encore merci pour votre aide.
Bonne journée.

Cordialement,
Jean-Mikaël

Je pense que le dlookup est plus adapté à ce que tu veux faire.

Code:

---

CtlActiveX40.label=DlookUp("Nom","Table_Utilisateur","Username='" & CtlActiveX33 & "'")

---

et si tu veux nom et prénom

Code:

---

CtlActiveX40.label=DlookUp("Nom","Table_Utilisateur","Username='" & CtlActiveX33 & "'") & " " & DlookUp("Prenom","Table_Utilisateur","Username='" & CtlActiveX33 & "'")

---

Code:

---

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

Private Sub test()   Dim rs As DAO.recordset Dim StrSql As String Dim stTemp as string   StrSql = "SELECT Nom, prenom from [utilisateurs] where Nom = '" & Me.ctrlActiveX33 & "'"   Set = CurrentDb.OpenRecordset(StrSql) stTemp = rs.Fields("Nom") & " " & rs.fields("prenom") rs.close   Me.ctrlActiveX40 = Nz (stTemp, "Inconnu")     End Sub

---

Maintenant, si tu récupère le nom via une fonction, tu peux remplacer dans la chaîne SQL Me.ctrlActiveX33 par le nom de ta fonction.

Te voilà avec deux choix, à toi de jouer.

Merci heureux-oli pour tes réponses les deux sont parfaitement adapté à ma situation, et je les gardes bien aux chaud car elles me seront utiles pour plus tard. Bonne après-midi et encore merci.


Cordialement,
Jean-Mikaël