combo box y list box

barbios
12 de Febrero del 2004
hola muchachos ojala y alguien me pueda ayudar......
necesito enlazar un combo box con un listbox .....
es asi .....
en un combo tengo 2 opciones que son refugio y monumental y el list me esta mostrando ambos y son 200 refugios y 100 monumentales y necesito que el combo actue de filtro pero no me resulta el codigo
mi idea es que al seleccionar refugio en el combo solo aparezcan refugios en el list
ojala y me puedan ayudar
de antemano muchas gracias

Orlando
12 de Febrero del 2004
Private Sub Combo1_Click()
'Se comprueba que en el combo tengas algo
' seleccionado.
if combo1.listindex=-1 then exit sub
List1.clear
'No se donde tienes almacenado los 200 refugios y
'los 100 monumentos, suponiendo que sea en un
'recordset.
with recordset
'Seleccionamos dek recordset los refugios o
' los monumentos.
.filter="Tipo=' " & Combo1.text & " ' "
if .recordcount>0 then
.movefirst
do while not .eof
list1.additem (Campo1 )
.movenext
loop
endif
.filter=adfilternone 'Quitamos el filtro
end with



barbios
12 de Febrero del 2004
Private Sub Combo1_Click()
Set Database = Workspaces(0).OpenDatabase("c:tesisandersen.mdb")
Set Recordset = Database.OpenRecordset("select * from elementos")
'Se comprueba que en el combo tengas algo
' seleccionado.
If Combo1.ListIndex = -1 Then Exit Sub
lstSource.Clear
'No se donde tienes almacenado los 200 refugios y
'los 100 monumentos, suponiendo que sea en un
'recordset.
With Recordset
'Seleccionamos dek recordset los refugios o
' los monumentos.
.Filter = "elementos.clase=' " & Combo1.Text & " ' "
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
lstSource.AddItem (campo1)
.MoveNext
Loop
End If
.Filter = adFilterNone 'Quitamos el filtro
End With
End Sud


asi es como me quedo el codigo... todo bien pero en el listbox aparece el filtro ya que la barra de desplazamiento comienza a aparecer pero el problema es que el listbox me aparece en blanco pero se que los datos estan a hi solo que no los puedo visualizar .............