[Access VBA] problème pour récuperer un champ

Hello

En VBA, il te suffit de faire :

nomListe.Value

Et là, il te renvoie la valeur sur laquelle tu as double-cliqué par exemple.

;)

Merci pour vos réponse!!

EN fait pas forcement avec une requete mais j'aimerai recuperer cette valeur d'une maniere ou d une autre..

pour le : Nom_de_ma_liste.value j ai un probleme d execution 94 (utilisation incorrect de null)

:(

Programme le sur un "Double-Click" et teste le sur une liste non vierge à partir du formulaire.

Private Sub List0_DblClick(Cancel As Integer)

MsgBox List0.Value

End Sub

Pour éviter le message d'erreur, fais juste un test sur la valeur renvoyée :

If Not IsNull(List0.Value) Then

' Ton code

End If

;)

Bin, pour récupérer la valeur d'une liste, il suffit de déterminer quelle colonne est liée (ou de lier la "bonne colonne").

Dans la feuille des propriétés de la liste, sous l'onglet données, tu peux le paramétrer.
Blux a posté récemment la même manoeuvre en VBA mais je l'ai plus trouvée...

salut

les noms que tu a dans ta liste sont rempli avec une requete c'est ca
peut tu la mettre pour que je te donne le code
moi c'est ce que j'ai fais quand je clique sur un nom d'un utlilisateur dans la liste ca me marque le nom de PC sur lequel ce trouve cette utilisateur
Si j'ai ta requete je pense que je pourrais t'aider

Desolé mais je comprend pas trop ta requete
tu l'as fait avec l'assistant

est ce qu tu as une table PC qui contient lse champs "pc" "nom programme"

je vais tenté quand meme

Dim Sql As String
Dim Qry As DAO.QueryDef
Dim rs As DAO.Recordset

Sql = "SELECT PC.nom_PC FROM PC"
Sql = Sql & " WHERE (((PC.nom_programme) = """ & Me.lstnom_prog & """)) "

DoCmd.DeleteObject acQuery, "nom_PC" 'supprime la requête
CurrentDb.CreateQueryDef "nom_PC", Sql 'crée une nouvelle requete

Set Qry = CurrentDb.QueryDefs("nom_PC")
Set rs = Qry.OpenRecordset

While Not rs.EOF

txtnom_PC = rs(0)
rs.MoveNext

Wend

Set Qry = Nothing
Set rs = Nothing

dans mon exemple je suppose que tu a une table qui s'appelle PC avec les champ "nom_PC" et "nom_programme"

""" & Me.lstnom_prog & """ c'est pour prendre la valeur de ta liste

par contre moi je l'affiche dans un texte je n'ai pas cherché pour la liste je pense que ca ce ressemble

il faut que tu creer une requete toute bidon vraiment nimp que tu appelle "nom_PC" seul le nom que tu donne a la requete est important

je sais les champs sont merdique mais je peu pas changer c est une table exporter de fichier XLS..

Pour la requete c est le code que tu ma donné avant.. c est pas juste ?

je ne sais pas mais tu me dit que
NomDeProgramme est une requete
c'est que tu l'as créé avant mais dit moi comment

Ha ui sorry..

c est une requete tt simple... vu qu aucune table physique existe (juste une liaison sur les fueille exel..) il me faut une requete comme une table...

je sais pas si tu me comprend

si je te comprend et il te marque un message d'erreur ou tu as juste ta requete qui est vide

Ciao..

J'ai creer une table nommer "Tbl_Prog" sur la base de ma requete..

    Sql = "SELECT Tbl_Prog.NomPc FROM Tbl_Prog"
    Sql = Sql & " WHERE (((Tbl_Prog.NomProg) = """ & Me.lst_Resultat & """)) "

    DoCmd.DeleteObject acQuery, "nom_PC" 'supprime la requête
    CurrentDb.CreateQueryDef "nom_PC", Sql 'crée une nouvelle requete

    Set Qry = CurrentDb.QueryDefs("nom_PC")
    Set rs = Qry.OpenRecordset

    While Not rs.EOF
   ' MsgBox (Sql)
   
    txtTest.Value = rs(0)
    rs.MoveNext

    Wend

    Set Qry = Nothing
    Set rs = Nothing

NomPc et NomProg étant des nom de champ de ma table
nom_pc étant une requete tt simple

Je sais vraiment pas comment car normalement il faudrai que ma MsgBox me mette la requete avec le nom du champ que j ai sélectionner nn ?

si tu veut que ta msgbox s'affiche il ne faut pas la mettre en commentaire

c'est quoi ton probleme ca ne met toujours rien dans ta requete ?

Je pense qu'il y a une probleme au niveau du "ma_liste.value"

etes vous sur que la propriété value raporte la veleur selectionné dans la liste ?

j'ai dit plus haut que le .value pour moi ca ne sert a rien

pour moi le probleme vien de

Sql = "SELECT Tbl_Prog.NomPc FROM Tbl_Prog"
Sql = Sql & " WHERE (((Tbl_Prog.NomProg) = """ & Me.lst_Resultat & """)) "

on demande de selectionner des truc pour lequel le nomProg est = a la liste mais si tu affiche des nom de pc dans ta liste ca ne marchera jamais

tu me suis ?

Ben comme tu peux le voir dans le message 62 sa serai juste le nom du programme qu il faudrai récuperer pour pourvoir faire la requete d afficher juste les nom des pc ou le prog est installé...

OK on va faire un test tous simple

tu creer un texte dans ton formulaire ou tu a ta liste tu l'appelle txttest et dans ta zone de liste tu creer le code sur click

txttest=lst_Resultat

et tu me dit si tu as quelque chose qui ce met dans le texte et surtout quoi

Merci a vous 2..

J ai test mais une erreur (2185) apparait : impossible de faire reference a une propriété ou de la definir pour un controle si celle ci n est pas activé...

c'est peut etre un probleme de reference dans option Vba mais je n'ai aucune idée de laquelle