Newsgroup: it.comp.appl.access
Titolo: carattere di 'andata a capo'   ...un po' OT

Saluti a tutti!
Mi sono inventato un sistema un po' ruspante per inserire le scelte multiple 
di una listbox (Elenco_micro) in una casella di testo (Me.ValutazioneMicro) 
...
( se c'è un altro sistema accetto consigli, ma vorrei evitare di creare 
altre tabelle visto che di listbox ce ne sono cinque...)
Il problema è che vorrei una scelta  e poi un'andata capo ( non volevo dire 
una per riga perchè nella testbx non ci sono righe)
per poi poterle stampare in un report ben ordinato. Ho usato Chr(10) ma 
invece di mandarmi a capo stampa solo una stanghetta verticale |  ....
Private Sub Elenco_micro_Click()
Dim Selezione As String
Selezione = ""
Dim Selez As Variant '
        If Me!Elenco_micro.ListIndex < 0 Then Exit Sub
        For Each Selez In Me.Elenco_micro.ItemsSelected
        Selezione = Selezione & Chr(10) & Me.Elenco_micro.Column(0, Selez)
    Next Selez
Me.ValutazioneMicro = Selezione
End Sub
Mi date una mano?
Grazie in anticipo...
BC
PS qui è una bella giornata serena 


Non ho capito cosa vuoi fare, ma per andare a capo ci vuole anche chr(13),
non basta chr(10).
Ciao
Fabio DV

Allora scusa se non sono stato chiaro
IL db in oggetto serve per referti di PapTest!
Ad un certo punto bisogna fare la valutazione Microbiologica del campione.
Ci sono più scelte (contenute nella list box)
Le seleziono e le inserisco nelle txtbox ( es : flogosi, bacillus vaginalis, 
flora mista ecc...)
Il problema sta nel fatto che nella txt box non li voglio uno di seguito 
all'altro, ma uno sotto l'altro  es:
flogosi,
bacillus vaginalis,
flora mista
Private Sub Elenco_micro_Click()
Dim Selezione As String
Selezione = ""
Dim Selez As Variant '
        If Me!Elenco_micro.ListIndex < 0 Then Exit Sub
    For Each Selez In Me.Elenco_micro.ItemsSelected
        Selezione = Selezione & Chr(10) & Chr(13) & 
Me.Elenco_micro.Column(0, Selez)
    Next Selez
Me.ValutazioneMicro = Selezione
End Sub
Salutoni
BC 

        Selezione = Selezione & vbLf & Me.Elenco_micro.Column(0, Selez)
IvanDaBologna 

 IvanDaBologna
Non funziona... mette sempre una stanghetta sta una scelta e l'altra...
BC 


Non puoi.
usa un treeview
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

Non puoi.
usa un treeview
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Non so nemmeno dove cominciare per usare un treeview...
A partire da quale controllo usare e poi come fare per caricare i dati 
dentro--)giuro che ci ho provato ..
Quali sono i vantaggi dell'uso del treeview?
Mi sai dare un indirizzo per un tutorial semplice per iniziare ad usare un 
controllo del genere?
Un po' di tempo fa mi sono imbattuto in un articolo ma lo ho abbandonato 
dopo la seconda lettura...
Ancora grazie ...
BC

Non puoi.
usa un treeview
MAssimiliano Amendola


Ancora grazie ...
BC
www.accessgroup.it

 ha scritto nel messaggio 
news:470dc01e$0$16035$5fc...@news.tiscali.it...

allego parte del codice con il quale in una mia procedura ottengo l'effetto 
desiderato:
   For Each varID In Forms!wfrmStampe!ElencoMandati.ItemsSelected()
   strRSG = Forms!wfrmStampe!ElencoMandati.Column(1, varID)
        elencoRSG = elencoRSG & strRSG & vbCrLf
   Next varID
..
Me.riepilogoMandati = elencoRSG
ciao
thomas.az

Grazie ... anche se con ritardo
BC 

 IvanDaBologna
E' una costante predefinita, non una variabile, ma a parte le precisazioni
accademiche in questo caso sarebbe meglio usare vbCrLf che corrisponde a
Chr$(13) & Chr$(10) ed è esattamente ciò che nel mondo windows si intende
come 'ritorno a capo'. La pressione del tasto Invio della tastiera infatti
provoca l'inserimento di entrambe i caratteri 13 e 10, non di uno solo.
In Unix/Linux è diverso, mi pare usino solo il LF, in Mac e altri sistemi
non so.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it