Newsgroup: it.comp.appl.access
Titolo: maschera con campo che elenca valori (v1;v2;v3;...)

Buongiorno a tutti,
in una maschera (e poi in un report) vorrei creare un box di testo che mi
elenchi tutti i valori di un campo presenti nei record della tabella su
cui è basata la maschera. Insomma non una casella di riepilogo o combinata
ma un elenco testuale
provo ad esemplificare:
tabella:
ID animale categoria
01 cane    mammifero 
02 gatto   mammifero
03 squalo  pesce
04 vipera  rettile
...
vorrei che mi visualizzasse nella maschera i dati del campo "animale" in
questo modo:
cane; gatto; squalo; vipera;...
A tal proposito esiste una proprietà da assegnare ad un campo testo in
modo che adatti automaticamente la lunghezza al contenuto?
(così se ho pochi dati resta "basso" se i dati sono molti si allunga)
grazie ciao ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"tinetta"  ha scritto nel messaggio news:iknj59$vdt$1...@news.newsland.it...
Buongiorno a tutti,
in una maschera (e poi in un report) vorrei creare un box di testo che mi
elenchi tutti i valori di un campo presenti nei record della tabella su
cui è basata la maschera. Insomma non una casella di riepilogo o combinata
ma un elenco testuale
provo ad esemplificare:
tabella:
ID animale categoria
01 cane    mammifero
02 gatto   mammifero
03 squalo  pesce
04 vipera  rettile
...
vorrei che mi visualizzasse nella maschera i dati del campo "animale" in
questo modo:
cane; gatto; squalo; vipera;...
A tal proposito esiste una proprietà da assegnare ad un campo testo in
modo che adatti automaticamente la lunghezza al contenuto?
(così se ho pochi dati resta "basso" se i dati sono molti si allunga)
grazie ciao ciao
-- 
Ciao
Dunque creati un funzione
Function fctRadicale() as String
Dim strSQL as string
Dim rs as DAO.Recordset
strsql = "SELECT Animale FROM tuatabella"
Set rs = currentdb.openrecordset(strSql)
With rs
if not .eof then
    do
    strsql = strsql & " " & !animale
    .movenext
    loop until .EOF
end if
.close
end with
fctRadicale = strsql
End function
MA

 grazie ciao ciao
Ti ringrazio molto per l'aiuto.. però... la funzione dove devo metterla?
grazie ancora
tinetta


 grazie ciao ciao

grazie ancora
tinetta
-- 
La puoi usare come origine record di una textbox e la usi come vuoi
MA

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Per avere l'elenco degli animali, metti nell'origine dati della
maschera e del report la query:
SELECT DISTINCT tabella.animale FROM tabella ORDER BY tabella.animale;
Perché l'elenco sia alto quanto serve, per il report è semplice: metti
una casella di testo alta quanto una riga e nella sua proprietà
Espandibile metti Sì.
Per la maschera è più complicato: nell'evento SuCaricamento della
maschera Maschera1 potresti mettere un comando MoveSize come:
Dim U As Integer
U = Me.RecordsetClone.RecordCount
DoCmd.MoveSize , , , 320 * U + Me.Section(1).Height +
Me.Section(2).Height
cioè: 320 (altezza di una riga) moltiplicato per numero di righe, più
le altezze di intestazione e pie' di pagina.
Oppure nella maschera metti la barra di scorrimento verticale.
Buon lavoro
Riccardo Baldinotti