QueryDef and Populating combo Box

[marydn]

I have created a querydef that passes parameters and now I want to take that data in the form of a recordset and populate a combo box. Can anyone tell me what I am doing wrong?

Dim db As Database
Dim qd As QueryDef

Set db = CurrentDb

Set qd = db.CreateQueryDef("Sites&quot
qdtext = "PARAMETERS Stand text, st text; "

qdtext = qdtext & "SELECT * FROM table WHERE " & _
"siteStanding = stand AND SiteType = st"

qd.Sql = qdtext

Dim rs As Recordset
Dim strlist As String

Set qd = db.QueryDefs("Sites&quot

qd!stand = "Owned"
qd!st = "Managed"

Set rs = qd.OpenRecordset(dbOpenSnapshot)

With rs
Do While Not .EOF
strlsit = strlist & rs(0) & "," & rs(1)
.MoveNext
Loop
End With

cboSite.rowsource = strlist (This part doesn't work)


rs.Close
db.Close


Any help would be greatly appreciated.

 

[monsjic]

I bet your row source type is set incorrectly.
It looks like you are just giving it a list of values.
Make sure the listbox's RowSourceType is set to Value List and not Table/Query or Field List.

 

[marydn]

I tried that and it still doesn't work.

Thanks.

 

[Guest_imported]

The items in the value list need to be surrounded by quotes so if you change your code to the following:



With rs
Do While Not .EOF
strlsit = strlist & rs(0) & "';'" & rs(1)
.MoveNext
Loop
End With

strlist = "'" & strlist & "'"

cboSite.rowsource = strlist

Hope this helps,
Shannon