Ajouter par code un objet Access à une base distante

Version imprimable

06/07/2020, 11h17
AndréPe

Ajouter par code un objet Access à une base distante

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.
06/07/2020, 12h32
hyperion13

Salut
A l'aide de cette méthode je suppose.
06/07/2020, 16h38
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 ?
07/07/2020, 11h23
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.
07/07/2020, 12h17
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 ?

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

Code:

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

07/07/2020, 22h10
tee_grandbois

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

Code:

drop table [MS Access;Database=C:\Users\...\mabdddistante.accdb].latabledistante
10/07/2020, 11h39
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.
10/07/2020, 15h14
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