[A-03] Affichage multi résultats dans un text box

**julien_ott** · 09/10/2008, 18h10

Bonsoir à tous

Je viens vers vous avec une question je penses assez bête, mais après pas mal de recherche un peu partout (ici & sur google est ton ami) je ne trouve rien qui puisse m'aider.

J'aimerais afficher tous les résultats d'un query séparé par des virgules dans un text box. Je m'explique :

J'arrive à sortir par exemple le résultat sous cette forme dans un "List box"

system1
system2
...
systemXX

Ce que j'aimerais comme résultat dans un "Text box" en utilisant le même query :

system1,system2,...,systemXX

Est ce possible ?
Et si oui comment ? Avant que je n'aie plus de cheveux sur le crâne

Edit 1: Je n'ai pas besoin de pouvoir selectionner les résultats dans le text box comme le permet le list box.

Edit 2: Je viens du php / mysql pour ceux & celles qui voudrait la version php pour la transformer en access

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
$REQUEST_SYSTEM = "SELECT SYSID FROM LOGONS WHERE USERIDNB = '$USERIDNB'";
$RESULT_SYSTEM  = mysql_query($REQUEST_SYSTEM);
while ( $SAVE_SYSTEM = mysql_fetch_array($RESULT_SYSTEM))
  {
    $SYSTEM_NAME = $SAVE_SYSTEM['SYSID'];
    $SYSTEM_LIST = ''.$SYSTEM_LIST.','.$SYSTEM_NAME.'';
}
echo $SYSTEM_LIST;  <=== résultat voulu dans mon text box

Version utilisée : Access 11 (2003)

Merci par avance

**etoileetoile** · 09/10/2008, 18h27

Bonsoir,

Permettre une sélection multiple de la zone de liste.

faire en sorte que la taille de la zone de texte à l'affichage s'adapte à son contenu.

**ft035580** · 10/10/2008, 11h50

Salut

Concaténer plusieurs enregistrements dans une seule colonne

**julien_ott** · 10/10/2008, 18h07

Merci pour la source

Mon projet devant ce finir aujourd'hui à midi (petite erreur d'agenda de mon côté

) je me suis débrouiller autrement cette nuit.

Résultat = Peu dormi et plus de cheveux

ce que j'ai fait (de tête, j'ai pas le code devant les yeux) :

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
33
34
35
36
37
38
39
 
Private Sub Form_Load()
 
Dim RS_Sys, RS_Def As DAO.Recordset
Dim SYS_ID, SYS_Def, SYS_List, SQL_rqst_sys As String
Dim SYS_Unt, SYS_Unt_Tot As Integer
 
SYS_List = "APP : "
SYS_Unt_Tot = 0
 
SQL_rqst_sys = "Select LOGONS_HIST.SYSID From LOGONS_HIST " _
             & "Where (LOGONS_HIST.USERIDNB = '" & [Forms]![MNGT_LOGONS]![USERIDNB].[Value] & "')"
 
Set RS_Sys = CurrentDb.OpenRecordset(SQL_rqst_sys, dbOpenSnapshot)
 
    While RS_Sys.EOF
 
        SYS_ID = RS_Sys.Fields("[SYSID]")
 
        SQL_rqst_def = "Select APPLICATIONS.SYSDEF, APPLICATIONS.SYSUNIT From APPLICATIONS " _
                     & "Where ((APPLICATIONS.SYSID = '" & SYS_ID & "')" _
                     & "AND (APPLICATIONS.ACT_DATE = #" & Date & "#))"
 
        Set RS_Def = CurrentDb.OpenRecordset(SQL_rqst_def, dbOpenSnapshot)
 
        SYS_Def = RS_Def.Fields("[SYSDEF]")
        SYS_Unt = RS_Def.Fields("[SYSUNIT]")
 
        SYS_List = SYS_List + "/" & SYS_Def
        SYS_Unt_Tot = SYS_Unt_Tot + SYS_Unt
 
        RS_Sys.MoveNext
 
    Loop
 
Me.SYSTEMS_LIST_BOX.Value = SYS_List
Me.SYSTEMS_UNITS_BOX.Value = SYS_Unt_Tot
 
End Sub