[Access & SQL] nom des colonnes d'une table

Bonjour,

A défaut d'une requête SQL, ce petit code VBA vous permettra
de connaître les noms de colonne !

Ce code est insérer dans un formulaire qui pointe sur une
requête globale d'une table.

Private Sub ExecuteRoutine_Click()

On Error GoTo Err_ExecuteRoutine_Click

    Dim NombreChamps, Boucle As Integer
    
    NombreChamps = Me.Recordset.Fields.Count
    
    For Boucle = 0 To (NombreChamps - 1)
        MsgBox Me.Recordset.Fields(Boucle).Name
    Next Boucle
    
Exit_ExecuteRoutine_Click:
    Exit Sub

Err_ExecuteRoutine_Click:
    MsgBox Err.Description
    Resume Exit_ExecuteRoutine_Click
    
End Sub

Lupin

L'idée est bonne merci, je ne connaissais pas la propriété name du recordset!
Néanmoins devant obtenir tout les noms de champs de la base, une requete select* from toute les tables serait tres couteuse en memoire vive a mon avis (la base est assé lourde).

J'ai trouvé une procedure de ce type la qui a mon avis serais plus adaptée:

Public Sub test()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db=CurrentDb
For Each tbd In Db.TableDefs
For Each fld In tbd.Fields
MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
Next
Next
End Sub

Merci , lupin , fidele a ton poste tu as quasiment répondus a chacune de mes questions :)

ben normalement on fait
sub mestablesmaschamps
dim x as dao.database
dim y as dao.tabledef
dim z as dao.field
set x=currentdb()
for each y in x.tabledefs
msgbox("la table " & y.name & "a les champs suivants :")
for each z in y
msgbox(z.name 'ici on peut scruter les autres propriétes de l'objet field)
next z
next y
end sub



il est bon de prévoir un test pour écarter les tables systèmes


elle est pas belle, la vie ?

j'aimerai savoir comment réaliser une requete qui parmet d'aficher des noms (nom condidat) donnés dont la dernière lettre et saisie au clavier