Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access liste déroulante

liste déroulante

7 réponses
Avatar
ibowl77
Bonjour,

J'ai vu dans une des réponses, comment insérer de nouvelles entrées dans une
table référencée par une "liste déroulante". Peut-on ajouter de nouvelles
valeurs si la liste déroulante fait référence à des valeurs saisies
manuellement au départ et non à une table ?

merci pour votre aide.

M. BARDOT
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LAURENT
Oui, si tu as saisies des valeurs manuellement au départcomme tu dis , donc
si la propriété "origine source" et définie sur "liste valeurs" , tu peux
utiliser le code suivant :


Ajouter un élément :
Me.Combo0.AddItem ("Entrée n°1") avec eventuellement l'index :
Me.Combo0.AddItem ("Entrée n°1",1)

Enlever un élément :
Me.Combo0.removeitem([index])

Compter le nombre d'éléments : Me.Combo0.ListCount

--
Cordialement,

------------------------------------
Laurent
"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message de
news:
Bonjour,

J'ai vu dans une des réponses, comment insérer de nouvelles entrées dans
une

table référencée par une "liste déroulante". Peut-on ajouter de nouvelles
valeurs si la liste déroulante fait référence à des valeurs saisies
manuellement au départ et non à une table ?

merci pour votre aide.

M. BARDOT




Avatar
ibowl77
Bonjour,

D'après Laurent, la commande "Me.Combo0.AddItem ("Entrée n°1")" devrait
fonctionner (il m'a même envoyé une base contenant un formulaire de test.
Malgré toutes les vérifications, je récupère toujours un message d'erreur
(voir ci-dessous).

Au niveau de MS Office, seuls les modules Microsoft Outlook pour windows et
Microsoft Frontpage pour windows ne sont pas installés.
Je ne sais plus où regarder ?

Pouvez-vous m'éclairer ?

merci d'avance

M. Bardot

----- Original Message -----
From:
To: "M.bardot"
Sent: Wednesday, February 16, 2005 8:35 PM
Subject: Re: liste déroulante


Il faudrait peut etre que tu réinstalles Access car je pense que quelque
chose
ne va pas (ou essaies sur un autre PC). Pour les références regardes dans
mon
exemple tu n'as besoin que des 2 premières (visual basic for applications
et
Microsoft access 9 object library)

à+

Laurent


Selon "M.bardot" :

MessageJ'ai exécuté la proc attachée au bouton sur ton formulaire, j'ai
le
même message d'erreur que ci-dessous ????

Ne manque-t-il pas une référence à une librairie ( je te joins la liste
des
librairies actuellement référencées)

Je tourne sous Access 2000 et je viens d'installer SR1.

merci pour ton aide

cordialement
M. Bardot
----- Original Message -----
From: Laurent BELLIVIER
To: 'M.bardot'
Sent: Wednesday, February 16, 2005 5:12 PM
Subject: Re : liste déroulante


Bonjour,

le controle liste déroulante etant en natif dans Access, la méthode
additem
l'est aussi, je comprends pas pourquoi celà ne fonctionne pas ?? est ce
que
la compilation se passe bien dans le code ? n'y a t-il pas une référence
manquante ? ci joint un exemple en access 2000 qui fonctionne chez moi

Cordialement,


-------------------------
Laurent

-----Message d'origine-----
De : M.bardot [mailto:]
Envoyé : mercredi 16 février 2005 16:11
À :
Objet : liste déroulante


Bonjour,

Je suppose que Combo0 correspond au nom de la liste déroulante ?

Cela ne marche pas, je récupère le message "erreur de compilation -
Membre
de méthode ou de données introuvable"
et la fonction AddItem est surlignée ?

voici le contenu de la proc exécutée sur l'évenement "sur absence
dans
liste"

Private Sub cbotitre_NotInList(NewData As String, Response As
Integer)

If MsgBox("L'élément [" & _
NewData & "] ne figure pas dans la liste. Voulez-vous l'ajouter
?", _
vbQuestion + vbYesNo) = vbYes Then
Me.cbotitre.AddItem ("Newdata")

End If

' Annuler le message d'erreur d'Access
Response = acDataErrAdded
End Sub

merci pour ton aide

M. Bardot


----- Original Message -----
From: "LAURENT"
Newsgroups: microsoft.public.fr.access
Sent: Wednesday, February 16, 2005 8:53 AM
Subject: Re: liste déroulante


Oui, si tu as saisies des valeurs manuellement au départcomme tu dis
,
donc
si la propriété "origine source" et définie sur "liste valeurs" , tu
peux
utiliser le code suivant :

