ayuda para formulario en visual basic

#1 · 13 de julio de 2023, 22:50

buenas tardes, mi consulta es acerca de un formulario de registro donde tengo botones básicos de buscar, guardar, eliminar … un problema que tengo es cuando voy a buscar un código de cliente ejemplo c111 lo consigue sin ningún problema, pero cuando el código es c011 me coloca el c111… y así todos…

muy aparte de este inconveniente, tengo otra duda … como puedo colocar dos combo uno dependiente del otro… adjunto foto es el de zona que tiene este oeste norte y sur y distritos que por cada zona tiene varios…

Archivos subidos:

Tienes que conectarte para acceder a las subidas.

#2 · 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í:

Crea dos campos combinados independientes.
Al campo Zona, en origen de fila, añade el campo Zona de la tabla correspondiente para que te aparezca el listado al desplegar.
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.

#3 · 14 de julio de 2023, 17:13

estos son los codigos…

Archivos subidos:

Tienes que conectarte para acceder a las subidas.

#4 · 14 de julio de 2023, 17:16

y este es el combo

Archivos subidos:

Tienes que conectarte para acceder a las subidas.

#5 · 14 de julio de 2023, 17:16

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

#6 · 14 de julio de 2023, 21:41

aqui esta

Archivos subidos:

Tienes que conectarte para acceder a las subidas.

#7 · 18 de julio de 2023, 12:40

Hola Fernando,

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

Saludos.

#8 · 20 de julio de 2023, 13:59

Hola Fernando,

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

Saludos.

Archivos subidos:

Tienes que conectarte para acceder a las subidas.

#9 · 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

#10 · 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.

#11 · 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

#12 · 25 de julio de 2023, 10:50

Hola Fernando,

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

Saludos.

Archivos subidos:

Tienes que conectarte para acceder a las subidas.

Foro VBATotal

Aprender a programar en Visual Basic