Dim db As Database Dim rs As Recordset Dim i As Integer Set db = OpenDatabase(Chemin_Nom_TaBase) Set rs = db.OpenRecordset("select * from TaTable") For i = 0 To rs.Fields.Count - 1 MsgBox rs.Fields(i).Name Next
Dim db As Database Dim t As TableDef Dim f As Field Set db = OpenDatabase("c:\temp\bd2.mdb") For Each t In db.TableDefs If LCase(t.Name) = "tatable" Then For Each f In t.Fields MsgBox f.Name Next f Exit For End If Next t