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

Question

Résuperer un champ dans une liste.

Bonjour a tous. 

J'ai un petit problème et je suis sur que vous pourrez m'aider.

J'ai une BD Access avec pour tous les programmes de mon entreprises, tous les ordinateur ou ceux-ci (les prog) sont installé.

J'aimerai que quand je double clique sur la liste des programmes il m'affiche dans une 2 eme liste tt les pc ou ce programme serai installé..

et je sais pas comment résuperer le champ du programme pour faire ma requete....



Help!!

_goni · Answer

Salut,
Pourrais tu etre plus précis ? C'est la requete à réaliser que tu veux ?

bachoune · Answer

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

CyPile · Answer

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)


:(

bachoune · Answer

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

zenon · Answer

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

fl0 · Answer

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

fl0 · Answer

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"

fl0 · Answer

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

CyPile · Answer

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 ?

fl0 · Answer

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

CyPile · Answer

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

fl0 · Answer

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

CyPile · Answer

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 ?

fl0 · Answer

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 ?

CyPile · Answer

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 ?

fl0 · Answer

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 ?

CyPile · Answer

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

fl0 · Answer

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

CyPile · Answer

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

fl0 · Answer

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

blux · Answer

Non, je pense qu'il essaie d'afficher quelque chose qui n'est pas actif...

Faudrait reprendre le code initial avec le .column(n) sur double-clic dans la liste...

CyPile · Answer

Re..



J ai reussi!!


(juste a mettre au moi le nom selectionner dans une variable..)


voila le code:

    colonne = lst_Resultat.Column(0)
    
    
    Sql = "SELECT Tbl_Prog.NomPC "
    Sql = Sql + " FROM Tbl_Prog "
    Sql = Sql + " WHERE Tbl_Prog.NomProg = '" & colonne & "';"
    MsgBox Sql


merci :):):):):)

fl0 · Answer

et maintenant tu as ta requete qui fonctionne ?

CyPile · Answer

A VERY THANKS a tous ceux qui m on aider!!




MERCI

:)

fl0 · Answer

coche la case en haut comme quoi ton probleme est resolu

smail · Answer

bonjour je voudrai recuperer une valeur d'un champs et pui l'affecter dans une variable pour effectuer des contrôles sur cette derniere. merci

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

26 réponses

Discussions similaires

Newsletters