** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Ayuda con buscador
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Ayuda con buscador

 Responder Responder
Autor
Mensaje
Pp2010 Ver desplegable
Asiduo
Asiduo


Unido: 20/Mayo/2010
Localización: Estados Unidos
Estado: Sin conexión
Puntos: 265
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Pp2010 Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Ayuda con buscador
    Enviado: 18/Mayo/2023 a las 18:26
Necesito ayuda con lo siguient:
Este codigo que creo es de los maestros Mihura o Sacha me da un error pues se me sale de focoel control y no logro resolverlo

   
    
' Elimina el filtro del formulario,
' si el cuadro combinado está vacío
    If Nz(Me.Combo9.Text) = "" Then

    Me.Form.Filter = ""
    Me.FilterOn = False

' Si se filtra un ítem del cuadro combinado,
' realiza una búsqueda exacta en el formulario
    ElseIf Me.Combo9.ListIndex <> -1 Then
        Me.Form.Filter = "[Nombre] = '" & Replace(Me.Combo9.Text, "'", "''") & "'"
        Me.FilterOn = True

' Filtra en formulario con una coincidencia parcial
    Else
        Me.Form.Filter = "[Nombre] Like '*" & Replace(Me.Combo9.Text, "'", "''") & "*'"
        Me.FilterOn = True
 
End If

' Mueve el cursor al final del cuadro combinado
 Me.Combo9.SetFocus
 Me.Combo9.SelStart = Len(Me.Combo9.Text)
   
Por favor si pueden necesito ayuda con esto,

gracias a todos y tengan un buen dia

Arriba
Pp2010 Ver desplegable
Asiduo
Asiduo


Unido: 20/Mayo/2010
Localización: Estados Unidos
Estado: Sin conexión
Puntos: 265
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Pp2010 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 24/Mayo/2023 a las 03:46
Disculpen, no me di cuenta que no dije el problema, la situacion es que no logro que el pornes un valor que ya no existe en el registro me de un mensaje del error y se elimine esa busqueda, ahora si me podrian ayudar por favor Thumbs Up
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable