Discussion :

[pied9]

bonjour,
avec le runtime 2007 la commande

Code :

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

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.

[argyronet]

Bonjour,

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

Code :

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

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...

[pied9]

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

Code :

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

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"

[argyronet]

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

Argy

[pied9]

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

[argyronet]

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

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 :

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

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

Argy