Instruction Do Loop

**Lorenzole+bo** · 07/09/2007, 23h27

Je voudrais transférer le contenu d'une table A vers une autre table B vide à l'aide de la fonction Do Loop. Un message d'erreur survient : Aucun enregistrement en cours !
Le code fonctionne quand un enregistrement existe dans la table B. Comment faut-il faire pour amorcer le transfert vers table B?
J'utilise les séquences: MoveFirst, AddNew, Update, MoveNext

**mout1234** · 07/09/2007, 23h36

Bonsoir et bienvenu sur le forum.

Tu as sans doute fais une ou plusieurs erreurs de positionnement dans ton code.

Merci de nous présenter le code en question pour plus de précisions.

**Jeannot45** · 08/09/2007, 08h38

Bonjour,

Pourquoi passer par une boucle alors qu'il serait plus efficace de faire exécuter une requete Ajout (dans du Code)

Exemple :

Code :

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

1
2
3
4
5
dim strSqlAjout as String
 
strSqlAjout = "INSERT INTO les_champs_TableB SELECT Les_champs_TableA FROM TableA
 
RunSQL strSqlAjout

**Jeannot45** · 08/09/2007, 11h55

OK !

Exemple de 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
dim rstTableA as DAO.RecordSet, rstTableB as DAO.RecordSet
dim StrSQLTableA as String, strSqlTableB as String
 
strSqlTableA = "SELECT * From TableA"
strSqlTableB = "SELECT * From TableB"
 
Set rstTableA = currentdB.OpenRecordSet(strSqlTableA)
Set rstTableB = currentdB.OpenRecordSet(strSqlTableB)
 
    Do While Not rstTableA.EOF
        rstTableB.AddNew
        For intCompteur = 0 to rstTableB.Fields.Count-1
            rstTableB.Fields(intCompteur) = rstTableA.Fields(intCompteur)
        Next
        ' Ajouter les champs (Secteur financier etc ...)
        rstTable.Update
        rstTableA.MoveNext
    Loop
 
rstTableA.Nothing
rstTableB.Nothing

A vérifier (je n'ai pas testé), j'ai supposé que tous les champs de la table A étaient transférés dans la Table B et que les Structures étaient identiques sinon au lieu de la boucle, il faudra écrire un ligne de code par Champ

Code :

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

rstTableB.Fields("MonChamp") = rstTableA.Fields("MonChamp")

**Lorenzole+bo** · 08/09/2007, 13h14

Pour Jeannot : je suis novice concernant le forum, transmet donc les infor via celui-ci)
Transfert des données d'une table (A) vers table (B)
Code générant l'erreur "Aucun enregistrement en cours". Où est l'anomalie?

Lorenzo

**Jeannot45** · 08/09/2007, 17h24

tu disais

Les structures des champs n'étant pas identiques, 1 ligne de code par champ s'impose.

Je vais tester votre méthode en espérant que le msg d'erreur n'apparaisse plus.

Je vous transmet le code simplifié que j'utilise actuellement pour le transfert des données, qui génère l'erreur "Aucun enregistrement en cours". Vous y verrez plus clair et découvrirez sans doute l'anomalie (je suis sûr qu'une instruction doit manquer)

Code:
'------------------------------------------------------------------------------------------------
'STEP 1 - Sélection et Importation brute (format txt) du contenu du fichier source
'------------------------------------------------------------------------------------------------

DoCmd.SetWarnings False

'Sélection du fichier source.
'Appel du complément (Ocx) - Microsoft Common Dialog Control 6.0 (comdlg32.ocx)
With SelectionFichier
.DialogTitle = "Sélectionnez le fichier à importer."
.Filename = "*.xls"
.initDir = "C:\Documents and Settings\Checchi Lorenzo\Mes documents\Bibliothèque\DEV_ACCESS\DEVELOPPEMENT_BDA\CLASSIFICATION\"
.CancelError = False
.ShowOpen
End With
chemin = SelectionFichier.Filename
txtpath = chemin

'Déclaration des variables table.
Dim rstTblTemp_1 As DAO.Recordset
Dim rstTblFinal As DAO.Recordset

'Déclaration des variables diverses.
Dim warm As Boolean

'On attache la table (Access) à la variable table
Set rstTblTemp_1 = CurrentDb.OpenRecordset("TblTemp_1", dbOpenDynaset)
Set rstTblFinal = CurrentDb.OpenRecordset("TblFinal", dbOpenDynaset)

'Mise à zéro de la variable warm (Permet la mise sous condition)
warm = False

'Importation du fichier xls dans la table TblTemp_1
If warm = False Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TblTemp_1", txtpath, , , UseOA
End If

'Suppression des libellés contenus dans le fichier source
DoCmd.RunSQL "DELETE TblTemp_1.F1 FROM TblTemp_1 WHERE (((TblTemp_1.F1)='Ident'));"

'---------------------------------------------------------------------------------------------------------
'STEP 2 - Transfert des enregistrements dans la table TblFinal (formatage des données)
'---------------------------------------------------------------------------------------------------------

