Discussion :

[tgodefroid]

Bonjour,

Je reviens vers vous parce que je suis bloqué avec un problème depuis longtemps. D'habitude, je le contourne, mais dans le projet qui m'occupe, il faut vraiment que je trouve la solution.
Pour rappel, je suis une sorte d'autodidacte et encore fort amateur, même si j'ai fait pas mal de chemin. Voici mon problème :

J'ai un formulaire indépendant où j'encode des données qui seront injectés automatiquement dans une table.
J'utilise la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
dim rst as DAO.Recordset
Set rst = CurrentDb.OpenRecordset("LATable", dbOpenDynaset)
 
Rst.addnew
rst("Champ1") = Me.controle1
rst("Champ2") = Me.controle2
rst.update
rst.close
Set rst = Nothing

Mon problème vient du fait q'un des contrôles est une zone de liste multiple choix. J'ai vu un tutoriel sur l'application, mais j'ais pas trop compris. J'ai l'impression que je doit passer par un .Value avec un sous recordset, mais je n'arrive pas à l'intégrer dans mon code.

Y aurai t'il une bonne âme pour m'expliquer ou insérer les lignes de code ? Pour info, l'erreur obtenue est 64224 La méthode value de l'objet field2 à échoué.

D'avance un grand merci.

[madefemere]

Bonsoir,

Pour récupérer les valeurs d'une zone de liste à choix multiple, il faut parcourir les valeurs de sa propriété ItemsSelected et les séparer par un caractère exotique (qu'on n'utilise pas souvent), exemple "|".
Si par exemple, tu as la zdlEncours comme contrôle du formulaire et champZdl comme source dans la table, tu aurais un code du genre :

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
 
Dim VarSol AS Variant, strZdl As String
dim rst as DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("LATable", dbOpenDynaset)
strZdl="" 
'Parcourir les éléments sélectionnés et construire l'expression résultat
FOR Each VarSol IN Me.zdlEncours.ItemsSelected
  strZdl = strZdl & Me.zdlEncours.ItemData(VarSol) & "|"
Next VarSol
'Enlever le dernier caractère "|"
strZdl = left(strZdl,len(strZdl)-1)
 
rst.addnew
rst("Champ1") = Me.controle1
rst("Champ2") = Me.controle2
'Assigner la valeur de la zone de liste
rst("champZdl") = strZdl
 
rst.update
rst.close
Set rst = Nothing

Cordialement,

[tgodefroid]

Bonjour et merci,

Après plusieurs essais et erreurs, j'y suis presque. Voici mon code

Pour la reprise de la valeur de la zone de liste

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim itm As Variant
Dim Lstval As String
Dim IntNbrCar As Integer
IntNbrCar = Me.ZnCar.ItemsSelected.Count
 
For Each itm In Me.ZnCar.ItemsSelected
Lstval = Lstval & Me.ZnCar.ItemData(itm) & ","
Next
Lstval = Left(Lstval, Len(Lstval) - 1)
MsgBox Lstval

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
31
32
33
34
35
Dim oDb As DAO.Database
Dim rst As DAO.Recordset 
Dim oRst As DAO.Recordset
 
 
Pour l'ajout dans la table :
Set oDb = CurrentDb
Set rst = oDb.OpenRecordset("T_ContratCli")
 
 
    rst.AddNew
    rst("TypeConCli") = Me.ZnType
    rst("RefConCli") = Me.NumeroCon
    rst("NomConCli") = Me.ZnNom
    rst("NatureConCli") = Me.Nature
    rst("DateDebutCon") = Me.Du
    rst("DateFinCon") = Me.Au
    rst("FacturableCon") = Me.CocherFacturable
    rst("MontantCon") = Me.Montant
    rst("RealiseCon") = Me.CocherReal
    rst("FactureCon") = Me.CocherFacturable
    rst("ArchiveCon") = Me.CocherArchive
    rst("RemarqueCon") = Me.Remarque
    rst("AnneeConCli") = Me.Annee
    Set oRst = rst.Fields("CarCaptationCon").Value
        oRst.AddNew
        oRst.Fields(0) = Lstval
        oRst.Update
 
 
 
    rst.Update
 
 rst.Close
 Set rst = Nothing

Il me reste donc un problème :
lorsque LstVal ne contient qu'une valeur, le code fonctionne.
Lorsque que j'utilise "," pour séparer les éléments sélectionnés, il ne reprend que la première valeur sélectionnée.
Lorsque je mets ";" ou "|", j'ai l'erreur 3421 erreur de conversion de type de données
Avez-vous une idée ?

Merci d'avance.

[tgodefroid]

Résolu, il fallait intercaler un for each pour chaque valeur

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
31
32
33
34
35
Dim oDb As DAO.Database
     Dim rst As DAO.Recordset ' variable pour ajout dans la table
     Dim oRst As DAO.Recordset
 
    Set oDb = CurrentDb
    Set rst = oDb.OpenRecordset("T_ContratCli")
 
 
    rst.AddNew
    rst("TypeConCli") = Me.ZnType
    rst("RefConCli") = Me.NumeroCon
    rst("NomConCli") = Me.ZnNom
    rst("NatureConCli") = Me.Nature
    rst("DateDebutCon") = Me.Du
    rst("DateFinCon") = Me.Au
    rst("FacturableCon") = Me.CocherFacturable
    rst("MontantCon") = Me.Montant
    rst("RealiseCon") = Me.CocherReal
    rst("FactureCon") = Me.CocherFacturable
    rst("ArchiveCon") = Me.CocherArchive
    rst("RemarqueCon") = Me.Remarque
    rst("AnneeConCli") = Me.Annee
 
    For Each itm In Me.ZnCar.ItemsSelected
    Lstval = Me.ZnCar.ItemData(itm)
     Set oRst = rst.Fields("CarCaptationCon").Value
         oRst.AddNew
         oRst.Fields(0) = Lstval
         oRst.Update
    Next
 
    rst.Update
 
 rst.Close
 Set rst = Nothing