Grisan29,
Tu peux également transformer le code en utilisant le nom donné à tes champs, pour cela chp.name te renverrait par exemple Plomberie, Description, Taille, PUV...
Il te suffit ainsi de spécifier l'ensemble de tes champs :
Jimbolion
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
24
25
26
27
28
29
30
31
32 Function Recupere_Champ(matable) Dim DB As DAO.Database Dim tb As TableDef Set DB = CurrentDb Dim lng_chaine As String lng_chaine = "" ' Set tb = DB.TableDefs(matable) 'spécifie le nombre de colonnes en fonction des champs retournés Me.lst_Resultat.ColumnCount = tb.Fields.Count ' For Each chp In tb.Fields 'Debug.Print chp.Name, chp.Type, chp.Size Select Case chp.Name Case "Plomberie" lng_chaine = lng_chaine & "3402;" 'soit 6 cm (567 * 6) Case "Description" lng_chaine = lng_chaine & "1701;" 'soit 3 cm Case "PUV" lng_chaine = lng_chaine & "1134;" 'soit 2 cm Case Else ' le reste à 0 lng_chaine = lng_chaine & "0;" End Select Next chp ' ' applique le calcul de colonne Me.lst_Resultat.ColumnWidths = lng_chaine DB.Close Set tb = Nothing Set DB = Nothing End Function
Partager