vba e access con listbox

[verardoelvis]

Ciao, vorrei associare ad una listbocx di access un recordset da me creato. Ho provato ma dice che l'oggetto immesso non è nua proprietà valida.
il codice:

Public Sub VisualizzaAttivita()
Dim Sql As String, objRS As ADODB.Recordset

Set objRS = New ADODB.Recordset
Sql = "SELECT CodAttivita as [Codice Attivita], NomeAttivita as [Nome Attivita], Param as "
Sql = Sql & " [Parametro] FROM Attivita"
objRS.Open Sql, objConn, adOpenForwardOnly, adLockPessimistic, adCmdText

--qui--
Set Form_Attivita.Elenco.Recordset = objRS
objRS.Close
Set objRS = Nothing
End Sub


In visual basic funzionava e qui come posso fare?
ciao grazie

[fabio309]

non devi usare la proprietà "Recordset" bensì "Rowsource" dopo aver impostato il tipo di dati della listbox a "Elenco valori"

[verardoelvis]

ho scritto questo codice:

Dim Sql As String, objRS As ADODB.Recordset

Set objRS = New ADODB.Recordset
Sql = "SELECT CodAttivita as [Codice Attivita], NomeAttivita as [Nome Attivita], Param as "
Sql = Sql & " [Parametro] FROM Attivita"
objRS.Open Sql, objConn, adOpenForwardOnly, adLockPessimistic, adCmdText
Form_Attivita.Elenco.RowSourceType = "Tabella/Query"
Form_Attivita.Elenco.RowSource = objRS
objRS.Close
Set objRS = Nothing


ma non va, ho visto nell'help e se metto

Form_Attivita.Elenco.RowSource = "objRS"

non dà errori, ma non visualizza i dati corretti che tiro fuori con la sql che vedi sopra.

AITUO GRAZIE

[fabio309]

all'inizio metti
Form_Attivita.Elenco.RowSource = ""

dopo scorri il recordset fino a EOF

Form_Attivita.Elenco.RowSource = objRS![nome_campo] & ";" & Form_Attivita.Elenco.RowSource

[Gondor]

Spostato su Visual Basic e .NET