Bonjour,

J'utilisais Access 97 pour gérer un pettit programmes, et j'ai décidé de passer sous Access 2000.

Sous access 97, mes modules fonctionnaient impecablement, mais là j'ai constaté que depuis la conversion de mes bases sous Access 2000, certains modules ne marchent plus.

J'ai un peu farfouillé le code pour comprendre l'erreur et j'ai l'impression que les lignes ne fonctionnant pas sont les suivantes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim superman As String
superman = "TABLE_SUPERMAN_" + X + "_" + Y
 
Dim table As TableDef
 
Set table = CurrentDb.CreateTableDef("table_superman")
table.Connect = ";DATABASE=" + chemin_base_superman + ";)"
table.SourceTableName = superman
CurrentDb.TableDefs.Append table
CurrentDb.TableDefs.Refresh
Il me renvoie une erreur :

Runtime Error 3001 : Invalid Argument
lorsqu'il atteint la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
CurrentDb.TableDefs.Append table
J'ai les bibli suivantes :

VB For applications
MS Access 10.0 Object Library
OLE AUTOMATION
MS VB for applications Extensibility 5.3
MS ActiveX Date Objects 2.8 Library
MS DAO 3.6 Object Library

Je ne vois vraiment pas d'où vient le problème.

En vous remerciant d'avance pour votre aide,

Cordialement.