Select data from ListBox

[Steve]

Hie, I have loaded ListBox (lstNapajanje) with 3 datas (with recordset) and
now I want with another CommandBox select only data from that list I want
(not all),

how can I do it?


thanks


Dim rsNapajanjeOrmara As Recordset
Dim strSQL As String
Dim db As Database
Dim strKataloskiBroj As String
Dim strRedak As String
Dim strOpis As String
Dim strNapomena As String
Dim lngBrojElemenataListe As Long

Set db = CurrentDb
TXTOdabirOpreme = "NapajanjeOrmara"

lngBrojElemenataListe = lstNapajanje.ListCount

strSQL = "SELECT Napajanje.Referenca AS Referenca, " & _
"Napajanje.Opis AS Opis " & _
"From Napajanje ORDER BY Napajanje.Referenca;"

Set rsNapajanjeOrmara = db.OpenRecordset(strSQL, dbOpenSnapshot,
dbReadOnly)

lstNapajanje.AddItem strRedak

strRedak = "." & Space(55) & "Odabir napajanja"

lstNapajanje.AddItem strRedak

strRedak = "." & Space(20) & "Referenca" & Space(15) & "Opis"

lstNapajanje.AddItem strRedak


Do While Not rsNapajanjeOrmara.EOF

strOpis = Mid(rsNapajanjeOrmara.Fields("Opis").Value, 1, 70) &
"..."

strRedak = "." & Space(20) &
Trim(rsNapajanjeOrmara.Fields("Referenca").Value) & Space(10) & strOpis &
Space(10)

lstNapajanje.AddItem strRedak

rsNapajanjeOrmara.MoveNext

Loop

 

[Douglas J Steele]

Are you saying that you want to open another recordset that's limited to
which values are selected in your List Box?

Assuming it's a multiselect list box, check
http://www.mvps.org/access/forms/frm0007.htm at "The Access Web"

 

[Steve]

Yes, I want to put these selected datas in another recordset -
rsOdabranaOprema which is conected with Excel file!

thanks

Steve