Cita de Administrador en 14 de julio de 2023, 08:06

Hola Fernando,

A la primera pregunta, como estás buscando? por coincidencia exacta? usando un LIKE?

A la segunda pregunta, prueba con algo así:

1. Crea dos campos combinados independientes.
2. Al campo Zona, en origen de fila, añade el campo Zona de la tabla correspondiente para que te aparezca el listado al desplegar.
3. Añade al mismo campo el siguiente código en el evento "Despues de actualizar":

Me.Distrito = Null
Me.Distrito.Requery

4. En origen de fila del campo Distrito, añade los campos Distrito y Zona, y en este último añade el criterio de que tiene que ser la zona seleccionada en el                        formulario que se encuentra abierto.

Es complicado explicarlo con palabras. Si te parece, sube la base de datos y te lo hago en un momento.

Saludos.

Cita de f3RNANDO-user en 14 de julio de 2023, 17:13

estos son los codigos...

Cita de f3RNANDO-user en 14 de julio de 2023, 17:16

y este es el combo

Cita de f3RNANDO-user en 14 de julio de 2023, 17:16

el combo me funciona la zona si me muestra pero no me muestra los distritos

Cita de f3RNANDO-user en 14 de julio de 2023, 21:41

aqui esta

Cita de Administrador en 18 de julio de 2023, 12:40

Hola Fernando,

A lo largo de esta semana te echo una mano. No te preocupes.

Saludos.

Cita de Administrador en 20 de julio de 2023, 13:59

Hola Fernando,

Aquí lo tienes funcionando. No ibas por mal camino.

Saludos.

Cita de f3RNANDO-user en 20 de julio de 2023, 18:18

muchisimas gracias Fito... agradecido contigo... otra consulta y disculpa el atrevimiento te comente del buscar que me estaba arrojando el error del codigo... cuando busco c11 me sale c117 ... si siempre muestra el primero que encuentra esos datos se podrian mostrar en la lista y de alli seleccionar el que de verdad necesito... o se puede solucionar lo del codigo

Cita de Administrador en 21 de julio de 2023, 10:17

Hola Fernando,

Veo que tienes puesto un "Like", por eso te saca el primer registro parecido a lo que has escrito. Pon una coincidencia exacta en el condicional.

Saludos.

Cita de f3RNANDO-user en 22 de julio de 2023, 00:39

ESTOY TRATANDO DE HACERLO CON EL FIND PERO NO LOGRO ENTEDER LA SINTAXIS

 

Private Sub buscar_btn_Click()
If Me.Textbuscar = "" Then
MsgBox "INGRESE CODIGO DEL CLIENTE"
Me.Textbuscar.SetFocus
Exit Sub
End If

Dim ulfila As String
Dim VALOR As String

ulfila = Sheets("AÑO2023").Range("I" & Rows.Count).End(xlUp).Row

For FILA = 2 To ulfila

If UCase(Range("K" & FILA).Find(Me.Textbuscar.Value)) & "*" & UCase(Me.Textbuscar.Value) & "*" Then

Cita de Administrador en 25 de julio de 2023, 10:50

Hola Fernando,

Más fácil todavía. Aquí lo tienes.

Saludos.