Discussion :

[brachet78]

Bonjour,

Je vous explique mon problème, dans une base Access j'ai un import de table d'un point csv, Cette import contient des champs faisant référence à d'autre table sauf que ses champs sont uni-valué et contiennent plusieurs référence à d'autre table dans un même enregistrement séparer par "|" entre chaque valeur. je voudrais donc récupérer ces valeurs pour les mettre dans un nouveaux champs multi-valué.
Pour être plus précis j'ai un champs1 avec ce type de données : "10|12|15" que je voudrais éclater pour insérer dans un champs2 multi-valué "10" "12" "15".
Mon problème est de récupérer les données du champs 1 dans une variable string VBA.
Mon code est le suivant :

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
36
37
Sub S03_ChampMultiValueAjouterUn()
Dim oRst As DAO.Recordset
' Sélectionne le champs 2
Set oRst = CurrentDb.OpenRecordset("SELECT Activite_liste FROM Organisation WHERE id=18 ")
 
SQL = "SELECT value FROM STRING_SPLIT(Organisation.Activities, '|')"
 
 
 
Dim tmp As DAO.Recordset
'Sélectionne le champs 1
Set tmp = CurrentDb.OpenRecordset("SELECT Activities FROM Organisation WHERE id=18 ")
Dim b As String
'n'arrive pas à récupérer le champs 1 dans la variable b
b = tmp.Fields(0).Value
 
Dim a As Variant
a = Split(b, "|")
 
 
With oRst
' Si l'enregistrement existe
  If Not .EOF Then
    .Edit
    ' Accède au champ multivalué
    With .Fields(0).Value
      ' Ajoute la valeur et met à jour
      .AddNew
      .Fields(0).Value = a(0)
      .Update
    End With
    .Update
  Else
    MsgBox "Ce chauffeur n'existe pas"
  End If
End With
End Sub

Si il y a un moyen même sans utiliser du VBA je suis preneur.
Merci d'avance.

[Jeannot45]

La fonction Split() crée un tableau.
En conséquence, pour récupérer les valeurs du tableau, il faut le lire en totalité.
Exemple :

Code :

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

1
2
3
4
5
Dim l_intCompteur as Interger
 
For l_intCompteur = 0 to Ubound(a) (Donne la limite supérieur du tableau
...
Next

Ce qui pourrait donner (Attention, je n'ai pas tester) :

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
' Déclaration de la variable locale de type integer
Dim l_intCompteur as Interger
 
With oRst
' Si l'enregistrement existe
  If Not .EOF Then
    .Edit
    ' Accède au champ multivalué
    With .Fields(0).Value
      ' Début de la boucle
      For l_intCompteur = 0 to Ubound(a) 
          ' Ajoute la valeur et met à jour
          .AddNew
          .Fields(0).Value = a(l_intCompteur)
          .Update
    Next
    End With
    .Update

Bonne continuation

[brachet78]

Bonjour merci de ta réponse,

J'ai modifié mon code mais une erreur s’exécute, j'ai essayé d'automatiser le code pour qu'il le fasse pour tout les enregistrements avec une boucle while. Seulement toute les valeurs de mon champs ne sont pas remplies donc il me fait l'erreur 3021. J'ai essayé de rajouter des condition dans le code ci dessous sans succès et de gérer l'erreur mais avec la fonction On Error GoTo, mais cela ne fonctionne qu'une fois. Les commentaire sont surement plus parlant que mes explications.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Sub S03_ChampMultiValueAjouterUn()
 
On Error GoTo err
 
Dim oRst As DAO.Recordset
Set oRst = Nothing
' Sélectionne le champs 2
Set oRst = CurrentDb.OpenRecordset("SELECT Activite_liste FROM Organisation")
 
' Se place sur le premier enregistrement
oRst.MoveFirt
 
 
 
 
Dim tmp As DAO.Recordset
'Sélectionne le champs 1
Set tmp = Nothing
Set tmp = CurrentDb.OpenRecordset("SELECT Activities FROM Organisation")
 
tmp.MoveFirst
' Se place sur le premier enregistrement
 
Dim b As Variant
Dim i As Integer
Dim longueur_tab As Integer
Dim c As Variant
Dim a() As String
 
 
While (Not tmp.EOF And Not oRst.EOF)
 
If IsNull(tmp.Fields(0).Value.Value) = False Then 'ne fonctionne pas IsEmpty non plus
MsgBox tmp.Fields(0).Value.Value
b = tmp.Fields(0).Value.Value 'Erreur quand tmp pointe sur une case vide
 
 
a() = Split(b, "|")
 
If IsEmpty(a) = False Or IsNull(a) = False Then
longueur_tab = UBound(a)
 
For i = 0 To longueur_tab
With oRst
' Si l'enregistrement existe
  If Not .EOF Then
    .Edit
    ' Accède au champ multivalué
    With .Fields(0).Value
      ' Ajoute la valeur et met à jour
      .AddNew
      .Fields(0).Value = a(i)
      .Update
    End With
    .Update
  Else
    MsgBox "Fin"
  End If
End With
 
Next
 
End If
End If
err: ' gère une erreur mais 1 seule fois
 
'Se place sur l'enregistrement suivant
oRst.MoveNext
tmp.MoveNext
 
 
b = 0
 
'MsgBox tmp.AbsolutePosition + 1 & " sur " & tmp.RecordCount
 
 
 
 
Wend
 
End Sub

Merci

[Jeannot45]

Il me semble que ta boucle est mal positionnée.

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
With oRst
' Si l'enregistrement existe
  If Not .EOF Then
    .Edit
    ' Accède au champ multivalué
    With .Fields(0).Value
        ' Boucle sur les valeurs à ajouter au champ multivalué
        For i = 0 To longueur_tab
            ' Ajoute la valeur et met à jour
            .AddNew
            .Fields(0).Value = a(i)
            .Update
        Next
    End With
    .Update
  Else
    MsgBox "Fin"
  End If
End With

[brachet78]

Cela ne change pas grand chose, le problème vient de

Code :

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

b = tmp.Fields(0).Value.Value 'Erreur quand tmp pointe sur une case vide

quand mon champs access n'est pas renseigné. Si tous les enregistrements avaient une valeur, cela fonctionnerai.

[Jeannot45]

Je te joins une petite base de données exemple qui contient deux tables
T_ImportCsv avec des données telles que tu les a présentées
T_ChampMultivalue qui contient un champ qui doit récupérer les données correspondantes de l'importCsv.

Le formulaire F_LancerRecupDonnees contient un bouton qui te permet de récuperer les données Csv et les stocker dans le champ multivalué.
Tu verras que dans la table T_ImportCsv, il y a différents cas de figures.

A la différence que je fais une récupération globale des données.

Bonne continuation

[Pierre Fauconnier]

Salut.

Si je peux me permettre une petite intrusion...

Les champs multi-valués, c'est une véritbable catastrophe dans Access, qui va t'empêcher d'analyser, d'exporter, de traiter les données desdits champs.

Si j'étais toi, je me reporterais sur une structure classique à deux tables (relation un à plusieurs 1:N) ou trois tables (relation plusieurs à plusieurs m:n) qui t'offrira beaucoup plus de souplesse.

[Jeannot45]

Si j'étais toi, je me reporterais sur une structure classique à deux tables (relation un à plusieurs 1:N) ou trois tables (relation plusieurs à plusieurs m:n) qui t'offrira beaucoup plus de souplesse.

Alors là, Pierre, je te suis à 100%.