Discussion :

[jc_nono_61]

Bonjour

J'ai une zone de liste avec 2 colonnes:
- la premiere stocke un lien vers un ficher BMP
-la deuxieme le chemin d'acces à l'image du genre "C:\MesDoc\Picto_Risques\"

Je me sers de la premiere pour selectionner l'image et de la deuxieme pour stocker dans la base le chemin de cette image

Le code est

[Oleff]

Le code est

... absent
Mais l'acces à une colonne d'une zone de liste se fait par

Code :

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

nomZone.column(index)

Avec l'index à partir de 0. Donc dans ton cas, la deuxième colonne est à l'index 1

[jc_nono_61]

Bonjour

J'ai une zone de liste à choix multiples avec 2 colonnes:
- la premiere stocke un lien vers un ficher BMP
- la deuxieme le chemin d'acces à l'image du genre "C:\MesDoc\Picto_Risques\"

Je me sers de la premiere pour selectionner l'image et de la deuxieme pour stocker dans la base le chemin de cette image

Le code est

Code :

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

1
2
For Each varI in Me!Liste_Symboles.ItemSelected
If Me.ListeSymboles.ItemSelected (varI) ="Comburant Then Me![Img_Comburant].Visible = True......

Comment se référer à la deuxième colonne pour un test
Je ne trouve pas la formule
J'ai essaye

Code :

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

ListeSymboles.ItemSelected (varI).Colomn(2)

mais cela ne fonctionne pas

Qui pourrait m'aider.... si c'est possible ?

Merci

jc

[loufab]

Bonjour,

Column et non colomn.

De mémoire le Colomn fait partie de système digestif.

Cordialement,

[jc_nono_61]

Oui je sais que c'est Column (erreur de frappe)
Par contre en médecine c'est "colon" "colonoscopie" etc ... je suis médecin
Merci pour la suite des réponses s'il y en a

jc

[loufab]

Désolé d'estropier la tuyauterie c'est pour le jeu de mot uniquement.

[Oleff]

ListeSymboles.ItemSelected (varI).Colomn(2)[/CODE] mais cela ne fonctionne pas

column(2) désigne la troisème colonne qui dans ton cas n'existe pas.

Avec column(1) ça devrait aller mieux.

[jc_nono_61]

Bonjour

Oui les colonnes commencent avec Zéro
Voici le début du code

Code :

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

1
2
3
4
5
6
 
For Each varI In Me!Liste_Symboles.ItemsSelected
 
      If Me!Liste_Symboles.ItemData(varI) = "Comburant" Then 
         Me![Img_Comburant].Visible = True: Me![Comburant] = -1
         Me![Risque_A] = Me!Liste_Symboles.ItemData(varI).Column(1)

Le Champ Risque_A est dans le formulaire et l'erreur générée est "Objet requis", erreur 424

Pouvez vous m'aider à voir ce qui cloche
Merci

[Oleff]

Quel est le type du champ Risque_A ?

[Faw]

Accéder à la colonne C de la ligne indéxée par L:

Code :

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

Me!Liste.column(C,L)

Normalement ça donnerait chez toi

Code :

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

Me!Liste_Symboles.column(2,varI)

[jc_nono_61]

OK mille Mercis c'est la formule que je cherchais
Cela fonctionne en mettant column (1,varI)
Pb résolu

[Faw]

Oups j'en ai oublié que les index commencent à zéro

[jc_nono_61]

Bonjour

Désolé mais hier je croyais avoir gagné
En fait cela sélectionne bien la 2 eme colonne mais pas celle de la variable I
Il faudrait une syntaxe du genre

Code :

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

Me![Risque_A] = Me!Liste_Symboles.ItemData(varI).Column(1)

mais ça n'est pas accepté par Access
Avez vous une piste ?

[Faw]

Code :

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

For Each varI In Me!Liste_Symboles.ItemsSelected

Ce code pose varI comme étant un idex de LIGNE
Donc je ne comprends pas quand tu parles de colonne de la variable I...

Code :

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

Me![Risque_A] = Me!Liste_Symboles.ItemData(varI).Column(1)

Itemdata fait directement référence à la COLONNE LIEE d'une
liste et l'utiliser en même temps que Column ne rime à rien. c'est comme si
tu demandais d'avoir la valeur de la colonne zéro De la colonne 1. ...

[loufab]

Bonjour Herr Doctor !

Je te passe ce code, après test il fonctionne parfaitement.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim ctl As Control
Set ctl = Me!Liste_Symboles
    For Each varItm In ctl.ItemsSelected
        For intI = 0 To ctl.ColumnCount - 1
            Debug.Print ctl.Column(intI, varItm)
        Next intI
        Debug.Print
    Next varItm

Je suis persuadé qu'en gardant la même structure tu pourras facilement l'adapter à ton besoin.

Cordialement,

[Faw]

Bonjour Herr Doctor !

Je te passe ce code, après test il fonctionne parfaitement.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim ctl As Control
Set ctl = Me!Liste_Symboles
    For Each varItm In ctl.ItemsSelected
        For intI = 0 To ctl.ColumnCount - 1
            Debug.Print ctl.Column(intI, varItm)
        Next intI
        Debug.Print
    Next varItm

Je suis persuadé qu'en gardant la même structure tu pourras facilement l'adapter à ton besoin.

Cordialement,

Merci de confirmer la syntaxe de base loufab
Mais à partir du moment que l'on se fixe sur une colonne precise (2ème colonne ici), nul besoin de boucler sur toutes les colonnes par ligne.
A moins que le Doc. ne se soit mélangé les pinceaux en exposant son cas

[loufab]

Non je ne pense pas que Jc se soit planter, j'ai fourni un code générique.

[jc_nono_61]

Merci, je vais essayer de l'adapter à mes besoins et je vous tiens au courant
Ce n'est pas évident de trouver la syntaxe de ce genre et je ne risquais pas tout seul dans mon coin d'y arriver

[loufab]

Salut Doc

Je n'ai aucun mérite j'ai fait F1.

On y pense jamais à cette touche mais elle sert.

Cordialement,