Erreur VBA Data mismatch [Résolu]

[Bobbyyop]

Bonjour,

Je me retrouve depuis hier au travail avec une erreur que je n'arrive pas a résoudre. Peut etre ai je le nez trop en dedans pour pouvoir remarquer ce qu'il ne va pas.

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub testtt()
 
Dim db As Database
Set db = CurrentDb
 
Dim tbl As TableDef
Set tbl = db.TableDefs(1)
 
MsgBox (tbl.Fields(2).Name)
 
Dim champs As Field
 
For Each champs In tbl.Fields
MsgBox ("bonjour")
Next champs
 
End Sub

Il ne s'agit évidemment pas du code original mais un code que j'ai créé pour essayer de debugger le programme.

C'est la ligne

Code :

For Each champs In tbl.Fields

qui pose problème et m'indique une erreur de type (run time error 13)
Le problème doit être simple mais je n'ai plus le recul nécessaire pour le résoudre.

Merci d'avance pour réponse.

[Bobbyyop]

Bon j'ai résolu mon problème par une méthode un peu brutale mais moultement efficace. J'ai copié toutes mes tables, requêtes, formulaires et modules dans une nouvelles base de données et ..ohhh! miracle mon code sans la moindre modification marche....

Si jamais vous avez une idée de la raison de ce problème je suis preneur...

Bonne journée