Discussion :

[SlySylvain]

Bonjour le forum,

Je sollicite de nouveau votre aide pour essayer de gagner quelques jours de boulot.
Dans une base de données, il faudrait que je renomme deux tables. Le hic, c'est que dans la foulée, il faudrait que je modifie tous les formulaires, états, macros, requêtes... qui font appel à ces tables.
N'y a-t-il pas un moyen automatisé de mettre à jour ces noms de table sans devoir éplucher toutes les modifications à faire une par une ?

Merci pour votre aide !
Sylvain

[LostIN]

J'ai initié un post qui traite exactement du même pb.
C'est la galère mais il y a des choses faisables.
Via le code uniquement.

Je compte mettre à dispo un truc prochainement, mais letemps me manque et ce projet est un peu en suspens.

[SlySylvain]

Bon ben je crois que je suis parti pour tout faire à la main...
ça va fumer

[Muhad'hib]

Salut,

Pourquoi as tu besoin de renommer une table ?

Je ne connais pas de solution pour automatiser la mise à jour de tes requetes, fournisseur, modules ...

Mais tu peux toujours (tout dépend du pourquoi tu veux renomer la table) :
- renommer la table NomA vers NomB
- créer une requete sélection qui prend tous les champs et tous les enregistrements de NomB
- Appel ta requete NomA

A+

[SlySylvain]

En fait, c'est pour pouvior exporter des informations depuis Access. Je me suis aperçu que celà ne fonctionnait pas si le nom de la table avait un espace.

Si je cherche à ouvrir une table dont le nom contient un espace depuis Excel, la commande échoue... Du coup, il faudrait que je renomme les tables, à moins que vous ayez une autre solution...

[kimar]

Si tu fais tout à la main, n'oubli quand même pas l'outil Remplacer (Ctrl+H) dans ta fenetre de code.

[Muhad'hib]

Ben dans ce cas tu fais une requete basée sur la table "truc machin" que tu appel "truc_machin" et que tu inporte ans Excel ....

[cafeine]

Hello,

meme en regardant la FAQ ?
http://access.developpez.com/faq/?pa...Fields#MAJNoms

[SlySylvain]

Le petit souci c'est que j'ai deux bases de données...
Une avec les tables et une autre avec une copie des tables et tous les formulaires, requêtes, macros...

Le plus simple serait quand même de réussir à ouvrir une table dont le nom contient un espace.

Voilà comment j'ai procédé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Conn As New ADODB.Connection
Dim rsT As New ADODB.Recordset
With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open Path & BaseMDB
End With
With rsT
    .ActiveConnection = Conn
    .Open Table1, LockType:=adLockOptimistic
End With

Avec Table1 qui a été définie en constante au début du code.

Merci !