Type incompatible CurrentDb.TableDefs

Version imprimable

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

22/04/2010, 13h09
Tonioyo

Bonjour,

Il doit s'agir du même problème que j'ai rencontré avec les objets recordset.

Il faudrait essayer en déclarant ceci :

Code:

Dim td As Object

C'est assez étrange mais les collections sous Access 2000 semblent rendre des objets Object.
22/04/2010, 14h56
fgiambelluco
Bonjour
Essaye de passer par une variable DataBase
Code:

1 2 3 4 Dim MaBase as Database set mabase=currentdb() '.... For Each td In Mabase.TableDefs
PS: Pense à encadrer ton code avec la balise # (tu sélectionnes ton code et tu cliques sur #)
22/04/2010, 15h03
bdf94

Si je fais :

Dim bdd As Database
Set bdd = CurrentDb()

le message d'erreur "incompatibilité de type" apparait ....
22/04/2010, 15h23
fgiambelluco
Re
Alors essaye
Code:

1 2 Dim bdd As DAO.Database Set bdd = CurrentDb()
ou décoche la référence à l'ADO.
22/04/2010, 15h43
bdf94

Même punition en faisant les 2 méthodes séparement et ensemble ...
22/04/2010, 15h46
fgiambelluco

Re
juste une idée comme ça : regarde dans Outils/Références s'il n'y en a pas une indiquée comme manquante.
22/04/2010, 15h50
bdf94

J'ai :
- VBA
- Microsoft acces 9 object lib
- ole automation
- microsoft activex data obj 2 lib
- microsoft dao 3.0 obj lib
22/04/2010, 15h53
fgiambelluco

Re
Décoche celle là : microsoft activex data obj 2 lib
et tente une compilation.
22/04/2010, 16h17
bdf94

non ça marche pas
22/04/2010, 16h36
fgiambelluco

Re

Je viens d'essayer le code complet que tu as posté au début et pas de soucis, il s'exécute très bien. 8O

Je précise que je fais le test sur Access 2003 dans une base au format Access 2000, avec les mêmes bibliothèques.

Là je ne vois pas, cel ane peut venir que des références.
Ferme et ré-ouvre l'application, ou/et compacte ta base.

PS as-tu essayé la méthode de Tonioyo ?
22/04/2010, 16h38
PeyePo

Bonjour

Tu as la bibliothèque microsoft dao 3.0 obj lib, n'as-tu pas d'autres numéro 3.5 ou 3.6 ?
22/04/2010, 16h59
bdf94

OK j'ai trouvé :

il fallait la référence "microsoft dao 3.6 obj lib" et pas la "microsoft dao 3.0 obj lib" ...

Merci beaucoup