Discussion :

[climz]

Bonjour
Je travaille sous Access 2003
Voila j'ai une liste déroulante nommé Nom_liste qui contient :

• id_user
• Nom
• Prenom

J'aimerais simplement savoir comment récuperer l'id user de l'utilisateur selectionné dans la liste déroulante pour après l'insérer dans une requete SQL contenu dans une zone de liste.

Ce que j'ai pour le moment est cela

Code :

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

1
2
3
 
<ol class="decimal"><li style="">... WHERE T_UTILISATEUR.id_user=Nom_liste.column(1); 
ou</li><li style="">... Where T_UTILISATEUR.id_user = Forms!F_Consult.Nom_liste</li></ol>

Mais ça ne marche pas

Voila merci d'avance à tous

[Lou Pitchoun]

Salut,
Les indices commencent à 0 et pas à 1.

[RGShoop]

Bonjour,

essaye :

Code :

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

...  WHERE T_UTILISATEUR.id_user=" & Nom_liste.column(0) & ";"

la numérotation des champs présents dans une liste dans access commence par 0.

id_user = Nom_liste.column(0)
Nom = Nom_liste.column(1)
Prenom= Nom_liste.column(2)

A+ RGShoop

[climz]

Oui j'ai vu entre temps mais le problème c'est que j'ai le message d'erreur suivant :
"Fonction Nom_Liste.column Non défini dans l'expression"

Et je ne sais pas comment faire

[climz]

j'ai essayé ta methode RGShoop seulement j'ai un problème de compatibilité des données (bizare parce qu'elles proviennent de la meme table).

Code :

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

1
2
3
 
SELECT T_UTILISATEUR.Nom FROM T_UTILISATEUR WHERE T_UTILISATEUR.id_user=" & Nom_liste.column(0) & "; 
// il faut enlever le " après la virgule sinon cela donne une erreur sql

Sinon avec d'autre champs (comme nom) en reference je n'ai pas d'erreur mais cela ne marche pas tout cour :-s

Code :

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

SELECT T_UTILISATEUR.id_user FROM T_UTILISATEUR WHERE T_UTILISATEUR.Nom=" & Nom_liste.column(1) & ";

bizare

[Lou Pitchoun]

Code :

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

1
2
3
SELECT T_UTILISATEUR.Nom 
FROM T_UTILISATEUR 
WHERE T_UTILISATEUR.id_user=" & Me.Nom_liste.column(0) & ";

[climz]

rien ne s'affiche dans la zone de liste meme avec ME
J'ai un code pour rafraichir qui est

Code :

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

1
2
3
Private Sub Nom_liste_Change()
Me.id.Requery
End Sub

Je ne sais pas si cela est nescessaire mais bon.
Je ne voi pas comment faire la syntaxe me parait bonne

[climz]

rien ne s'affiche dans la zone de liste meme avec ME
J'ai un code pour rafraichir qui est

Code :

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

1
2
3
Private Sub Nom_liste_Change()
Me.id.Requery
End Sub

Je ne sais pas si cela est nescessaire mais bon.
Je ne voi pas comment faire la syntaxe me parait bonne

[Lou Pitchoun]

On va reprendre un peu en arrière si tu veux bien...

Voila j'ai une liste déroulante nommé Nom_liste qui contient :

• id_user
• Nom
• Prenom

J'aimerais simplement savoir comment récuperer l'id user de l'utilisateur selectionné dans la liste déroulante pour après l'insérer dans une requete SQL contenu dans une zone de liste.

Tu as donc 2 liste ??
Si oui : "Après mise à jour" de la 1ère tu fais :

Code :

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

1
2
3
Me.NomListe2.RowSource = "SELECT T_UTILISATEUR.Nom " & _
"FROM T_UTILISATEUR " & _
"WHERE T_UTILISATEUR.id_user=" & Me.Nom_liste.column(0) &";"

[climz]

Tout d'abord merci à tous pour vos réponses !
Afin de mieu se comprendre et de trouver au plus vite la solution j'ai fait une petite simulation du problème ( je ne peu pas vous donnée la bdd du travaille )
Certain veront ça d'un mauvais oeil pensant que je souhaite qu'on me fasse le travaille, pas du tout cela fait plusieurs heure que j'essai c'est simplement pour mieu se comprendre.

[Lou Pitchoun]

Je n'ai qu'access 97.. peut pas ouvrir...

[climz]

Je n'ai qu'access 97.. peut pas ouvrir...

arf

[Lou Pitchoun]

arf

Et oui...
As tu essayé ma dernière proposition ??

[climz]

Me.NomListe2.RowSource = "SELECT T_UTILISATEUR.Nom " & _
"FROM T_UTILISATEUR " & _
"WHERE T_UTILISATEUR.id_user=" & Me.Nom_liste.column(0) &";"

Je ne sais pas où mettre ça ?
la liste qui doit affiché le "résultat" est une liste de zone et non une liste déroulante

[climz]

help

[Dolphy35]

Salut,

J'ai jetté un coup d'oeil à ta base,

Verdict : Tu t'es emmellé les pinceaux. Tu as melangé le code VBA et le SQL du générateur de requêtes

Explications :

Code :

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

1
2
3
4
 
<div style="text-align: left;">SELECT T_UTILISATEUR.Nom 
FROM T_UTILISATEUR 
WHERE T_UTILISATEUR.id_user=" & Me.Nom_liste.column(0) & ";</div>

Ce code est à intégrer dans le code VBA et non dans le générateur de requêtes.

Tu as deux solutions :
1-Suivre les indications de Kikof C'est modifier la source de ta zone de liste Consult_Liste après la mise à jour de ta liste déroulante Nom_Liste(événements AfterUpdate())

Code :

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

1
2
3
4
5
6
Private Sub Nom_Liste_AfterUpdate()
    SQL = "SELECT T_UTILISATEUR.Age FROM T_UTILISATEUR " & _
        "WHERE T_UTILISATEUR.id_user=" & Me.Nom_Liste.Column(0) & ";"
    Me.Consult_liste.RowSource = SQL
 
End Sub

2-tu modifie simplement le SQL (dans le générateur de requêtes) de ta zone de liste Consult_Liste en modifiant le critère

Code :

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

1
2
3
SELECT T_UTILISATEUR.Age
FROM T_UTILISATEUR
WHERE (((T_UTILISATEUR.id_user)=[Formulaires]![F_Consult]![Nom_Liste]));

Vu que tu as mis la première colonne comme liées tu récupère par défaut comme valeur l'ID, dans le SQL tu met comme paramètre la valeur de ta zone déroulante.
Pour mettre à jour dans la zone de liste ne pas oublier de mettre :

Code :

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

1
2
3
4
5
Private Sub Nom_Liste_AfterUpdate()
 
    Me.Consult_liste.Requery
 
End Sub

[Lou Pitchoun]

@ Dolphy : Merci d'être passé par là pour voir la base