Bonjour,

Je voudrais lister les enregistrements d'une table pour les mettre ensuite dans une zone de texte d'un formulaire.
Exemple : dans une table pour une champ CODE, j'ai plusieurs enregistrements,
CODE
100
200
300 ...etc

Je voudrais reprendre ces enregistrements et les mettre sous la forme 100,200,300 ...etc

J'ai commencé à saisir un code mais je bloque :
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
Function SELECT_SERVICES()
 
Dim oSql As DAO.Recordset
Dim UserNom, Serv, Services(10) As Variant
Dim n As Variant
 
UserNom = Environ("username")
n = 1
 
Set oSql = CurrentDb.OpenRecordset("SELECT CHOIX_SERVICES.CODE " _
& "FROM CHOIX_SERVICES " _
& "WHERE (((CHOIX_SERVICES.CHOIX) = True) And ((CHOIX_SERVICES.User) = '" & UserNom & "')) " _
& "ORDER BY CHOIX_SERVICES.CODE")
Set Serv = oSql.Fields("CODE")
 
While Not oSql.EOF
 
    Services(n) = Serv
    oSql.MoveNext
 
    Services(n + 1) = Services(n)
 
    n = n + 1
 
Wend
 
 
 
End Function
Merci pour votre aide,

LeRico