Enregistrements des valeurs d'une liste à selection multiple

**Séphirée** · 23/04/2013, 15h02

Bonjour à tous

Je tiens à remercier d'avance les personnes qui accorderont du temps et se pencheront sur mon problème.
Et je tiens également à signaler que je ne suis pas une experte en VBA, et que j'utilise depuis seulement une semaine microsoft access (version 2003), mais je me débrouille comme je peux

.

J'ai créé une base de données comportant une table nommée "Guide Recueil", ainsi que son formulaire. A l'intérieur de celui-ci, j'ai créé une liste à sélection multiple (nommée Serv)
Jusqu'ici je n'ai rencontré aucun soucis, en revanche, pour enregistrer les valeurs sélectionnées dans ma table, ca se complexifie...
J'ai regardé divers tutoriels et fora, et tenté quelques codes VBA.
Je suis parvenue à enregistrer les valeurs mais de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
Private Sub btnListe_Click()
 
Dim I As Variant
For Each I In Me.Serv.ItemsSelected
DoCmd.RunSQL "INSERT INTO [Guide Recueil] (trait1) SELECT '" & Me.Serv.Column(0, I) & "' AS Expr1;"
Me!Serv.Selected(I) = False
Next I
End Sub

Or ici, la requête entraine autant d'enregistrements que de valeurs sélectionnées et, dans un seul et même champ.
Par ailleurs, ça n'enregistre que les données de la liste à sélection multiple, et pas le reste du formulaire complété.

Ce que j'aurais aimé c'est que pour un même individu (un même enregistrement), j'ai par exemple choix1 enregistré dans le champ trait1, choix2 dans le champ trait2, si pas de choix3 alors le champ trait3 est vide etc. jusqu'à trait5 (car 5choix possibles)
Et par ailleurs, que le reste des champs complétés (Nom, Lieu etc) s'enregistrent en même temps.

J'espère que je me suis faite comprendre, excusez-moi si mes explications ne sont pas très claires.

**mumen** · 23/04/2013, 22h33

Je crois que si tu mettais ta base en pièce jointe, on pourrait mieux te comprendre et t'aider.

**Robert1957** · 24/04/2013, 14h25

Bonjour Séphirée,
mumen a raison, avec un exemple on verrait mieux. Mais de ce que je comprend ton formulaire n'est pas lié à ta table, cela se fait avec "Source" dans les propriétés du formulaire en mode création. Si c'est bien ce que tu veux, un formulaire non-lié il te faudra codé l'enregistrement de tous les champs. Pour ta liste multiple tu devras aussi changer le code, dans l'exemple suivant je suppose que choix1 est numérique si c'est du texte faudra ajouter "choix1".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub btnListe_Click()
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim I As Variant
 
    strSQL = "SELECT TaTable.* FROM TaTable;"
 
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL)
    rst.AddNew
        rst("Le nom du champ") = Me.[Le champ correspondant]
        For Each I In Me.Serv.ItemsSelected
        Select Case Me.Serv.Column(0, I)
            Case choix1
                rst("trait1") = choix1
            Case choix2
                rst("trait2") = choix2
        End Select
        Me!Serv.Selected(I) = False
        Next I
    rst.Update
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

**Séphirée** · 24/04/2013, 17h59

Malheureusement, j'effectue un stage en centre hospitalier, je ne peux communiquer les informations.
Merci beaucoup pour votre aide, je vous réponds dès demain, une fois que j'aurais accès à access à mon lieu de stage, mais oui en effet il semble que le formulaire ne soit pas lié à la table, pourtant je l'ai créé à l'aide de l'assistant en spécifiant la table correspondante, mais apparemment soit le formulaire enregistrait les informations sans les choix multiples, soit les choix s'enregistraient et non pas le reste des informations...
Je vous tiens au courant dès demain de ce qu'il en est.

Encore merci pour votre aide!

**Séphirée** · 26/04/2013, 15h05

Bonjour

, j'ai tenté votre code, mais malheureusement on me renvoie l'erreur de compilation suivante : type défini par l'utilisateur non défini

**Robert1957** · 26/04/2013, 15h20

Bonjour Séphirée,
C'est parce que j'avais mis choix1 etc il faut que tu remplaces par ta liste:

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each I In Me.Serv.ItemsSelected
        Select Case Me.Serv
            Case Me.Serv.Column(0,1)
                rst("trait1") = Me.Serv.Column(0,1)
            Case Me.Serv.Column(0,2)
                rst("trait2") = Me.Serv.Column(0,2)
            Case etc...
        End Select
        Me!Serv.Selected(I) = False
        Next I

De plus mon code suppose que ton formulaire n'est pas lié à une table sinon tu vas créer des doublons.

**Séphirée** · 26/04/2013, 15h26

j'ai déjà auparavant mis les choix de ma liste, puis réécris comme dans votre second code, mais access me renvoie toujours à la même erreur de compilation

**Séphirée** · 26/04/2013, 15h30

J'ai tenté le code sur une table (TableEtude) et un formulaire créés à la "va-vite" :

avec pour liste à choix multiple : "multiple" du champ "multiple"
avec pour choix : a b ou c
avec les champs "listea" "listeb" "listec" qui enregistrent respectivement les réponses a b et c
et le bouton "btnListe" pour activer la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub btnListe_Click()
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim I As Variant
 
    strSQL = "SELECT [TableEtude].* FROM [TableEtude];"
 
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL)
    rst.AddNew
        rst("multiple") = Me.[multiple]
        For Each I In Me.Serv.ItemsSelected
        Select Case Me.Serv.Column(0, I)
            Case Me.Serv.Column(0, 1)
                rst("listea") = Me.Serv.Column(0, 1)
            Case Me.Serv.Column(0, 2)
                rst("listeb") = Me.Serv.Column(0, 2)
            Case Me.Serv.Column(0, 3)
                rst("listec") = Me.Serv.Column(0, 3)
        End Select
        Me!Serv.Selected(I) = False
        Next I
    rst.Update
    rst.Close
    Set rst = Nothing
    Set db = Nothing
 
