Import export de tables

Bonjour à tous!

J'avais un code qui fonctionnait et qui me déclenche maintenant une erreur 3709 ("La clé de recherche n'a été trouvée dans aucun enregistrement").

Ma configuration:

1. Le code s'exécute dans la base A
2. Importe une table depuis une base B
3. efface certains enregistrements
4. exporte la table vers une base C
5. Efface la table importée en A

J'obtiens l'erreur 3709 à l'étape 2. Plus inquiétant: lorsque j'essaie de faire l'import avec l'assistant depuis la fenêtre base de données, j'obtiens des bugs aléatoires (pbmes dans les tables système?)

Je souhaiterais depuis la base A:
1. exporter la table de la base B directement vers la base C
2. Effacer les enregistrements souhaités dans la table exportée dans la base C

Comment pourrais-je m'y prendre?

Merci de vos conseils. :)

EDIT: Je pense qu'un truc SQL du genre:

Code:

---

strsql="SELECT cheminBaseB.nomTable. * INTO cheminBaseC.nomTable;"

---

...Pourrait le faire, mais du coup je me demande si CurrentDb.execute ou CodeDb.execute ???

Bonjour,

Essayer d'adapter ceci:

Code:

---

1 2 3 4

Dim sSQL As String sSQL = "INSERT INTO NomTableB (Champ1, Champ2) IN 'cheminBaseB\FichierB.accdb' SELECT Champ1, Champ2 FROM NomTableA IN 'cheminBaseA\FichierA.accdb';" Debug.Print sSQL CurrentDb.Execute sSQL, dbFailOnError

---

Cordialement.

Bonsoir,

Le code proposé par EricDgn convient parfaitement si une table de même structure existe déjà dans la base "cible".

Pour utiliser une requête de création de table :

Code:

---

1 2 3

strReq = "select * into MaTable in ""C:\chemin\baseC.mdb"" from MaTable in ""C:\chemin\baseB.mdb"" ;" CurrentDb.Execute strReq, dbFailOnError

---

Attention, cette requête échouera dans le cas où la table "MaTable" existe déjà dans la base "C". En général, il faut au préalable tester l'existence de la table et la supprimer si besoin.

Merci les gars!

J'en prends bonne note !