'Insertion des enregistrements dans la table TblFinal
With rstTblFinal
rstTblTemp_1.MoveFirst
With rstTblTemp_1
Do While Not rstTblTemp_1.EOF
rstTblFinal.AddNew
warm = False
rstTblFinal!Ident = rstTblTemp_1!F1
rstTblFinal!Label = rstTblTemp_1!F2
rstTblFinal!Currency = rstTblTemp_1!F3
rstTblFinal!Price = rstTblTemp_1!F4
rstTblFinal!Quantity = rstTblTemp_1!F5
rstTblFinal!Tch = rstTblTemp_1!F6
rstTblFinal.Update
rstTblTemp_1.MoveNext
Loop
End With
End With

Je pense que le problème vient de ce que tu initialises ta table rstTblTemp_1 trop tot d'autre part les With rstTblFinal et With rstTblTemp_1 sont inutiles

Voici ce que je garderai :

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
'Déclaration des variables table.
Dim rstTblTemp_1 As DAO.Recordset
Dim rstTblFinal As DAO.Recordset

'Déclaration des variables diverses.
Dim warm As Boolean


'Mise à zéro de la variable warm (Permet la mise sous condition)
warm = False

'Importation du fichier xls dans la table TblTemp_1
If warm = False Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TblTemp_1", txtpath, , , UseOA
End If

'Suppression des libellés contenus dans le fichier source
DoCmd.RunSQL "DELETE TblTemp_1.F1 FROM TblTemp_1 WHERE (((TblTemp_1.F1)='Ident'));"

' Déplacement des deux lignes d'intialisation des recordset
'On attache la table (Access) à la variable table
Set rstTblTemp_1 = CurrentDb.OpenRecordset("TblTemp_1", dbOpenDynaset)
Set rstTblFinal = CurrentDb.OpenRecordset("TblFinal", dbOpenDynaset)
'---------------------------------------------------------------------------------------------------------
'STEP 2 - Transfert des enregistrements dans la table TblFinal (formatage des données)
'---------------------------------------------------------------------------------------------------------

'Insertion des enregistrements dans la table TblFinal
' Supprimer cette instruction With rstTblFinal
rstTblTemp_1.MoveFirst
' Supprimer cette instruction With rstTblTemp_1
Do While Not rstTblTemp_1.EOF
rstTblFinal.AddNew
warm = False
rstTblFinal!Ident = rstTblTemp_1!F1
rstTblFinal!Label = rstTblTemp_1!F2
rstTblFinal!Currency = rstTblTemp_1!F3
rstTblFinal!Price = rstTblTemp_1!F4
rstTblFinal!Quantity = rstTblTemp_1!F5
rstTblFinal!Tch = rstTblTemp_1!F6
rstTblFinal.Update
rstTblTemp_1.MoveNext
Loop
' Supprimer cette instruction End With
' Supprimer cette instruction End With

A+

**Lorenzole+bo** · 09/09/2007, 18h25

Envoyé par Jeannot45

tu disais

Je pense que le problème vient de ce que tu initialises ta table rstTblTemp_1 trop tot d'autre part les With rstTblFinal et With rstTblTemp_1 sont inutiles

Voici ce que je garderai :

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
'Déclaration des variables table.
Dim rstTblTemp_1 As DAO.Recordset
Dim rstTblFinal As DAO.Recordset

'Déclaration des variables diverses.
Dim warm As Boolean


'Mise à zéro de la variable warm (Permet la mise sous condition)
warm = False

'Importation du fichier xls dans la table TblTemp_1
If warm = False Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TblTemp_1", txtpath, , , UseOA
End If

'Suppression des libellés contenus dans le fichier source
DoCmd.RunSQL "DELETE TblTemp_1.F1 FROM TblTemp_1 WHERE (((TblTemp_1.F1)='Ident'));"

' Déplacement des deux lignes d'intialisation des recordset
'On attache la table (Access) à la variable table
Set rstTblTemp_1 = CurrentDb.OpenRecordset("TblTemp_1", dbOpenDynaset)
Set rstTblFinal = CurrentDb.OpenRecordset("TblFinal", dbOpenDynaset)
'---------------------------------------------------------------------------------------------------------
'STEP 2 - Transfert des enregistrements dans la table TblFinal (formatage des données)
'---------------------------------------------------------------------------------------------------------

'Insertion des enregistrements dans la table TblFinal
' Supprimer cette instruction With rstTblFinal
rstTblTemp_1.MoveFirst
' Supprimer cette instruction With rstTblTemp_1
Do While Not rstTblTemp_1.EOF
rstTblFinal.AddNew
warm = False
rstTblFinal!Ident = rstTblTemp_1!F1
rstTblFinal!Label = rstTblTemp_1!F2
rstTblFinal!Currency = rstTblTemp_1!F3
rstTblFinal!Price = rstTblTemp_1!F4
rstTblFinal!Quantity = rstTblTemp_1!F5
rstTblFinal!Tch = rstTblTemp_1!F6
rstTblFinal.Update
rstTblTemp_1.MoveNext
Loop
' Supprimer cette instruction End With
' Supprimer cette instruction End With

A+

Bravo !! Ce coup là est le bon. La procédure se déroule à la perfection. Cela faisait un bail que je me traumatisais là-dessus. Un grand merci pour Jeannot45 ainsi qu'à l'existence de Developpez.com

Lorenzo

Instruction Do Loop

VBA Access

Vue hybride

Discussions similaires

Partager

Partager