Discussion :

[MichaSarah]

Bonjour,

Je viens vous solliciter à nouveau concernant le problème ci-dessous :
Je souhaite copier quelques enregistrements d'une table vers une autre (selon certains critères). J'ai essayé 2 manières mais aucune ne fonctionne.

- La table source s'appelle Essai1, la table destination s'appelle Essai2 (table vierge).
- Les tables comportent les mêms noms de champs.

- Dans la requête j'ai mis les infos suivantes :

Code :

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

1
2
3
4
5
6
7
Dim db As DAO.Database
Dim db2 As DAO.Database
Dim rec As DAO.Recordset
Dim rec2 As DAO.Recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("Essai1")
Set rec2 = db.OpenRecordset("Essai2")

J'utilise une boucle pour tester tous les enregistrements de essai1

Code :

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

1
2
3
Do While rec.EOF = False
...
Loop

Ensuite je vous décris les 2 situations :

1°) Je copie champs par champs comme suit

Code :

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

1
2
3
4
rec2.Edit
Essai2![champs1]=Essai1![champs1]
Essai2![champs3]=Essai1![champs3]
rec2.Update

etc ...

lorsque je démarre la requête le message suivant apparait :
erreur d'execution "3021" - aucun enregistrement en cours. Faut-il dans ce cas de figure créer des enregistrements vides ?

2°) Je copie enregistrement après enregistrement avec le code suivant trouvé sur un forum :

Code SQL :

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

INSERT INTO Essai2 SELECT * FROM essai1

mais la ligne de code reste en rouge avec la surbrillance bloquée sur le nom de la table Essai2 et je ne peux pas aller plus loin
le message suivant apparait : erreur de compilation - attendu "fin d'instruction"

Pourriez-vous m'apporter votre aide

merci par avance

MichaSarah

[mout1234]

Bonjour,


Hou la la... je te conseille de prendre plus de temps pour apprendre le fonctionnement de chacune des commandes que tu tentes d'utiliser, sinon tu risques de t'arracher les cheveux sans rien comprendre ...



Argh... plus le temps de t'expliquer ... on m'appelle...


A+

[mout1234]

Me revoilà ...

Code :

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

1
2
3
4
rec2.Edit
Essai2![champs1]=Essai1![champs1]
Essai2![champs3]=Essai1![champs3]
rec2.Update

Essai1 et Essai2 sont des noms de tables qui ne peuvent pas être ainsi référencées dans le code. Par contre, rec et rec2 sont des recordset que tu as ouvert plus haut et que tu peux donc utiliser.

erreur d'execution "3021" - aucun enregistrement en cours.

Il ne faut pas confondre AddNew et Edit.

2°) Je copie enregistrement après enregistrement avec le code suivant trouvé sur un forum :

Code SQL :

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

INSERT INTO Essai2 SELECT * FROM essai1

mais la ligne de code reste en rouge avec la surbrillance bloquée sur le nom de la table Essai2 et je ne peux pas aller plus loin
le message suivant apparait : erreur de compilation

Il s'agit d'un SQL et non d'un code VBA. Pour l'exécuter, il te faut utiliser une commande telle que CurrentDB.Execute "..." par exemple.



De manière générale, ton problème se règle sans doute en une seule requête Ajout.
Commences donc par faire une requête sélection sur ta table Essai1 pour appliquer les critères de sélections attendus... et transforme cette en requête ajout...

[MichaSarah]

Bonjour mout 1234,

En suivant tes conseils et en utilisant une syntaxe comme suit cela fonctionne.

**************************************

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 db As DAO.Database
Dim db2 As DAO.Database
Dim rec As DAO.Recordset
Dim rec2 As DAO.Recordset
Set db = CurrentDb
Set db2 = CurrentDb
Set rec = db.OpenRecordset("Essai1")
Set rec2 = db2.OpenRecordset("Essai2")
 
Do While rec.EOF = False
        If rec![test] = Me.verif Then
        rec2.AddNew
                rec2![val1] = rec![val1]
                rec2![val2] = rec![val2]
        rec2.Update
       End If
 
       rec.MoveNext
Loop
 
End Sub

**************************************

encore merci
MichaSarah