Type incompatible CurrentDb.TableDefs
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:
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 |