Discussion :

[AndréPe]

Bonjour,
Je sais manuellement ajouter un objet (table, requête, form, etc) à une table distante, mais je n'ai pas trouvé comment le faire par code à partir de la base active.
Ce doit être possible, je suppose, mais comment ?
Merci de votre aide.
Amicalement.

[hyperion13]

Salut
A l'aide de cette méthode je suppose.

[AndréPe]

Oui c'est bien ce que je voulais utiliser, mais j'ai constaté, à moins que je ne me trompe, que l'objet source, qu'il soit dans la base active ou la base distante reste en place et ce n'est qu'une copie qui est importée ou exportée.

Comment faire pour qu'il s'agisse vraiment d'un export ou import, c'est-à-dire qu'aucune trace de l'objet source ne reste (dans la base source) après l'opération?
Où est mon erreur ?

[hyperion13]

La méthode TransferDatabase n'a pas vocation de supprimer l'objet qui est transféré par import ou export.
Si vous voulez supprimer l'objet après transfert, il suffirait d'ajouter une ligne pour supprimer ledit objet avec cette méthode.

[AndréPe]

Donc, si j'ai bien compris, la méthode docmd.tranfertdatatbase serait l'équivalent de "copier" et non de "couper/coller" entre la base active et une base distante ?
J'ai effectivement été amené à supprimer ensuite dans la base active l'objet source qui avait été exporté dans une base distante.
Mais la méthode "Delete" ne vaut que pour la base active.
Comment supprimer un objet d'une base distante ?

[hyperion13]

Re
Oui plus tôt l'équivalent du copier/coller.
A tester

Code :

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

1
2
3
4
5
6
7
Private Sub Commande10_Click()
Dim appAcc As Access.Application
Set appAcc = GetObject("C:\Users\...\mabdddistante.accdb")
appAcc.DoCmd.DeleteObject acTable, "nomtblasupprimer"
appAcc.Application.Quit
Set appAcc = Nothing
End Sub

[tee_grandbois]

bonsoir,
notez que cela peut se faire aussi directement par SQL:

Code :

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

drop table [MS Access;Database=C:\Users\...\mabdddistante.accdb].latabledistante

[AndréPe]

Je n'ai pas encore eu le temps de m'occuper de ce problème et m'en excuse, tenu éloigné contre mon gré depuis quelques jours du clavier, alors qu'un autre problème vient de se poser dans une autre application prioritaire !
Je reviens dès que possible.

[AndréPe]

hyperion13 & tee_grandbois
Vos réponses correspondent bien à ce que je recherche.
Merci à vous
Encore un problème de réglé grâce au forum.
Résolu pour moi.
Cordialement