Générer automatiquement des nouveaux enregistrements

**ROUSSIGNE** · 14/11/2012, 11h42

Bonjour

je souhaiterai générer automatiquement des nouveaux enregistrement dans une table qui ce compose de la maniére suivant,

id DESIGNATION PREDECESSEUR
2BX05/012 Travaux de tuyauterie 2BEX05/008 , 2BEX05/010 ,BEX05/022

générer autant de nouveaux enregistrement qu'il y a de predecesseur

le résultat que je souhaite est le suivant

id DESIGNATION PREDECESSEUR
2BX05/012 Travaux de tuyauterie 2BEX05/008
2BX05/012 Travaux de tuyauterie 2BEX05/010
2BX05/012 Travaux de tuyauterie BEX05/022

merci d'avance

cordialement

**zoom61** · 14/11/2012, 12h00

Salut,

C'est ce que tu as :

Envoyé par ROUSSIGNE

id DESIGNATION PREDECESSEUR
2BX05/012 Travaux de tuyauterie 2BEX05/008 , 2BEX05/010 ,BEX05/022

C'est que tu veux :

Envoyé par ROUSSIGNE

id DESIGNATION PREDECESSEUR
2BX05/012 Travaux de tuyauterie 2BEX05/008
2BX05/012 Travaux de tuyauterie 2BEX05/010
2BX05/012 Travaux de tuyauterie BEX05/022

@+.

**ROUSSIGNE** · 14/11/2012, 18h12

oui c'est ca j'ai 3 champs dans une table:

id
désignation
prédecesseur

avec l'exemple d'enregistrement joint que l'on trouve dans cette table

j'espére etre claire

merci encore

**zoom61** · 15/11/2012, 07h43

Salut,

Actuellement tu as les données sous cette forme ou elles te parviennent sous cette forme ?
2BX05/012 Travaux de tuyauterie 2BEX05/008 , 2BEX05/010 ,BEX05/022

Et tu voudrais les mettre sous cette forme :
2BX05/012 Travaux de tuyauterie 2BEX05/008
2BX05/012 Travaux de tuyauterie 2BEX05/010
2BX05/012 Travaux de tuyauterie BEX05/022

Ai-je bien compris ?

@+.

**ROUSSIGNE** · 15/11/2012, 11h03

bonjour

Je récupére un export d'un logiciel de plannification P6 (primavera)

actuellement dans le champs [ID] j'ai l'information suivante "2BX05/012"

dans le champs [designation] j'ai l'information suivante "Travaux de tuyauterie"

dans le champs [predecesseur] j'ai l'information suivante "2BEX05/008 ,

2BEX05/010 ,BEX05/022" , je souhaiterai génerer automatiquement autant

d'enregistrement qu'il y a de predecesseur aprés la virgule , pour avoir le résultat suivant:3 enregistrements au lieu d'un:

2BX05/012 Travaux de tuyauterie 2BEX05/008
2BX05/012 Travaux de tuyauterie 2BEX05/010
2BX05/012 Travaux de tuyauterie BEX05/022

merci d'avance

cordialement

**zoom61** · 15/11/2012, 11h05

L'information suivante est :

Code :

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

2BX05/012|Travaux de tuyauterie|2BEX05/008 , 2BEX05/010 ,BEX05/022

dans une table
dans un fichier
autre

**ROUSSIGNE** · 15/11/2012, 11h45

je récupére un export d'un logiciel de planification que je colle dans une table access qui est compose de 3 champs: ID DESIGNATION PREDECESSEUR

**zoom61** · 15/11/2012, 13h08

Avec quelque chose comme cela tu devrais y arriver :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    SQL = "SELECT * FROM T_DONNEES_INPORTEES"
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    Do Until oSQL.EOF
        VAL_ID = oSQL("ID")
        VAL_DG = oSQL("DESIGNATION")
        VAL_PD = oSQL("PREDECESSEUR")
        DET_PD = Split(VAL_PD, ",")
        For i = 0 To UBound(DET_PD)
            DoCmd.RunSQL "INSERT INTO T_DESTINATION (ID, DESIGNATION, PREDECESSEUR) " _
                & "VALUES ('" & VAL_ID & "', '" & VAL_DG & "', '" & DET_PD(i) & "')"
        Next
        oSQL.MoveNext
    Loop

**ROUSSIGNE** · 15/11/2012, 13h51

ce code je le met ou ?

je crée une requete ? un module?

est ce que le petit o devant SQL c'est normal "oSQL" ?

merci encore de m'accorder de votre temps

**zoom61** · 15/11/2012, 13h57

