DropDown en cuadro combinado partiendo de un cuadro de texto

Partiendo de un cuadro de texto llamado txtbuscar filtro los datos a un cuadro combinado llamado cbopersonas (evento al cambiar).

Me.cboPersonas.RowSource = "SELECT Agenda.ID, [nom_pac] & "" "" & [app_pac] & "" "" & [apm_pac] AS Nombre FROM Agenda" _
& " WHERE ([nom_pac] & "" "" & [app_pac] & "" "" & [apm_pac]) " _
& "LIKE '*" & Me.txtBuscar.Text & "*' ORDER BY [nom_pac] & "" "" & [app_pac] & "" "" & [apm_pac]"

Lo que pretendo es que el resultado de esa búsqueda se refleje en el cuadro combinado (cosa que ya hace si le doy click se despliega con los resultados) pero que el mismo cuadro combinado se despliegue con lo que vaya encontrando, esto es: Tecleo en el cuadro de texto lo que busco pero el cuadro combinado al encontrar resultados se debe de expander o comprimir según sea el caso (en la imagen tuve que dar click en el cuadro combinado para que se despliegue).

Intente con:

Me. CboPersonas. Dropdown desde txtbuscar (evento al cambiar, al entrar)

Enviándome el error 2185 No se puede hacer referencia a una propiedad o método para un control a menos que el control tenga el enfoque. He puesto el foco en ese control y el mismo error.

¿Me puedes ilustrar?

1 Respuesta

Respuesta
1

Juan Daniel!
Cuanto tiempo sin verte por aquí. Con permiso de Neckkito, al que diriges la pregunta, decirte que desde mi punto de vista, lo que pretendes no tiene mucho sentido, porque cuando el combo pierda el enfoque para seguir escribiendo en el textbox, se te volverá a contraer.

Como te dice el mensaje de error, para poder usar dropdown, el cuadro combinado tiene que tener el enfoque.

Si haces esto:

Private Sub txtBuscar_Change()
Me.cboPersonas.RowSource = "SELECT Agenda.ID, [nom_pac] & "" "" & [app_pac] & "" "" & [apm_pac] AS Nombre FROM Agenda" _
& " WHERE ([nom_pac] & "" "" & [app_pac] & "" "" & [apm_pac]) " _
& "LIKE '*" & Me.txtBuscar.Text & "*' ORDER BY [nom_pac] & "" "" & [app_pac] & "" "" & [apm_pac]"
Me. CboPersonas. Requery
Me. CboPersonas. SetFocus
Me. CboPersonas. Dropdown

End Sub

E intentas buscar, se te despliega en la primera letra del textbox, pero al tener el foco ya el propio combo, la siguiente letra te la busca dentro del combo, que no es lo que pretendes.

Si le añades a ese código un Me.txtBuscar.SetFocus, tampoco resuelves el problema, pues cada nueva letra se sobreescribe a la anterior, y además, el cuadro combinado no se despliega, por lo que te comentaba de perder el enfoque...

Creo que es mejor que lo dejes como lo tenías en versiones anteriores, con un cuadro de lista en vez de uno combinado...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cuadro de lista desplegable

Quisiera realizar una cuadro de lista desplegable que al recibir el enfoque se despliegue presentando 4 opciones, seleccionar uno y al dar enter se cierre y pase al otro campo, siempre he usado cuadros combinados, pero para este campo sólo requiero 4...
1 respuesta

Cuadros de texto, formularios y botones de comando en Microsoft Access

Puedes hacerlo de dos formas 1º Con un botón de comando. Supongamos que la tabla origen del formulario se llama Clientes y el campo donde aparece el nombre se llama RazónSocial. Crea dicho botón y en sus propiedades-eventos-Al hacer clic, con el...
1 respuesta

Seleccionar campo de la misma tabla

Tengo una tabla que tiene campos relacionados con datos de RRHH. Se trata de puestos de trabajo. Uno de los campos es Depende de. Quisiera que el input de ese campo sea seleccionado de los registros de la propia tabla. ¿Es posible?
1 respuesta

Que si quieres arroz Catalina

He hecho las modificaciones en el código y me ha quedado como sigue: Private Sub Boton2000_Click() Dim filtroviejo As String, filtronuevo As String filtroviejo = Me.Filter filtronuevo = "(" & filtroviejo & ") and (year([FechaIn])=2000)" Me.Filter =...
1 respuesta

Mostrar registros en cuadro combinado

Espero alguien me saque de esta duda. Resulta que utilizo acces97, tengo una tabla llamada CLIENTES con 64,000 registros. Cuando realizo consultas me muestra todos los datos, pero cuando en un cuadro combinado dentro de un formulario trato de...
1 respuesta

Problema con la función dbusq en access

Tengo problemas con el siguiente generador de expresiones =DBúsq("[nombre_departamento]","departamento","[codigo_departamento]=" & Formularios![datos de asociado]!codigo_departamento) Donde : Nombre_departamento: esta en la tabla departamento...
1 respuesta

Sincronizar 2 combobox indistintamente.

Tengo una tabla de productos y un formulario de pedidos. En este formulario se elige el producto con un combobox en la casilla referencia que autorellena las demás casillas. Ahora quiero poner otro combobox en la casilla Nombre pero quiero que se...
1 respuesta

Manipular cadenas de texto en access

Tengo un cuadro de texto donde pongo el nombre de un monitor, en el evento al perder el enfoque tengo lo siguiente: Private Sub Nome_LostFocus() Dim CadenA As String Dim ANSI As Variant Dim Numero As Integer CadenA = LCase([Nome]) Mid(CadenA, 1, 1) =...
1 respuesta

Actualización de formulario en Access

Tengo un formulario en access el cual hace un búsqueda a los valores de una tabla y me lo regresa en un campo de lista, yo quisiera que ese búsqueda lo salvara directaemente en el registro que le corresponde en el formulario ya que el resultado lo...
1 respuesta

Cuadro combinado con resultados

Necesito que me ayudes a crear un cuadro combinado en un formulario con los valores de 4 tablas, y de este mismo cuadro al seleccionar una opción me despliegue una palabra de correcto o mal hecho o intentalo otra vez, en una caja de texto del mismo...
1 respuesta