Casella di riepilogo multicolonna

Question

Salve,

premetto che sono alle prime armi con Microsoft Access, ma già ci capisco abbastanza. Per esigenze lavorative, ho dovuto creare una maschera con una casella di riepilogo multicolonna. Questa casella di riepilogo l'ho riempita tramite i metodi SELECT e ADD ITEM (come mi è stato suggerito) con i campi provenienti dalla mia tabella "Generale", ma purtroppo riesco solo a riempire la prima colonna con il primo campo, mentre le altre colonne non so proprio come riempirle. Qualcuno di più esperto saprebbe dirmi come riempire le altre colonne? Di default penso sia "selezionata" la prima colonna...

Se servono altre informazioni sono a disposizione ^^

Giuseppe

Answer 1

ciao Giuseppe,

ok, vedi se questo esempio tratto dalle tabelle di NorthWind ti aiuta.

Apri la maschera5 e dopo avere selezionato un cliente vedrai i dati relativi agli ordini del cliente selezionato ( alcune colonne solamente).

In  pratica vai ad assegnare alla selezione cliente effettuata via comboBox il rowSource della listbox al volo, senza appoggiarsi ad un recordset, ma semplicemente ad una stringa sql.

ciao, Sandro.

Answer 2

Ciao,

penso tu debba definire una stringa con il separatore ; tra i dati come ad es.:

    For i = 1 To outApp.Session.Accounts.Count

        Stringa = i & ";" & outApp.Session.Accounts.Item(i).DisplayName

        Me.cboMittente.AddItem Stringa

    Next i

Ciao Mimmo

Answer 3

Innanzitutto ringrazio entrambi per le risposte immediate.

Tramite codice sono riuscito a riempire, come potete vedere, solo la prima colonna, mentre non so come spostarmi per riempire le altre (sono già create). Vi lascio il codice per riempire la prima colonna, in cui vado ad inserire il numero di ticket. Successivamente, vorrei inserire anche reparto, note ecc. nelle relative colonne seguenti, ma purtroppo se eseguo le stesse operazioni inserisce questi dati sempre nella prima colonna dopo il numero di ticket. Spero di essermi spiegato meglio... :

Private Sub cerca_ticket_Click()

lst_Ticket.RowSource = ""

i = 0

        stsql = "select [numero_ticket] from ticket where [Reparto]='" + Testo2.Value + "' order by [Reparto]"

        Set rs = CreateObject("ADODB.Recordset")

        Set con = Application.CurrentProject.Connection

        rs.Open stsql, con, 1

    While rs.EOF

        GoTo fine

    Wend

    rs.MoveFirst

    Me.lst_Ticket.RowSourceType = "Value List"

    Me.lst_Ticket.AddItem rs![numero_ticket], i

    While rs.EOF

        lst1 = rs![numero_ticket]

        lst2 = lst_Ticket.ItemData(i)

        If lst1 <> lst2 Then

            i = i + 1

            Me.lst_Ticket.AddItem rs![numero_ticket], i

        End If

            rs.MoveNext

    Wend

fine:

End Sub

Answer 4

Ciao Giuseppe,

se, come dici, l'origine del controllo è una tabella, puoi utilizzare quella o una query basata su quella per filtrare le righe e le colonne da presentare nella list-box. Come dice Sandro quindi imposti il numero di colonne e l'ampiezza di ciascuna.

Ciao Mimmo

Answer 5

ciao Giuseppe,

credo ti sia sufficiente indicare al controllo listbox il  numero di colonne che vuoi  visualizzare e per migliorarne la leggibilità impostare la relativa larghezza.

Apri in visualizzazione struttura la form che ospita la listbox e dopo averla selezionata con il tasto dx del mouse nella scheda formato della listbox imposta il  numero delle colonne come detto e la relativa larghezza nell'opzione che segue il numero delle colonne.

ciao, Sandro.