Variable no coge el valor de cuadro combinado
Publicado por Francisco José (3 intervenciones) el 03/09/2019 12:10:50
Buenos días, primero agradecer a todos los colaboradores de este foro todo lo que he ido aprendiendo gracias a ellos, practicamente cualquier duda que he tenido la he resuelto consultando al foro.
En este caso desearia hacer una pregunta directa, ya que no he encontrado algo parecido en el foro.
Tengo el siguiente código gracias a este foro (Busqueda Like Google), modificado por mi en un evento change
Dim strFullList As String
Dim strFilteredList As String
10 If blnSpace = False Then
20 Me.Refresh
30 strFullList = "SELECT Id, EXPEDIENTE, EMPRESA FROM IDENTIF_EMPRESA WHERE ESTADO Like Me.EstadoBusq.Value ORDER BY EXPEDIENTE;"
40 strFilteredList = "SELECT Id, EXPEDIENTE, EMPRESA FROM IDENTIF_EMPRESA WHERE ESTADO Like Me.EstadoBusq.Value AND EXPEDIENTE LIKE ""*" & Me.txtSearch.Value & "*"" OR [EMPRESA] LIKE ""*" & Me.txtSearch.Value & "*"" ORDER BY EXPEDIENTE"
50 fLiveSearch Me.txtSearch, Me.lstItems, strFullList, strFilteredList, Me.txtCount
60 End If
El problema es que necesito capturar el valor de EstadoBusq para introducirlo en la condición, EstadoBusq es una selección de un cuadro combinado llamado EstadoBusq, pero el código no reconoce dicha variable y me la pide una y otra vez, si la introduzco a mano el codigo funciona perfecto, filrando la busqueda adecuadamente.
Espero vuestra ayuda y gracias de antemano
En este caso desearia hacer una pregunta directa, ya que no he encontrado algo parecido en el foro.
Tengo el siguiente código gracias a este foro (Busqueda Like Google), modificado por mi en un evento change
Dim strFullList As String
Dim strFilteredList As String
10 If blnSpace = False Then
20 Me.Refresh
30 strFullList = "SELECT Id, EXPEDIENTE, EMPRESA FROM IDENTIF_EMPRESA WHERE ESTADO Like Me.EstadoBusq.Value ORDER BY EXPEDIENTE;"
40 strFilteredList = "SELECT Id, EXPEDIENTE, EMPRESA FROM IDENTIF_EMPRESA WHERE ESTADO Like Me.EstadoBusq.Value AND EXPEDIENTE LIKE ""*" & Me.txtSearch.Value & "*"" OR [EMPRESA] LIKE ""*" & Me.txtSearch.Value & "*"" ORDER BY EXPEDIENTE"
50 fLiveSearch Me.txtSearch, Me.lstItems, strFullList, strFilteredList, Me.txtCount
60 End If
El problema es que necesito capturar el valor de EstadoBusq para introducirlo en la condición, EstadoBusq es una selección de un cuadro combinado llamado EstadoBusq, pero el código no reconoce dicha variable y me la pide una y otra vez, si la introduzco a mano el codigo funciona perfecto, filrando la busqueda adecuadamente.
Espero vuestra ayuda y gracias de antemano
Valora esta pregunta
0