Discussion :

[Ric500]

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 :

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

                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

[loufab]

Bonjour,

On peut voir la déclaration de dbCeram ?

Cordialement,

[Ric500]

Bonjour loufab,

Bien sûr!

Code :

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

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.

[Ric500]

Le problème se trouve dans

Code :

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

dbCeram.TransferDatabase

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

[Ric500]

J'ai essayé avec:

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
        '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 !!!

[loufab]

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

Il te faut utiliser plutôt cet algo :

Code :

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

1
2
3
4
5
 
     Set appaccess = CreateObject("Access.Application")
     appaccess.Visible = False
     appaccess.OpenCurrentDatabase "madorsale.accdb", False
     appaccess.DoCmd...

[loufab]

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,

[Ric500]

Merci loufab !

Je teste et te fais un retour...

[Ric500]

Çà marche nickel !!!