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

Résolu

Valeur
Access
Table
Champ

CyPile -
Polux31 - 3 avril 2008 à 12:15

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

Afficher la suite

Répondre (26) Posez votre question

Répondre (26)

A voir également:

Access vba récupérer la valeur d'un champ d'une table
Table ascii - Guide
Récupérer au terminal de fret - Forum Consommation & Internet
Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
Table des matières word - Guide
Comment recuperer un message supprimé sur whatsapp - Guide

26 réponses

Réponse 1 / 26

_goni Messages postés 964 Date d'inscription Statut Membre Dernière intervention 38

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

Réponse 2 / 26

bachoune Messages postés 5 Date d'inscription Statut Membre Dernière intervention

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.

;)

Réponse 3 / 26

CyPile

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)

:(

blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention 3 359

Salut,

une zone de saisie peut rester vide, dans ce cas elle possède la valeur "null", mais on ne teste pas liste.value = "Null", on teste avec if isnull(liste.value)...

Pour le reste, il suffit donc d'affecter le contenu de la liste à une variable (ou de l'utiliser en tant que tel) :

toto = liste.value

if liste.value = "tata" then

dans ton cas, tu peux générer une requête qui tu mettras en source de la zone dans laquelle tu veux afficher tes PC :

Dim StrSql As String
StrSql = "SELECT num_pc WHERE "
StrSql = " progra = '" & liste.value & "';"
liste2.rowsource = StrSql

Mais c'est un exemple, car dans ton cas, je ne sais pas comment sont tes données et donc comment rechercher les PCs qui ont le programme que tu as sélectionné...

CyPile > blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention

Merci pour ta réponse compléte.

Mon problème est maheureusement plus complexe il m semble...

Je m explique:

J ai une liste qui existe deja avec 3 colones (nom du programme, nom des machines, date du programme)(le tout est dans un formulaire)

moi se que je veut c est quand je double clique sur une ligne de ma liste (pour selectionner un nom de programme), access me retourne juste le nom du programme (et nn tt le ligne) pour que je puisse par la suite construire une requete pour afficher les machines ou le programme que j aurai selectionner est installer.

voila voila...

j espere que tu m as compris un peu mieu :)

parce que normalement ma liste ne devrai pas pouvoir etre NULL puisqu elle est completement rempli..

thanks pour tt

bachoune Messages postés 5 Date d'inscription Statut Membre Dernière intervention > CyPile

List4.Column(2, List4.ListIndex)

2-> ta colonne
List4.ListIndex -> l'index de la ligne sélectionnée

Réponse 4 / 26

bachoune Messages postés 5 Date d'inscription Statut Membre Dernière intervention

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

;)

CyPile

Merci mais c est le mm problème que j ai expliquer plus haut à Blux...

ma liste n est pas vide...

elle fais partie d un formulaire et se rempli par une requete..

:)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 26

zenon Messages postés 726 Date d'inscription Statut Membre Dernière intervention 180

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

CyPile

Merci bcp je vais esseyer de retrouver l article de Bux.. ;)

thanks :)

blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention 3 359 > CyPile

Yep, l'est là :

access mise en forme contenu zonen de liste#3

Réponse 6 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

CyPile

Okay voila la requete:

SELECT DISTINCTROW NomDeProgramme.* FROM NomDeProgramme WHERE (([NomDeProgramme].[Champ3] Like "*"));

champ3 étant le champ3 étant le champ avec le nom des prog...

NomDeProgramme est une requete..

voila voila..

Réponse 7 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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"

Réponse 8 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

Merci bcp..

J ai tt changé pour que sa aille avec ma BD mais j ai une erreur : 3102 " Réference circulaire causé par "nom de ma requete""

je sais pas qui faire...

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

tu as creé une requete avec le nom que je t'ai dit ?

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

ce msg n'est pas pour ici

CyPile > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

j ai reussi merci bcp bcp bcp bcp..

franchement merci

:)

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209 > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

c'etait quoi le probleme pour info

Réponse 9 / 26

CyPile

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 ?

Réponse 10 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

Réponse 11 / 26

CyPile

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

CyPile

requete créé à laide de l assitant...

Réponse 12 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

CyPile

En fait j ai mis un MsgBox comme tu peux voir dans le code il me retourne la requete mais vide...

et si je regarde ma requete physiquement elle est vide aussi...

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

bouge pas j'essaye la msgbox mais je vois pas a quoi ca sert

CyPile > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

Juste a visualiser la requete.. en entier

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

dans ta msgbox tu a quand meme ce que tu as mis entre "" apres le Sql = "...?

CyPile > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

ui bien sur. La requete s ecrit normalement il manque juste les données...

Réponse 13 / 26

CyPile

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 ?

blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention 3 359

En plus des simple quotes, tu peux essayer avec :

Me.lst_Resultat.value

CyPile > blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention

Merci pour tes réponses..

mais sa ne mmarche tjr pas...

voila le code:

= ""' & Me.lst_Resultat.Value & '"")) "

les ' je n ai pas pu les mettre exactement ou toi tu les avait mis.. car il les pend comme un commentaire... je sais donc pas si s est bon la ou je les ai mis...

@plush

blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention 3 359 > CyPile

Si tu les refermes correctement avec " ça marche !

= '" & Me.lst_Resultat.Value & "'));"

Et ce sont bien des simple-quotes (touche 4) et non des back-quotes (touche 7 en ALT-GR).
N'oublie pas non plus le ; à la fin, ça peut servir...

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209 > CyPile

ca fait la meme chose mais ecrit differement

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209 > blux Messages postés 27113 Date d'inscription Statut Modérateur Dernière intervention

ca ne sert a rien de mettre des .value partout si tu est sous access

Réponse 14 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

Je sais..

Nn rien n est afficher ni dans la case txt ni dans la requete nom_Pc..

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

tu as essayer de creer une requete comme je t dit hier ?
parceque si ca ne marche pas a ce niveau la on aurais une idee du probleme

CyPile > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

J'ai pas eut le temp je test maintenan.. mais normalement sa devrai marcher avec ma new table nn ?

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209 > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

je ne sais pas parceque si ca marche en fesant comme je te dit c'est peut etre tout simplement un probleme de reference dans VBa

CyPile > fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention

Okay parce que la sa marche la requete... mais c est bizard alors que sa marche pas en VBA..

il faudrai traduire :

SELECT Tbl_Prog.NomPC
FROM Tbl_Prog
WHERE (((Tbl_Prog.NomProg)="Nero 7 Premium"));

en VBA avec a la place de "Nero 7 Premium" le champ sélectionner dans la liste ... et c est peu etre sa qui marche pas...

Réponse 15 / 26

CyPile

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 ?

Réponse 16 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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 ?

Réponse 17 / 26

CyPile

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

Réponse 18 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

Rien ne s affiche...

mais dans ma lst_resultat j'ai 4 colonnes... donc si je clique sur une sa selectionne tt la ligne pas juste une données...

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

fqait ce que blux a dit avec mon test mais tu met
txttest=lst_Resultat.column(0)
apres 1 , apres 2 etc...

Réponse 19 / 26

CyPile

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

Réponse 20 / 26

fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention 209

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

Répondre Posez votre question

Votre réponse

Discussions similaires

vba access : récupérer une valeur précise

arzawe -
Funstenolf -

8 réponses

[ACCESS]valeur zone de texte = valeur champ

Sebimy -
sarrachfm -

15 réponses

Récupération/insertion valeurs Access VBA

Tydher -
Tydher -

2 réponses

access - récupérer la valeur d'un champ

cerise -
spin -

6 réponses

ACCESS: requête paramétrée & liste déroulante

Crepuscule9 -
jllq -

17 réponses

ACCESS : champ calculé formulair & lien table

schneider -
Apouf -

19 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire