Discussion :

[robyseb]

Bonjour !

Voici un bout de code afin de lister les noms des champs dans une table précise.
il semble y avoir une demande alors le voici :

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
22
23
Sub CountEnum()
 
'Déclaration des variables
Dim db As DAO.Database
Dim oRst As DAO.Recordset
Dim msg As String
Dim nombrechamps as integer
 
Set db = CurrentDb
Set oRst = db.OpenRecordset("Tbl")
 
nombrechamps = oRst.fields.Count
 
 
Dim f As DAO.Field: For Each f In oRst.fields
   msg = msg & "  -" & f.Name & vbCrLf
Next f
 
 
MsgBox "Il y a " & nombrechamps & " Champs dans la table : (Tbl) :" & vbCrLf & vbCrLf & msg
Set oRst = Nothing
Set db = Nothing
End Sub

*Modifier avec les idées de Marot r
Merci

[marot_r]

Autre possibilité

Code :

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

1
2
3
dim f as dao.field: For each f in oRst.fields
        msg = msg & "  -" & f.name & vbCrLf
Next f

et encore avec l'objet TableDef qui évite d'avoir à ouvrir la table :

Code :

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

1
2
3
4
5
6
7
dim t as dao.tabledef:set =db.tableDefs("NomTaTable")
 
dim f as dao.field:for each f in t.fields
   debug.print f.name
next f
 
set t=nothing

A+

[robyseb]

Salut et merci

la seule chose est que je ne suis pas trop habitué d'écrire mes déclaration comme tu le fait et ta 2e exemple ne fonctionne pas il semble manqué ce que tu souhaite SET...

j'ai beau mettre :

Code :

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

1
2
3
4
5
6
7
dim t as dao.tabledef:set t = db.tableDefs("NomTaTable")
 
dim f as dao.field:for each f in t.fields
   debug.print f.name
next f
 
set t=nothing

mais ca ne fonctionne pas
merci

[marot_r]

Quelle est ta version d'Access ?

Quel est le message d'erreur ?

A+

[robyseb]

Access 2007

Erreur d'execution "91"

variable objet ou variable de bloc with non definie

[Domi2]

Bonjour,

Il me semble que :

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
Sub Test()
 
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim fld As DAO.Field
 
    Set db = CurrentDb
 
    Set tbl = db.TableDefs("NomTable")
 
    For Each fld In tbl.Fields
 
        Debug.Print fld.Name
 
    Next fld
 
    Set tbl = Nothing
 
    Set db = Nothing
 
End Sub

serait plus complet.

Domi2