Discussion :

[JeanMikael]

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

[Heureux-oli]

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

Ici un très bon tuto sur le DAO .

[JeanMikael]

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

[JeanMikael]

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 :

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
 
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

[jean-paul lepetit]

Salut,

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

[JeanMikael]

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

[Heureux-oli]

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
 
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.

[JeanMikael]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("Username")

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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