Ajouter un élément :
Me.Combo0.AddItem ("Entrée n°1") avec eventuellement l'index :
Me.Combo0.AddItem ("Entrée n°1",1)

Enlever un élément :
Me.Combo0.removeitem([index])

Compter le nombre d'éléments : Me.Combo0.ListCount

Cordialement,

------------------------------------
Laurent




"LAURENT" a écrit dans le message de news:

%23Ueyoy$
Oui, si tu as saisies des valeurs manuellement au départcomme tu dis ,
donc
si la propriété "origine source" et définie sur "liste valeurs" , tu peux
utiliser le code suivant :


Ajouter un élément :
Me.Combo0.AddItem ("Entrée n°1") avec eventuellement l'index :
Me.Combo0.AddItem ("Entrée n°1",1)

Enlever un élément :
Me.Combo0.removeitem([index])

Compter le nombre d'éléments : Me.Combo0.ListCount

--
Cordialement,

------------------------------------
Laurent
"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message
de
news:
Bonjour,

J'ai vu dans une des réponses, comment insérer de nouvelles entrées dans
une

table référencée par une "liste déroulante". Peut-on ajouter de nouvelles
valeurs si la liste déroulante fait référence à des valeurs saisies
manuellement au départ et non à une table ?

merci pour votre aide.

M. BARDOT








Avatar
Raymond [mvp]
Bonjour.

AddItem n'est accepté qu'à partir de la version 2002, est-ce bien le cas ?
si non, passer le rowsource directement.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message de
news: %
Bonjour,

