Discussion :

[skillipo]

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
 
Public Sub test_iteration()
    Dim sqlQuery As DAO.QueryDef
    Dim sqlQuery2 As DAO.QueryDef
    Dim sqlQuery3 As DAO.QueryDef
    Dim rec As Recordset
    Dim Mba As Database, TabTemporary As Recordset, NumId As Variant
 
 
    Set rec = CurrentDb.OpenRecordset("Temporary_Table")
    Set sqlQuery = CurrentDb.QueryDefs("LegalEntityReq")
    Set sqlQuery2 = CurrentDb.QueryDefs("SuppliersReq")
    Set sqlQuery3 = CurrentDb.QueryDefs("ProductReq")
 
 
    rec.MoveFirst
    Do Until rec.EOF
 
        sqlQuery.Execute
        sqlQuery2.Execute
        sqlQuery3.Execute
 
        Reponse = MsgBox("Voulez-vous continuer ?", vbYesNo)
        If Reponse = 7 Then Exit Sub
    rec.MoveNext
 
    Loop
Ens Sub

voici mon code

alors moi je veux enregistré ligne par ligne mais le probleme c'est qu'il enregistre tout d'un seul coup et quand il rentre dans la boucle il enregistre encre une fois toute les données ce qui veut dire arrivée a la fin de la boule j'ai des milliers de ligne .

une solution peut etre ....



ENREGISTREMENT LIGNE PAR LIGNE !!!!!

MERCI

[DMboup]

ENREGISTREMENT LIGNE PAR LIGNE !!!!!

C'est bien ce qu'on a fait plus haut que tu as changé. Domage.

Code :

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

1
2
3
4
5
6
7
 
Do Until TabTemporary.EOF
... 
    Msql = "INSERT INTO LegalEntity(Country, unit, plant) Values (" &   TabTemporary("Country") & ", " & TabTemporary("unit") & ", " & TabTemporary("plant") & ")"
 
... 
Loop

[skillipo]

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
 
 Public Sub test_iteration()
 
    Dim sqlQuery As DAO.QueryDef
    Dim sqlQuery2 As DAO.QueryDef
    Dim sqlQuery3 As DAO.QueryDef
    Dim rec As Recordset
    Dim tdb As DAO.TableDef
    Dim lField As DAO.Field
    Dim Mba As Database, Temporary_Table As Recordset, NumId As Variant
 
 
    Set Temporary_Table = CurrentDb.OpenRecordset("SELECT * FROM Temporary_Table", [dbOpenSnapshot])
    Set sqlQuery = CurrentDb.QueryDefs("LegalEntityReq")
    Set sqlQuery2 = CurrentDb.QueryDefs("SuppliersReq")
    Set sqlQuery3 = CurrentDb.QueryDefs("ProductReq")
 
    Do Until Temporary_Table.EOF
 
 
      sqlQuery.Execute
      sqlQuery2.Execute
      sqlQuery3.Execute
 
       Reponse = MsgBox("Voulez-vous continuer ?", vbYesNo)
       If Reponse = 7 Then Exit Sub
 
     Loop

Voici mon code est franchement impossible de copier ligne par ligne .
j'ai rajouté un MsgBox avec un test d'arret pour voir si il ya qu'une ligne a la fois enregistré mais il enregistre tte la table a chaque fois .

mais sqlQuery1,2,3 sont des requetes que j'ai deja ecritent .

je sais pas si j'ai une erreur dans mes declarations , mais ce qui est sure c'est que passe pas ligne par ligne.

[DMboup]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Set Temporary_Table = CurrentDb.OpenRecordset("SELECT * FROM Temporary_Table", [dbOpenSnapshot])
    Set sqlQuery = CurrentDb.QueryDefs("LegalEntityReq")
    Set sqlQuery2 = CurrentDb.QueryDefs("SuppliersReq")
    Set sqlQuery3 = CurrentDb.QueryDefs("ProductReq")
 
    Do Until Temporary_Table.EOF
 
      sqlQuery.Execute
      sqlQuery2.Execute
      sqlQuery3.Execute
 
     Loop

je sais pas si j'ai une erreur dans mes declarations , mais ce qui est sure c'est que passe pas ligne par ligne.

Si tu fais comme ca ne sert à rien de mettre une boucle. tu as non seulement changer ce qu'on avait fait plus haut, mais tu n'as pas non plus bien lu parce qu'il n'y avait pas de QueryDef déclarer encore moins à exécuter.

Je reprend.

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
Dim Mba as Database, TabTempo As Recordset, NumId As Variant
Set Mba = currentDB()
Set TabTempo=Mba.OpenRecordset("Temporary_Table")
 
Do Until TabTempo.EOF
     'Tu inserts dans la Tab1 l'enregistement en cour de TabTempo
     Sql1="INSERT INTO Tab1(Name, Prenom, adresse) Values(" & TabTempo("nom") & ", " & TabTempo("prenom") & ", " & TabTempo("adresse") & "
     DoCmd.RunSQL Sql1
 
     'Tu inserts dans la Tab2 l'enregistement en cour de TabTempo
     Sql2="INSERT INTO Tab2(Champ1, Champ2, ...) Values(" & TabTempo("Champ") & ", " & TabTempo("Champ") & ", ... "
     DoCmd.RunSQL Sql2

     'Tu inserts dans la Tab3 l'enregistement en cour de TabTempo
     Sql3="INSERT INTO Tab3(Champ1, Champ2, ...) Values(" & TabTempo("Champ") & ", " & TabTempo("Champ") & ", ... "
     DoCmd.RunSQL Sql3

' Tu passe à l'enregistrement suivant
TabTempo.moveNext
Loop

[skillipo]

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
 
 Public Sub test_iteration()
 Dim Mba As Database, TabTempo As DAO.Recordset, NumId As Variant
 
 
    Set Mba = CurrentDb()
    Set TabTempo = Mba.OpenRecordset("Temporary_Table")
 
 
   Do Until TabTempo.EOF
     'insertion dans la LegalEntity l'enregistement en cour de TabTempo
     Sql1 = "INSERT INTO LegalEntity(Country, unit, plant) Values (" & TabTempo("Country") & ", " & TabTempo("unit") & ", " & TabTempo("plant") & ")"
     DoCmd.RunSQL Sql1
 
 
 
      TabTempo.MoveNext
    Loop
 
 End Sub

il m'envoi :
Erreur d'exection "3134"
Erreur de synthaxe dans l'instruction "INSERT INTO"

et quand je click sur debogage il m'envoi sur : DoCmd.RunSQL Sql1

Voila Merci

[skillipo]

j'ai fais un debug comme tu m'as montré en haut et ca donne ca :

INSERT INTO LegalEntity(Country, unit, plant) Values (, , )
INSERT INTO LegalEntity(Country, unit, plant) Values (NORWAY, , RO')
INSERT INTO LegalEntity(Country, unit, plant) Values (NORWAY, , RO')
INSERT INTO LegalEntity(Country, unit, plant) SELECT (Country, unit, plant) FROM TabTemporary
INSERT INTO LegalEntity(Country, unit, plant) SELECT (Country, unit, plant) FROM TabTemporary

[skillipo]

j'ai trouvé la reponse .

falait faire comme ca :

Sql1 = "INSERT INTO LegalEntity(Country, unit, plant) Values ('" & TabTempo("Country") & "', '" & TabTempo("unit") & "', '" & TabTempo("plant") & "')"

mnt il me reste la gestion des clé etranger . Merci de ton aide (kelke idee ????)