Discussion :

[Djekill]

Bonjour,

Je souhaiterai recuperer le nom du premier champs d'une table dynamiquement.
Pour l'instant je possède ce code qui me renvoi tous les champs d'une table donnée mais impossible de me restreindre a un champs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function NomDeChamps(NomDeTable As String) As String
 
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
 
Set Db = CurrentDb
Set tbd = Db.TableDefs(NomDeTable)
 
For Each fld In tbd.Fields
        MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
Next
End Function

Voila merci

[Muhad'hib]

Salut,


Le premier champ est :

Code :

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

CurrentDb.TableDefsNomDeTable).Fields(0).Name

Et comme ça pas besoin de boucle, de variable DB, Tbd et Fld ...

Remarque :

Quand dans une fonction tu affecte des variable avec "Set Machin = Truc", pense à mettre en fin de code "Set Machin = nothing" pour libérer la variable.


A+

[Djekill]

ca marche impek

Merci du conseil pour le Set Machin = Nothing

Bye
Djekill