D'après Laurent, la commande "Me.Combo0.AddItem ("Entrée n°1")" devrait
fonctionner (il m'a même envoyé une base contenant un formulaire de test.
Malgré toutes les vérifications, je récupère toujours un message d'erreur
(voir ci-dessous).

Au niveau de MS Office, seuls les modules Microsoft Outlook pour windows
et Microsoft Frontpage pour windows ne sont pas installés.
Je ne sais plus où regarder ?

Pouvez-vous m'éclairer ?

merci d'avance

M. Bardot


Avatar
ibowl77
Bonjour,

Effectivement je suis en Access 2000 (ce que j'avais précisé).

Que signifie "passer le rowsource" ?
merci

M. Bardot
"Raymond [mvp]" a écrit dans le message de
news: uR$
Bonjour.

AddItem n'est accepté qu'à partir de la version 2002, est-ce bien le cas ?
si non, passer le rowsource directement.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message
de news: %
Bonjour,

D'après Laurent, la commande "Me.Combo0.AddItem ("Entrée n°1")" devrait
fonctionner (il m'a même envoyé une base contenant un formulaire de test.
Malgré toutes les vérifications, je récupère toujours un message d'erreur
(voir ci-dessous).

Au niveau de MS Office, seuls les modules Microsoft Outlook pour windows
et Microsoft Frontpage pour windows ne sont pas installés.
Je ne sais plus où regarder ?

Pouvez-vous m'éclairer ?

merci d'avance

M. Bardot







Avatar
Raymond [mvp]
Le rowsource (ligne source) est la propriété contenu d'une liste et jusqu'à
la version 2000 il faut entrer les valeurs directement dans cette propriété:

Me.Maliste.RowSource = Me.Maliste.RowSource & "nouvelle valeur" & ";" &
"nouvelle valeur" & ";"

pour qu'une application soit compatible toutes versions, il faut utiliser
cette méthode.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message de
news:
Bonjour,

Effectivement je suis en Access 2000 (ce que j'avais précisé).

Que signifie "passer le rowsource" ?
merci

M. Bardot


Avatar
Raymond [mvp]
En général, on ne rajoute pas de nouvelles valeurs lorsque on est sur une
liste de valeurs, car la prochaine fois cette valeur sera perdue de toute
façon. Si on rajoute une valeur dans une liste c'est parcequ'on va en avoir
besoin très rapidement et de toute façon plus tard, donc on fonctionne avec
une table.
ceci dit, tu as le droit de le faire
If MsgBox("L'élément [" & _
NewData & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
Me.cboValeur.Rowsource = Me.cboValeur.Rowsource & NewData & ";"
End If

si jamais le rowsource ne se termine pas par un ; il faudra le rajouter
comme ceci:
Me.cboValeur.Rowsource = Me.cboValeur.Rowsource & ";" & NewData
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message de
news:
Raymond,

Désolé, je ne comprends pas !

J'ai un formulaire FValeur contenant une liste déroulante nommée cbovaleur
dont l'origine source est "liste valeurs".

j'ai coché "limité à liste = oui" et je voudrais qu'à chaque fois qu'une
valeur n'est pas dans la liste, on me pose la question de savoir si je veux
l'ajouter. J'ai repris l'exemple de l'ajout lorsque l'origine source est une
table :

*******
Private Sub cboValeur_NotInList(NewData As String, Response As Integer)

If MsgBox("L'élément [" & _
NewData & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
' Ajouter l'élément à la liste
que dois-je coder ici ?
End If

' Annuler le message d'erreur d'Access
Response = acDataErrAdded

End Sub
*******
Ce code est-il compatible avec ce que je veux faire ?

Si je code ton instruction dans le paramètre "contenu", c'est ce code qui
apparaît dans la fenêtre et non pas une valeur ?

Désolé de demander tant de détails, mais mes compétences dans ce domaine ne
sont pas aussi étendue que les tiennes.

merci d'avance

M. Bardot

"Raymond [mvp]" a écrit dans le message de
news:
Le rowsource (ligne source) est la propriété contenu d'une liste et
jusqu'à
la version 2000 il faut entrer les valeurs directement dans cette
propriété:

Me.Maliste.RowSource = Me.Maliste.RowSource & "nouvelle valeur" & ";" &
"nouvelle valeur" & ";"

pour qu'une application soit compatible toutes versions, il faut utiliser
cette méthode.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message
de
news:
Bonjour,

Effectivement je suis en Access 2000 (ce que j'avais précisé).

Que signifie "passer le rowsource" ?
merci

M. Bardot







Avatar
ibowl77
Merci Raymond pour ta réponse. En effet, j'avais un peu subodoré que les
valeurs n'étaient pas conservées dans la liste.
Comme ça ne correspond pas à mon besoin, je vais passer par une table.

merci encore, bonne journée.

M. Bardot

"Raymond [mvp]" a écrit dans le message de
news: %23EB%
En général, on ne rajoute pas de nouvelles valeurs lorsque on est sur une
liste de valeurs, car la prochaine fois cette valeur sera perdue de toute
façon. Si on rajoute une valeur dans une liste c'est parcequ'on va en
avoir besoin très rapidement et de toute façon plus tard, donc on
fonctionne avec une table.
ceci dit, tu as le droit de le faire
If MsgBox("L'élément [" & _
NewData & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
Me.cboValeur.Rowsource = Me.cboValeur.Rowsource & NewData & ";"
End If

si jamais le rowsource ne se termine pas par un ; il faudra le rajouter
comme ceci:
Me.cboValeur.Rowsource = Me.cboValeur.Rowsource & ";" & NewData
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message
de news:
Raymond,

Désolé, je ne comprends pas !

J'ai un formulaire FValeur contenant une liste déroulante nommée cbovaleur
dont l'origine source est "liste valeurs".

j'ai coché "limité à liste = oui" et je voudrais qu'à chaque fois qu'une
valeur n'est pas dans la liste, on me pose la question de savoir si je
veux l'ajouter. J'ai repris l'exemple de l'ajout lorsque l'origine source
est une table :

*******
Private Sub cboValeur_NotInList(NewData As String, Response As Integer)

If MsgBox("L'élément [" & _
NewData & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
' Ajouter l'élément à la liste
que dois-je coder ici ?
End If

' Annuler le message d'erreur d'Access
Response = acDataErrAdded

End Sub
*******
Ce code est-il compatible avec ce que je veux faire ?

Si je code ton instruction dans le paramètre "contenu", c'est ce code qui
apparaît dans la fenêtre et non pas une valeur ?

Désolé de demander tant de détails, mais mes compétences dans ce domaine
ne sont pas aussi étendue que les tiennes.

merci d'avance

M. Bardot

"Raymond [mvp]" a écrit dans le message
de news:
Le rowsource (ligne source) est la propriété contenu d'une liste et
jusqu'à
la version 2000 il faut entrer les valeurs directement dans cette
propriété:

Me.Maliste.RowSource = Me.Maliste.RowSource & "nouvelle valeur" & ";" &
"nouvelle valeur" & ";"

pour qu'une application soit compatible toutes versions, il faut utiliser
cette méthode.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ibowl77" <mauricebardot@(supprimerceci)yahoo.fr> a écrit dans le message
de
news:
Bonjour,

Effectivement je suis en Access 2000 (ce que j'avais précisé).

Que signifie "passer le rowsource" ?
merci

M. Bardot