Discussion :

[Ric500]

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 :

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

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

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

[EricDgn]

Bonjour,

Essayer d'adapter ceci:

Code :

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

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.

[Paraffine]

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 :

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

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.

[Ric500]

Merci les gars!

J'en prends bonne note !