Bonjour,

J'ai un script sous Acces 95 qui fonctionne trés bien. Il renomme toutes les tables attachées en enlevant le préfixe "dbo_". Mais il ne fonctionne pas sous Access 2000 : erreur "incompatibilité de type" sur la ligne "For Each td In CurrentDb.TableDefs".
Est-ce que quelqu'un a une idée ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Dim td As TableDef
    Dim NomTbl1, NomTbl2 As String
 
    'Parcourt toutes les tbls de la base
    For Each td In CurrentDb.TableDefs
    'CurrentDb.TableDefs
        'Recup nom table
        NomTbl1 = td.Name
        'Recup table avec "dbo_*"
        If Left(NomTbl1, 4) = "dbo_" Then
            'Enleve le préfixe "dbo_"
            NomTbl2 = Right(NomTbl1, Len(NomTbl1) - 4)
            'Renomme la tbl sans le préfixe "dbo_"
            DoCmd.Rename NomTbl2 & "_RCT", acTable, NomTbl1
        End If
    Next td