OVH Cloud OVH Cloud

Sélectionner dans une liste modifiable

3 réponses
Avatar
Bonjour,

Dans un formulaire, j'ai une liste modifiable=20
ind=E9pendante, reli=E9e a une table contenant toutes les=20
compagnies. A l'ouverture de ce formulaire, j'aimerais=20
pouvoir y s=E9lectionner automatiquement une compagnie qui=20
serait d=E9termin=E9e par une variable venant d'un autre=20
formulaire. Ainsi, j'aimerais savoir comment parcourir, a=20
l'aide de vba les choix d'une liste modifiable.

Voici le code que j'ai pr=E9sentement, mais j'ai une erreur=20
comme quoi la r=E9f=E9rence est n'est pas valide:

Set ctl =3D Me!CONUM 'CONUM est le nom de la liste=20
modifiable
For Each varItm In ctl.ItemsSelected
For intI =3D 0 To ctl.ColumnCount - 1
strCONUM =3D ctl.Column(intI, varItm)
If strCONUM =3D gstTitreEtat Then
Exit For
End If
Next intI
Next varItm

Note: c'est un contr=F4le ind=E9pendant, je ne peux pas juste=20
faire DoCmd.OpenForm ,,,Crit=E8re.

Merci

3 réponses

Avatar
Denis Taglia
Bonjour,
itemselected c'est pour les selections multiples si je ne me trompe pas.
et simplement me.CONUM.value=maVariableVenuedAilleurs
il faut bien sur que cette variable soit aussi la cle de la requete de la
liste
Bon code
Denis
a écrit dans le message de
news:04ae01c3be95$40a203b0$
Bonjour,

Dans un formulaire, j'ai une liste modifiable
indépendante, reliée a une table contenant toutes les
compagnies. A l'ouverture de ce formulaire, j'aimerais
pouvoir y sélectionner automatiquement une compagnie qui
serait déterminée par une variable venant d'un autre
formulaire. Ainsi, j'aimerais savoir comment parcourir, a
l'aide de vba les choix d'une liste modifiable.

Voici le code que j'ai présentement, mais j'ai une erreur
comme quoi la référence est n'est pas valide:

Set ctl = Me!CONUM 'CONUM est le nom de la liste
modifiable
For Each varItm In ctl.ItemsSelected
For intI = 0 To ctl.ColumnCount - 1
strCONUM = ctl.Column(intI, varItm)
If strCONUM = gstTitreEtat Then
Exit For
End If
Next intI
Next varItm

Note: c'est un contrôle indépendant, je ne peux pas juste
faire DoCmd.OpenForm ,,,Critère.

Merci
Avatar
oui, je sais j'ai déja fait ca, mais cela ne me conviens
pas. Dans ma liste modifiable, j'ai 2 colonnes liées : la
première est le nom de l'entreprise(c'est elle qui est
affichée) et la deuxième est le code de l'entreprise (la
valeur retournée). Ainsi, si je fais simplement
me.CONUM.value=maVariableVenuedAilleurs, cela va
uniquement afficher le code, pas le nom et le code comme
je le veux !

Merci d'avoir essayé, d'autres suggestions ?

-----Message d'origine-----
Bonjour,
itemselected c'est pour les selections multiples si je ne
me trompe pas.

et simplement me.CONUM.value=maVariableVenuedAilleurs
il faut bien sur que cette variable soit aussi la cle de
la requete de la

liste
Bon code
Denis
a écrit dans le
message de

news:04ae01c3be95$40a203b0$
Bonjour,

Dans un formulaire, j'ai une liste modifiable
indépendante, reliée a une table contenant toutes les
compagnies. A l'ouverture de ce formulaire, j'aimerais
pouvoir y sélectionner automatiquement une compagnie qui
serait déterminée par une variable venant d'un autre
formulaire. Ainsi, j'aimerais savoir comment parcourir, a
l'aide de vba les choix d'une liste modifiable.

Voici le code que j'ai présentement, mais j'ai une erreur
comme quoi la référence est n'est pas valide:

Set ctl = Me!CONUM 'CONUM est le nom de la liste
modifiable
For Each varItm In ctl.ItemsSelected
For intI = 0 To ctl.ColumnCount - 1
strCONUM = ctl.Column(intI, varItm)
If strCONUM = gstTitreEtat Then
Exit For
End If
Next intI
Next varItm

Note: c'est un contrôle indépendant, je ne peux pas juste
faire DoCmd.OpenForm ,,,Critère.

Merci


.



Avatar
Denis Taglia
Non, je ne suis pas sur d'avoir bien compris, déjà dans une liste modifiable
un seul champ est visible quand le dropdown n'est pas activé, ou j'ai loupé
un épisode?
Si tu veux m'envoyer un échantillon, il faut enlever le under score.(access
2002 maxi access 97 mini)
Denis

a écrit dans le message de
news:0ae301c3bf2b$9cdf6190$
oui, je sais j'ai déja fait ca, mais cela ne me conviens
pas. Dans ma liste modifiable, j'ai 2 colonnes liées : la
première est le nom de l'entreprise(c'est elle qui est
affichée) et la deuxième est le code de l'entreprise (la
valeur retournée). Ainsi, si je fais simplement
me.CONUM.value=maVariableVenuedAilleurs, cela va
uniquement afficher le code, pas le nom et le code comme
je le veux !

Merci d'avoir essayé, d'autres suggestions ?

-----Message d'origine-----
Bonjour,
itemselected c'est pour les selections multiples si je ne
me trompe pas.

et simplement me.CONUM.value=maVariableVenuedAilleurs
il faut bien sur que cette variable soit aussi la cle de
la requete de la

liste
Bon code
Denis
a écrit dans le
message de

news:04ae01c3be95$40a203b0$
Bonjour,

Dans un formulaire, j'ai une liste modifiable
indépendante, reliée a une table contenant toutes les
compagnies. A l'ouverture de ce formulaire, j'aimerais
pouvoir y sélectionner automatiquement une compagnie qui
serait déterminée par une variable venant d'un autre
formulaire. Ainsi, j'aimerais savoir comment parcourir, a
l'aide de vba les choix d'une liste modifiable.

Voici le code que j'ai présentement, mais j'ai une erreur
comme quoi la référence est n'est pas valide:

Set ctl = Me!CONUM 'CONUM est le nom de la liste
modifiable
For Each varItm In ctl.ItemsSelected
For intI = 0 To ctl.ColumnCount - 1
strCONUM = ctl.Column(intI, varItm)
If strCONUM = gstTitreEtat Then
Exit For
End If
Next intI
Next varItm

Note: c'est un contrôle indépendant, je ne peux pas juste
faire DoCmd.OpenForm ,,,Critère.

Merci


.