Casella di riepilogo con più colonne

meme'1992

il 03 apr 2018, 21:04

4 risposte

meme'1992

Pochi posts

Iscritto da: lug, 2015

Messaggi:: 29

Casella di riepilogo con più colonne

03 apr 2018, 21:07

Qualcuno sa come consigliarmi a fare una listbox con più colonne?

 Dim tmpPresc As DAO.Recordset
     Set tmpPresc = CurrentDb.OpenRecordset("SELECT Nome, Cognome, esame FROM Persone INNER JOIN Esami ON Persone.[ID] = Esame.[ID]  WHERE Nome = '" & Me.txt_Nome & "' ")
     With tmpPresc
        If Not (.BOF And .EOF) Then .MoveFirst
          While Not .EOF
               Me.el_esami.ColumnCount = 3
                   Me.el_esami.AddItem (tmpPresc.Fields(0))
                   Me.el_esami.AddItem (tmpPresc.Fields(1))
                   Me.el_esami.AddItem (tmpPresc.Fields(2))
               tmpPresc.MoveNext
           Wend
         tmpPresc.Close
     End With
     Set tmpPresc = Nothing

Facendo così, usando additem inserisco le righe e non le colonne.
Cosa devo usare al suo posto?
Grazie

4 Risposte

@Alex
Super Famoso
Iscritto da
feb, 2012
Messaggi:
8741
Re: Casella di riepilogo con più colonne
03 apr 2018, 22:07
Il forum non è ù corso ONLINE.
Se non prendi un libro ed inizi a studiare... direi che il rischio è di doverti continuare a suggerire un libro ad ogni domanda.
Quello.che hai fatto non serve a nulla... Non serve 1 riga di codice per farlo.
O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7493
Re: Casella di riepilogo con più colonne
04 apr 2018, 06:03
meme'1992 ha scritto:
Qualcuno sa come consigliarmi a fare una listbox con più colonne?
Prova a leggere qui. Si parla di "caselle combinate", ma la sostanza è la stessa

CarlettoFed

Utente Attivo

Iscritto da: giu, 2017

Messaggi:: 143

Re: Casella di riepilogo con più colonne

04 apr 2018, 07:53

Prova con il seguente codice:


Dim tmpPresc As DAO.Recordset
    Me.ListBox.RowSource = ""
    Set tmpPresc = CurrentDb.OpenRecordset("SELECT Nome, Cognome, esame FROM Persone INNER JOIN Esami ON Persone.[ID] = Esame.[ID]  WHERE Nome = '" & Me.txt_Nome & "'")
    Do While Not tmpRS.EOF
        Me.ListBox.AddItem tmpRS!Nome & ";" & tmpRS!Cognome & ";" & tmpRS!esame & ";"
        tmpPresc.MoveNext
    Loop
    tmpPresc.Close
    Set tmpPresc = Nothing

ed anzichè scrvere la riga di codice


               Me.LIstBox.ColumnCount = 3

conviene impostare direttamente la proprietà Numero colonne nella scheda Formato del controllo ListBox

@Alex
Super Famoso
Iscritto da
feb, 2012
Messaggi:
8741
Re: Casella di riepilogo con più colonne
04 apr 2018, 12:45
CarlettoFed ha scritto:
Prova con il seguente codice:
Dim tmpPresc As DAO.Recordset Me.ListBox.RowSource = "" Set tmpPresc = CurrentDb.OpenRecordset("SELECT Nome, Cognome, esame FROM Persone INNER JOIN Esami ON Persone.[ID] = Esame.[ID] WHERE Nome = '" & Me.txt_Nome & "'") Do While Not tmpRS.EOF Me.ListBox.AddItem tmpRS!Nome & ";" & tmpRS!Cognome & ";" & tmpRS!esame & ";" tmpPresc.MoveNext Loop tmpPresc.Close Set tmpPresc = Nothing
ed anzichè scrvere la riga di codice
Me.LIstBox.ColumnCount = 3
conviene impostare direttamente la proprietà Numero colonne nella scheda Formato del controllo ListBox
Secondo te questa è una scelta TECNICAMENTE valida, la dove, popolando la ListBox direttamente con RowSourceType (Tabella/Query) si evita il codice...?
L'autore credo, dalle varie domande che pone, non abbia la minima idea del corretto metodo di gestione degli oggetti perchè questo è veramente INUTILE, sicchè dare risposte fini a se stesse, può sicuramente dare soddisfazione al singolo ma nel contesto dubito siano verament utili se l'autore è deficitario di basi.

Devi accedere o registrarti per scrivere nel forum

4 risposte