Discussion :

[lerico]

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

[timoth]

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
 
Function SELECT_SERVICES() as String
dim db as dao.database
dim oSql as dao.recordset
dim str_sql as string
dim rslt as string
 
set db=currentdb
str_sql= 'Ta requete
set oSql = db.Openrecordset(str_sql)
 
While not oSql.EOF
rslt=rslt & oSql.Fileds("CODE") & ","
 
oSql.Movenext
Wend
SELECT_SERVICES=rslt

Ce n'est que ma version...

Bien a toi !

[lerico]

Merci pour ton aide.
Cela fonctionne trés bien.

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
Function SELECT_SERVICES()
 
Dim oSql As DAO.Recordset
Dim UserNom, Serv, Services As Variant
 
UserNom = Environ("username")
 
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
 
    Serv = Serv & oSql.Fields("CODE") & ","
 
    oSql.MoveNext
 
Wend
 
Services = Serv
 
End Function

A+

LeRico