Discussion :

[AndréPe]

Bonsoir,
Je bute sur le code suivant destiné à afficher dans la fenêtre debug le contenus des champs

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
18
19
20
21
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
 If Left(tbd.Name, 4) <> "MSys" Then'élimine les tables Sys
  Dim rst As Recordset
   Set rst = Db.OpenRecordset(tbd.Name)
    For Each fld In tbd.Fields
       Debug.Print "Table : " & tbd.Name & " Colonne : " & fld.Name
      With rst
       '.MoveFirst
         Do While Not .EOF
           Debug.Print ![fld.Name]'Ca s'arrête ici !
           .MoveNext
         Loop
       End With
    Next 'fld
  End If
Next 'tbd

C'est dans la ligne avec ![fld.Name] que ça bute "élément non trouvé dans cette collection" et pourtant fld.Name en fait bien partie.

Auriez-vous une piste ?
Merci
Amitiés

[AndréPe]

Je me répons à moi-même !
il faut à la ligne en cause

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Do While Not .EOF
           Debug.Print .Fields(fld.Name) ' et c'est bon
           .MoveNext
         Loop

Merci de m'avoir lu avec mes excuses pour avoir abandonné trop vite.
A+