Discussion :

[stsym]

Bonjour,

Je recois un fichier avec 2 champs dont le "Type" contient des valeurs séparées par "/".
Je souhaite pouvoir récupérer dans une nouvelle table autant d'enregistrements du champ "Code" que de valeurs contenues dans le champ "Type".
Voir PJ pour mieux comprendre le résultat souhaité.

J'avoue avoir regardé mais sans succès sur le site pour trouver une piste eventuelle à ma demande.
Pas évident de trouver le bon clé pour effectuer une recherche.
De même pour trouver l'intitulé de mon post et savoir dans quelle rubrique le déposer.

Merci pour votre aide.
Cordialement.
StSym

[tee_grandbois]

bonsoir,
pour séparer des valeurs dans un champ, on utilise la fonction Split() (utilisable uniquement dans VBA) et on remplit un tableau avec les valeurs obtenues.
Voici le code VBA qui va enregistrer les données:

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
Function fSplitData()
Dim tabType() As String
Dim i As Integer
Dim oRst1 As Recordset, oRst2 As Recordset
 
Set oRst1 = CurrentDb.OpenRecordset("select code, type from tbl_Origine order by code;")
Set oRst2 = CurrentDb.OpenRecordset("tbl_Destination", dbOpenDynaset)
 
' Lecture table d'origine
Do While Not oRst1.EOF
    ' séparation des valeurs
    tabType = Split(oRst1.Fields("Type"), "/")
    ReDim Preserve tabType(UBound(tabType))
 
' ajout dans la table destination
    For i = 0 To UBound(tabType)
        oRst2.AddNew
        oRst2.Fields("Code") = oRst1.Fields("Code")
        oRst2.Fields("Type") = tabType(i)
        oRst2.Update
    Next i
    oRst1.MoveNext
Loop
 
oRst1.Close: Set oRst1 = Nothing
oRst2.Close: Set oRst2 = Nothing
 
End Function

[stsym]

Bonjour tee_grandbois,

Magique!
Merci pout ta réponse rapide.

Cordialement.
StSym