Oui tu crées un module et tu colles le code 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
Function Transfert()
    SQL = "SELECT * FROM T_DONNEES_INPORTEES"
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    DoCmd.SetWarnings False
    Do Until oSQL.EOF
        VAL_ID = oSQL("ID")
        VAL_DG = oSQL("DESIGNATION")
        VAL_PD = oSQL("PREDECESSEUR")
        DET_PD = Split(VAL_PD, ",")
        For i = 0 To UBound(DET_PD)
            DoCmd.RunSQL "INSERT INTO T_DESTINATION (ID, DESIGNATION, PREDECESSEUR) " _
                & "VALUES ('" & VAL_ID & "', '" & VAL_DG & "', '" & DET_PD(i) & "')"
        Next
        oSQL.MoveNext
    Loop
    DoCmd.SetWarnings true
End Function

Ensuite tu te mets dans la fonction et tu fais F5

Invité · 15/11/2012, 14h08

Bonjour

Il ne faut utiliser une fonction mais une routine (Sub).

Une fonction est faite pour renvoyer un résultat, ce qui n'est pas le cas ici, car c'est un traitement.

Philippe

**ROUSSIGNE** · 15/11/2012, 14h38

ton code fonctionne , mais il crée tous les enregistrement en double ?

exemple:

2BX05/012 Travaux de tuyauterie 2BEX05/008
2BX05/012 Travaux de tuyauterie 2BEX05/008
2BX05/012 Travaux de tuyauterie 2BEX05/010
2BX05/012 Travaux de tuyauterie 2BEX05/010
2BX05/012 Travaux de tuyauterie BEX05/022
2BX05/012 Travaux de tuyauterie BEX05/022
2BX05/012 Travaux de tuyauterie 2BEX05/008 , 2BEX05/010 ,BEX05/022

une fois que le code à créer les nouveaux enregistrements il faudrait supprimer l'enregistrement qui à plusieur predecesseur

**zoom61** · 15/11/2012, 14h40

Peux-tu envoyer ton code VBA ?

**ROUSSIGNE** · 15/11/2012, 14h52

Voici 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
Function generationautomatique()
    SQL = "SELECT * FROM PREDE"
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    DoCmd.SetWarnings False
    Do Until oSQL.EOF
        VAL_ID = oSQL("ID")
        VAL_DG = oSQL("DESIGNATION")
        VAL_PD = oSQL("PREDECESSEUR")
        DET_PD = Split(VAL_PD, ",")
        For i = 0 To UBound(DET_PD)
            DoCmd.RunSQL "INSERT INTO PREDE(ID, DESIGNATION, PREDECESSEUR) " _
                & "VALUES ('" & VAL_ID & "', '" & VAL_DG & "', '" & DET_PD(i) & "')"
        Next
        oSQL.MoveNext
    Loop
    DoCmd.SetWarnings True
End Function

**zoom61** · 15/11/2012, 14h56

Il faudrait que tu crées une table temporaire pour enregistrer les données venant de ton appli de planif, que tu videras une fois le transfert fait.

Ce qui donnera :

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
Function generationautomatique()
    SQL = "SELECT * FROM TEMPO_PREDE"
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    DoCmd.SetWarnings False
    Do Until oSQL.EOF
        VAL_ID = oSQL("ID")
        VAL_DG = oSQL("DESIGNATION")
        VAL_PD = oSQL("PREDECESSEUR")
        DET_PD = Split(VAL_PD, ",")
        For i = 0 To UBound(DET_PD)
            DoCmd.RunSQL "INSERT INTO PREDE(ID, DESIGNATION, PREDECESSEUR) " _
                & "VALUES ('" & VAL_ID & "', '" & VAL_DG & "', '" & DET_PD(i) & "')"
        Next
        oSQL.MoveNext
    Loop
    DoCmd.RunSQL = "DELETE TEMPO_PREDE.* FROM TEMPO_PREDE"
    DoCmd.SetWarnings True
End Function

**ROUSSIGNE** · 15/11/2012, 16h03

J'ai crée la table tempoprede

il y a un message:Erreur de compilation:
Argument non facultatif

c'est au niveau de la ligne

Code :

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

DoCmd.RunSQL = "DELETE TEMPOPREDE. * FROM TEMPOPREDE"

il surligne ".Run SQL ="

**zoom61** · 15/11/2012, 20h14

C'est pas plutôt :

Code :

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

DoCmd.RunSQL = "DELETE TEMPOPREDE.* FROM TEMPOPREDE"

**ROUSSIGNE** · 16/11/2012, 09h09

Bonjour Vincent

je ne comprend pas ta dernière réponse suite au message d'erreur que j'ai

indiqué

**zoom61** · 16/11/2012, 16h28

Tu as un espace dans ta ligne, il faut :

Code :

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

DoCmd.RunSQL = "DELETE TEMPOPREDE.* FROM TEMPOPREDE"

Et tu as mis :

Code :

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

DoCmd.RunSQL = "DELETE TEMPOPREDE.ESPACE* FROM TEMPOPREDE"

**ROUSSIGNE** · 20/11/2012, 15h36

Bonjour

merci pour tous , vous m'avez bien dépanné

cordialement

Générer automatiquement des nouveaux enregistrements [AC-2003]

VBA Access

Discussions similaires

Partager

Partager