Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Enregistrement des valeurs d'une liste choix multiple.

Enregistrement des valeurs d'une liste choix multiple.

3 réponses
Avatar
cosmochivasse
Bonsoir,

Est-il possible avec une liste à choix multiple simple ou étendue de stocker
les valeurs sélectionnées dans le champs d'une table (via VBA ou autre...) ?

Merci pour votre aide.

Cosmochivasse
Signaler un problème avec ce contenu

3 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
Raymond [mvp]
Bonjour.

tu as plusieurs solutions dont ces deux suivantes:

1-
Dim I As Variant
For Each I In Me.MaListe.ItemsSelected
DoCmd.RunSQL "INSERT INTO Table6 ( col1 ) SELECT """ &
Me.MaListe.Column(0, I) & """ AS Expr1;"
Me!MaListe.Selected(I) = False
Next I

2-
Dim I As Variant
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("select col1 from table6;")
For Each I In Me.MaListe.ItemsSelected
Rs.AddNew
Rs!col1 = Me.MaListe.Column(0, I)
Rs.Update
Me!MaListe.Selected(I) = False
Next I
Set Rs = Nothing
Set Db = Nothing

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"cosmochivasse" a écrit dans le message de news:
468ec77a$0$2776$
| Bonsoir,
|
| Est-il possible avec une liste à choix multiple simple ou étendue de
stocker
| les valeurs sélectionnées dans le champs d'une table (via VBA ou autre...)
?
|
| Merci pour votre aide.
|
| Cosmochivasse
|
|
Avatar
cosmochivasse
Merci pour ta réponse Raymond.

En fait ce code a pour effet de créer autant d'enregistrement qu'il y a de
choix sélectionés. Je voudrais pouvoir stocker ces choix dans un seul champs
d'un seul enregistrement (séparés par un espace ou un point virgule par ex).
Dans l'ideal il faudrait que ces choix stockés puissent être affichés dans
la liste lors du rappel de l'enregistrement à l'ouverture du formulaire.
Mais là je sèche.

Csmochivasse

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

tu as plusieurs solutions dont ces deux suivantes:

1-
Dim I As Variant
For Each I In Me.MaListe.ItemsSelected
DoCmd.RunSQL "INSERT INTO Table6 ( col1 ) SELECT """ &
Me.MaListe.Column(0, I) & """ AS Expr1;"
Me!MaListe.Selected(I) = False
Next I

2-
Dim I As Variant
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("select col1 from table6;")
For Each I In Me.MaListe.ItemsSelected
Rs.AddNew
Rs!col1 = Me.MaListe.Column(0, I)
Rs.Update
Me!MaListe.Selected(I) = False
Next I
Set Rs = Nothing
Set Db = Nothing

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office
!
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"cosmochivasse" a écrit dans le message de news:
468ec77a$0$2776$
| Bonsoir,
|
| Est-il possible avec une liste à choix multiple simple ou étendue de
stocker
| les valeurs sélectionnées dans le champs d'une table (via VBA ou
autre...)
?
|
| Merci pour votre aide.
|
| Cosmochivasse
|
|




Avatar
Raymond [mvp]
Puisque tu dois rappeler l'ensemble des données dans une liste, il vaut
mieux rester sur un enregistrement par donnée et affecter la table au
contenu de la liste, c'est tout ce qu'il y a à faire. ça ira plus vite que
de créer un seul enregistrement avec des données séparées par un ;
(obligatoire) et qui sera soumis à une condition de taille.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"cosmochivasse" a écrit dans le message de news:
468fd1c2$0$19740$
| Merci pour ta réponse Raymond.
|
| En fait ce code a pour effet de créer autant d'enregistrement qu'il y a de
| choix sélectionés. Je voudrais pouvoir stocker ces choix dans un seul
champs
| d'un seul enregistrement (séparés par un espace ou un point virgule par
ex).
| Dans l'ideal il faudrait que ces choix stockés puissent être affichés dans
| la liste lors du rappel de l'enregistrement à l'ouverture du formulaire.
| Mais là je sèche.
|
| Csmochivasse
|