Discussion :

[phpiste5]

Bonjour,

Je voudrais dans un formulaire access pour chaque colonne modifier la légende de la feuille de donnée. Le soucis est que j'ai beaucoup de colonne... Vous connaissez un moyen avec VBA ou autre pour insérer les nom de colonne dans la légende en copiant collant dun coup ou via un code vba.

Merci

[Jeannot45]

Peut-être une solution :
Dans la structure de la table il y a une propriété des champs qui s'appelle "Legende" et qui permet d'afficher un autre libellé que le libellé du champ.
Une fois que la structure est faite, tous les supports afficheront la légende.

Vous connaissez un moyen avec VBA ou autre pour insérer les nom de colonne dans la légende en copiant collant dun coup ou via un code vba.

Peux-tu dire quelle est la source de ton formulaire ? (Une table, une requete) parce que je t'avoue ne pas trop comprendre, par défaut, Access reprend en étiquette le nom des champs de la table ou de la requete

Sinon, voici à tout hasard une procédure, à placer sur l'ouverture du formulaire, qui te permet de remplacer le nom générique de tes colonnes (Colonne1,..., colonne X) par le nom du champ correspondant

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
Private Sub Form_Open(Cancel As Integer)
    Dim l_control As Control
    Dim prp As Property
    Dim rs As DAO.Recordset
    Dim l_intcompteur As Integer
 
    Set rs = Me.RecordsetClone
 
    For Each l_control In Controls
        If l_control.ControlType = acLabel Then
            l_control.Caption = rs.Fields(l_intcompteur).Name
            l_intcompteur = l_intcompteur + 1
        End If
    Next
End Sub

Bonne continuation