Newsgroup: it.comp.appl.access
Titolo: formato report

Salve a tutti
Il mio problema è visualizzare i valori di una querry (elenco di libri
che possiede un cliente) in un report in una sola casella di testo,
ovvero, in parole piu povere, invece di stampare una lista in
verticale, stampare una lista in orizzontale, un valore di seguito
all'altro, che voi sappiate, c'è un modo di fare questo?
grazie a tutti Ciro

 grazie a tutti Ciro
Ciao Ciro
 la mia non è la soluzione più elegante ma funziona e puoi eventualmente
utilizzarla come primo passo verso soluzioni miigliori.
Penso che tu abbia già una maschera cliente  con all'interno una
sottomaschera che chiamerò [SM_Libri_Cliente]
Creerei un campo associato nella maschera cliente, da popolare con
l'elenco, stampare e svuotare.
Chiamiamo il campo Elenco_Libri_Cliente
Chiamiamo Nome_Libro il campo in [SM_Libri_Cliente] contenente il nome del
libro
Questo codice serve a creare un recordset dove ciclare i nomi di tutti i
libri del cliente e a concatenarli ed assegnarli ad un controllo della
form principale.
Dim NStringhe As Integer	'questa var conta il numero di libri aggiunti
alla stringa
Dim Concatena_Libri As String	'questa variabile conterrà l'elenco dei libri
Creiamo un recordset basato sulla sottomaschera
Set Rs_Libri_Cliente = Me!SM_Libri_Cliente.Form.Recordset.Clone
      If Not Rs_Libri.BOF Then 'se il recordset non è vuoto
     ' **************** ISTRUZIONI PRIMA DI INIZIO CICLO
        'ciclo sul recordset ed esportazione di tutte le righe
        NStringhe = 0
        Concatena_Libri = ""
            With Rs_Libri_Cliente
            .MoveFirst 'posizionati sul primo record
                While Not .EOF 'ripeti fino alla fine del recordset:
 
        '**************** ISTRUZIONI ***************
                NStringhe = NStringhe + 1
                 Select Case NStringhe
                 Case Is = 1			'
                    Concatena_Libri = !Nome_Libro
                 Case Else
                    Concatena_Libri = Concatena_Libri & " - " & !Nome_Libro
                 End Select
 
 
        '******************************************
                .MoveNext 'passa al prossimo record
                Wend 'Not .EOF
            End With 'Rst
            'chiudi e azzera il recordset
        End If
            Rs_Libri_Cliente.Close: Set Rs_Libri_Cliente = Nothing
                Me!SM_Libri_Cliente.Form.Requery
                If Concatena_Libri <> "" Then
                    forms!Maschera_Cliente!Elenco_Libri_Cliente = 
Concatena_Libri
                End If
                    Me.Refresh
Puoi inserire nel report solo il controllo relativo al campo [Nome_Libro]
In alternativa al controllo associato forse è possibile passare
direttamente come variabile la stringa [Concatena_Libri]
al report, sarebbe una soluzione senz'altro migliore ma al momento ignoro
se un report accetta in apertura una variabile.
Saluti
Luigi 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

grazie del consiglio Prometeo, però la cosa non mi funziona, premetto
che non so usare il codice, ma all'avvio della procedura che hai
scritto mi da questo errore:
membro gia esistente in un modulo di oggetto da cui il modulo di
oggetto deriva
non so che significa ma non penso che sia un problema del codice che
hai scritto te
comunque continuerò a fare delle prove.
comunque, se fosse piu facile, mi basterebbe che il report, anche se
non orizzontale (un codice di seguito all'altro) mi potesse venire
almeno a colonne
Grazie
