Discussion :

[AdiAccess]

Bonjour,
J'effectue à partir d'une requête un recordset qui enregistre toutes les valeurs dans une table tampon.
Dès que je démarre ma requête je crée ma table tampon. (voir 1er code)
Dans ma table d'origine je retrouve bien les champs, (ID_Appareil, ID_Cellule, ID_Elec, FabNum, Ref) mais je souhaite remplir la table Tampon en décomposant la référence à partir du champ Ref (Voir 2ème code) pour remplir les champs (Suppressiontire,Suppressionrumpf,TypeK2,typeKdeo,Liquide,Plagedetemperature...)

1 er 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
30
31
32
33
 
Set FLD = TD.CreateField("ID_Appareil", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("ID_Cellule", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("ID_Elec", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("FabNum", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Ref", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Suppressiontire", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Suppressionrumpf", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("TypeK2", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("typeKdeo", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Liquide", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Plagedetemperature", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Matierebois", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("DateModif", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("Senseo", dbText)
TD.Fields.Append FLD
Set FLD = TD.CreateField("ID_ProcessIO", dbText)
TD.Fields.Append FLD
'Enregistrement de la table
DB.TableDefs.Append TD

2ème 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
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
 
Set CurRecQuery = DB.OpenRecordset(strSQL)
Set RecTabCible = DB.OpenRecordset("select * from TABLE_TamponIsoOffset")
 
         If CurRecQuery.RecordCount <> 0 Then
            CurRecQuery.MoveFirst
            'RecTabCible.MoveFirst
 
            Do While CurRecQuery.EOF = False
             RecTabCible.AddNew
                  For Each FLD In CurRecQuery.Fields
 
                  RecTabCible.Fields(FLD.SourceField).Value = FLD
 
                            '----------------------------------------------
                            'Détection du champ "Ref"
                            FLDNAME = FLD.Name
                            If FLDNAME = "Ref" Then
                                '-----------------------------------------
                                'Action de remplacement
 
                                'Suppression des tirés
                                Vsuppressiontire = Replace(FLD, "-", "")
                                'enregistrement de la valeur dans le champ Suppressionrumpf
                                'mais comment faire?
 
                                'Suppression du rumpf "ABC"
                                VSuppressionrumpf = Replace(Vsuppressiontire, "abc", "")
 
                                'Extraction 2 caractères du KBAU
                                VTypeK2 = Mid(VSuppressionrumpf, 1, 2)
 
                                'Extraction 4 caractères du KBAU
                                VtypeKdeo = Mid(VSuppressionrumpf, 1, 4)
 
                                'Extraction du type de Liquide
                                VLiquide = Mid(VSuppressionrumpf, 5, 1)
 
 
                                'Extraction de la plage de mesure
                                VPlagedetemperature = Mid(VSuppressionrumpf, 6, 1)
 
                                'Extraction de la matière contact
                                VMatierebois = Mid(VSuppressionrumpf, 7, 1)
                            End If
 
 
                            'boucle
 
                        Next FLD
                        RecTabCible.Update
                        CurRecQuery.MoveNext
                        'RecTabCible.MoveNext
 
                    Loop
 
                    Ret = True
                    End If
                    AtributBool_Existant = Ret

Merci de votre aide

[AdiAccess]

J'ai trouvé la solution:

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
 
If CurRecQuery.RecordCount <> 0 Then
            CurRecQuery.MoveFirst
            'RecTabCible.MoveFirst
 
            Do While CurRecQuery.EOF = False
             RecTabCible.AddNew
                  For Each FLD In CurRecQuery.Fields
 
                  RecTabCible.Fields(FLD.SourceField).Value = FLD
 
                            '----------------------------------------------
                            'Détection du champ "Ref"
                            FLDNAME = FLD.Name
                            If FLDNAME = "Ref" Then
                                '-----------------------------------------
                                'Action de remplacement
 
                                'Suppression des tirés
                                Vsuppressiontire = Replace(FLD, "-", "")
                                'enregistrement de la valeur dans le champ Suppressionrumpf
                                'mais comment faire
                                'Solution
                                RecTabCible.Fields(Suppression)=Replace(FLD, "-", "")