runtime et commande de liaison de table

bonjour,
avec le runtime 2007 la commande

Code:

---

DoCmd.RunCommand acCmdImportAttachAccess

---

ne fonctionne pas.
la première partie s'exécute puis cela bloque..

Cette commande fonctionne parfaitement avec acces complet!
Y a t-il une solution pour contourner cette anomalie ?

Merci pour vos réponses.

Bonjour,

Pour (r)attacher des tables, l'usage de :

Code:

---

DoCmd.TransferDatabase acLink...

---

est idéal, Runtime ou version complète.

Argy

P.S. Prévoir une routine de suppression des tables liées si nécessaire avant rattache...

Merci pour la réponse.
j'ai testé positionné
la commande mise sur clic évènement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Commande130_Click() On Error GoTo Commande130_Click_Err   DoCmd.TransferDatabase acLink     Commande130_Click_Exit: Exit Sub   Commande130_Click_Err: MsgBox Error$ Resume Commande130_Click_Exit   End Sub

---

j'obtiens la réponse:
"le type de bases de données n'est pas installé ou ne gere pas l'opération sélectionnée"

Hummm... J'ai posé trois petits points à la fin de la méthode :?
Il t'appartient de te documenter pour savoir comme l'utiliser en utilisant un de tes 10 doigts et d'appuyer sur :f1:

Argy

Merci pour la réponse, effectivement je n'avais pas poursuivi la lecture.
Cependant avec cette fonction il faut lister chaque table et donc connaitre le nom des tables de la base dorsale.
Y aurait il une solution pour obtenir la liste des tables de la base externe et de les relier comme on le faisait précédemment avec Access 2002 ?

merci encore

En tant que développeur de l'appli, tu es au minimum censé la connaître :mouarf:

1/ Bref, soit tu listes toutes les tables avec un TableDefs de la base Dorsale via un Workspace et sa méthode OpenDatabase
et tu examines si les 4 premiers caractères du nom de la table débutent par "MSys" auquel cas tu les ignores donc tu lies toutes les autres

ou

2/ Tu listes toutes les tables de la base Frontale dans les mêmes conditions et tu ne prends que celles
dont la propriété Connect est différente de "" :

Code:

---

Len(oDB.TableDefs(T).Connect) > 0

---

Argy

Merci pour la réponse.