End Sub

**Robert1957** · 26/04/2013, 15h33

Et est-ce que ça fonctionne?

**Séphirée** · 26/04/2013, 15h37

Malheureusement non :/, rien ne s'effectue.

> "type défini par l'utilisateur non défini"

**Séphirée** · 26/04/2013, 15h41

il me met en fond gris l'élément suivant après erreur d'exécution : "db As DAO.Database"

**Robert1957** · 26/04/2013, 15h58

Je viens de tester et je n'ai pas de problème. Petite correction dans le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Commande4_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim I As Variant
 
strSQL = "SELECT [TableEtude].* FROM [TableEtude];"
 
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
rst.AddNew
rst("multiple") = Me.[multiple]
For Each I In Me.Serv.ItemsSelected
Select Case Me.Serv.Column(0, I)
Case Me.Serv.Column(0, 0)
rst("listea") = Me.Serv.Column(0, 0)
Case Me.Serv.Column(0, 1)
rst("listeb") = Me.Serv.Column(0, 1)
Case Me.Serv.Column(0, 2)
rst("listec") = Me.Serv.Column(0, 2)
End Select
Me!Serv.Selected(I) = False
Next I
rst.Update
rst.Close
Set rst = Nothing
Set db = Nothing
 
End Sub

Est-ce que tu as les bonnes références:

**Séphirée** · 29/04/2013, 12h53

Bonjour,
j'ai modifié en mettant commande4, bien que j'ai renommé en btnListe et la macro semble ne pas "bloquer", en revanche, il en résulte rien.
La table n'affiche pas les choix sélectionnés, les cases restent vides, alors je ne sais plus quoi faire, j'avoue être agacée de ne pas trouver où cela cloche

EDIT :
J'ai refait la table, recréé les variables, et refait le code et je retombe toujours sur le même problème : type défini par l'utilisateur non défini
avec en jaune Private Sub Commande20_Click(), et grisé db As DAO.Database

concernant la référence j'ai :

Visual basic for applications
Microsoft access 10.0 object library
Microsoft activex data objects 2.1 library

de sélectionnés

**Séphirée** · 29/04/2013, 13h43

ALORS

, donc effectivement le soucis venait des références, le code à présent s'exécute, mais n'enregistre que les choix multiples et pas le reste du formulaire, je vais donc regardé comme dit précédemment je crois dans les propriétés du formulaire et sa source, j'espère qu'après cela il n'y aura plus aucun soucis,
en tout cas je vous remercie encore pour votre aide et votre patience (j'ai peur aussi de passer pour une gourde...)

EDIT : mission réussie !!! merci beaucoup beaucoup monsieur, vous m'avez été d'une aide très très précieuse lol, en tout cas je suis désolée si j'ai mis du temps à saisir les problèmes ... en tout cas merci de votre patience, du soutien et de votre aide !!!

**Robert1957** · 29/04/2013, 13h49

Bonjour Séphirée,

concernant la référence j'ai :

Visual basic for applications
Microsoft access 10.0 object library
Microsoft activex data objects 2.1 library

de sélectionnés

Je crois que la référence manquante est "Microsoft Office 14.0 Access database engine Object Library". Ta version peut-être différente 10.0 selon la version d'office.
Bonne journée

**mumen** · 29/04/2013, 13h52

j'ai peur aussi de passer pour une gourde

Tout le monde est ignorant avant d'apprendre. Si tu aimes apprendre, sois à l'aise avec ça et n'oublies pas que si le ridicule ne tue pas, la peur du ridicule si.

**Robert1957** · 29/04/2013, 14h00

Bonjour Séphirée,

Tout le monde est ignorant avant d'apprendre. Si tu aimes apprendre, sois à l'aise avec ça et n'oublies pas que si le ridicule ne tue pas, la peur du ridicule si.

de mumen, tout à fait vrai.
Ça m'a fait plaisirs, bonne continuation

**Séphirée** · 29/04/2013, 14h01

merci robert1957, j'ai effectivement fait les modifications

mumen : merci pour ta réponse

, maintenant je vais chercher à comprendre le code (assez complexe) et je reviendrai vers vous si je ne comprends pas certains termes ... j'aime comprendre ce que j'exécute

**Séphirée** · 29/04/2013, 14h46

un problème demeure ... si jamais je souhaite dans le formulaire prendre un individu déjà complété et lui ajouter ses choix multiples, ceux-ci sont enregistrés sur une nouvelle ligne et uniquement eux
en revanche si j'ouvre le formulaire d'une ligne vierge que j'entre toutes les informations, tout s'enregistre sans soucis ...
exemple :
je prends dans le formulaire l'individu 1

ID______CODE____Listea____Listeb etc
1________MR_____(vide)____(vide) etc

si je selectionne plusieurs choix (1 et 2 par exemple), ma table donne alors :

ID______CODE____Listea____Listeb etc
(vide)___(vide)_____1________2___etc
1________MR_____(vide)____(vide) etc

alors que j'aimerais obtenir :
ID______CODE____Listea____Listeb etc
1________MR_______1________2__ etc

en revanche si j'entre sur un formulaire vierge, aucun soucis, exemple individu 2 code PF choix 1 et 2 la table résultante est :
ID______CODE____Listea____Listeb etc
2________PF_______1________2__ etc