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