Bonjour à tous les experts !

Je viens d'importer 280 Tables accdb dans un fichier Server Express *.mdf.

Lorsque je ré-importe maintenant ces Tables (link) dans un nouveau fichier front-end Access 2007, ils se retrouvent tous renommés avec le préfixe "dbo_" ("Personalia" devient "dbo_Personalia", etc, etc...). Et naturellement rien ne fonctionne plus !!!

Je ne peux pas passer mon temps à recomposer tous les recordsource de tous mes formulaires et encore moins à modifier les Docmd.RunSQL du code VBA....

Que faites-vous dans un cas pareil ??? Existe-il un moyen d’empêcher l'ajout automatique du préfixe dbo, ou bien faut-il se résoudre à renommer manuellement toutes les Tables liées ??? On pourrait peut-être renommer toutes les Tables d'un seul coup avec un loop vba ?

Merci d'avance !

phil


Je viens de faire ceci, qui marche bien à première vue... Quelqu'un a-t-il d'autres suggestions plus élégantes svp ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
    Dim obj As AccessObject, dbs As Object, i As Long
 
    With CurrentData
        For i = .AllTables.Count - 1 To 0 Step -1
            Set obj = .AllTables(i)
            If obj.Name Like "dbo*" Then DoCmd.Rename Right(obj.Name, (Len(obj.Name) - 4)), acTable, obj.Name
        Next
    End With
 
    Set dbs = Nothing
    Set obj = Nothing