TransferDataBase méthode de "Docmd" et non d'un objet Database ?

Bonjour à tous!

Je me heurte à un problème concernant le modèle Access.

J'ai 3 bases:

. Base contenant les données dorsale "A"
. Base depuis laquelle je travaille "B"
. Base frontale "C" sur laquelle les données de "A" sont attachées

Dans le cadre d'une exportation un peu biscornue (je reprends cette application) une copie de "C" est effectuée en "D".
Je souhaite avoir en "D" des données non-attachées de "A", pour cela j'ouvre un WorkSpace sur "D" et fais un "DROP TABLE" - jusqu'ici pas de problème.

C'est lorsque je veux, dans ce WorkSpace, effectuer un TransferDatabase de "A" vers "D" que j'ai le message "Membre de méthode ou de données introuvable" à la compilation.

Code:

---

dbCeram.TransferDatabase acImport, "Microsoft Access", Nameddb_Data, acTable, !LaTable, !LaTable

---

Je précise: ce code se trouve dans la base "B".

Je galère un peu avec la doc, si vous avez des lumières sur le sujet...

Merci d'avance :)

Bonjour,

On peut voir la déclaration de dbCeram ?

Cordialement,

Bonjour loufab,

Bien sûr!

Code:

---

1 2 3 4 5

'Creation espace de travail Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)   'Ouverture Base de Donnée Set dbCeram = wrkJet.OpenDatabase(Namedb_Ceram)

---

où "Namedb_Ceram" est une variable initialisée plus haut dans le code.

Le problème se trouve dans

Code:

---

dbCeram.TransferDatabase

---

d'après ce que j'ai compris car TransferDatabase ne serait pas une une méthode d'un objet Database ?

J'ai essayé avec:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Import/Export des tables fouilles dans la base courante vers la base destination Namedb_Data = DLookup("Chemin", "Chemins", "Fonction='Données'") & "\" & Replace(Base, ".accdb", "_Data.accdb") With rstA Do While .EOF = 0 MoveTable = !LaTable 'import Forms!PgBar!Ptxt = "Importation données céramique..." & " (" & MoveTable & ")" Forms!PgBar!Pct = Int(rstA.PercentPosition) / 100 DoCmd.TransferDatabase acImport, "Microsoft Access", Namedb_Data, acTable, MoveTable, "TMP_" & MoveTable DoEvents 'export Forms!PgBar!Ptxt = "Exportation données céramique..." & " (" & MoveTable & ")" Forms!PgBar!Pct = Int(rstA.PercentPosition) / 100 DoCmd.TransferDatabase acExport, "Microsoft Access", Namedb_Ceram, acTable, "TMP_" & MoveTable, MoveTable DoEvents SupprimerTable ("TMP_" & MoveTable)   .MoveNext Loop .Close End With

---

Mais Access plante malgré une gestion d'erreurs et parvient même à bousiller le module !

Ce code fonctionne si je l'exécute pas à pas pourtant !!!

La méthode docmd est une méthode Application et non Database.

Il te faut utiliser plutôt cet algo :

Code:

---

1 2 3 4 5

Set appaccess = CreateObject("Access.Application") appaccess.Visible = False appaccess.OpenCurrentDatabase "madorsale.accdb", False appaccess.DoCmd...

---

Si ce n'est que pour transférer une table tu peut utiliser un SELECT INTO.

https://docs.microsoft.com/fr-fr/off...oft-access-sql

Et là ton objet Database prend tout son sens.

Cordialement,

Merci loufab ! :)

Je teste et te fais un retour...

Çà marche nickel !!! :)

:lahola::lahola: