¿Como mostrar filtrados los registros en un formulario según los 3 primeros caracteres a través de un botón?

Mi duda es cómo conseguir a través del código VBA que una macro me muestre en el formulario solamente los registros que empiecen por 3 caracteres que eliga.

El código que tengo es este pero no me funciona, no sé si es porque la base de datos al que lo quiero adaptar es ACCESS 2010.

' Buscar_reguistro1
'------------------------------------------------------------
Function Buscar_reguistro1()
On Error GoTo Buscar_reguistro1_Err

With CodeContextObject
' Adjunta al formulario Lista de teléfonos de clientes.
' Adjunta al evento Después de actualizar del grupo de opciones FiltrosNombreCompañía.
If (.FiltrosClave = 1) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6J0*""", ""
End If
If (.FiltrosClave = 2) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6J3*""", ""
End If
If (.FiltrosClave = 3) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6J4*""", ""
End If
If (.FiltrosClave = 4) Then
DoCmd.ApplyFilter "", "[Clave] Like ""5P0*""", ""
End If
If (.FiltrosClave = 5) Then
DoCmd.ApplyFilter "", "[Clave] Like ""1B*""", ""
End If
If (.FiltrosClave = 6) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6Q0.803.*""", ""
End If
If (.FiltrosClave = 7) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6Q0.80[24].[25]*[!5]B""", ""
End If
If (.FiltrosClave = 8) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6Q0.809.*""", ""
End If
If (.FiltrosClave = 9) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6Q[06].81[34].1[14][!9]*""", ""
End If
If (.FiltrosClave = 10) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6R0*""", ""
End If
If (.FiltrosClave = 11) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6R4*""", ""
End If
If (.FiltrosClave = 12) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6R6*""", ""
End If
If (.FiltrosClave = 13) Then
DoCmd.ApplyFilter "", "[Clave] Like ""6J8*""", ""
End If
If (.FiltrosClave = 14) Then
DoCmd.ApplyFilter "", "[Clave] Like ""8E*""", ""
End If
If (.FiltrosClave = 15) Then
DoCmd.ApplyFilter "", "[Clave] Like ""5F0*""", ""
End If
If (.FiltrosClave = 16) Then
DoCmd.ApplyFilter "", "[Clave] Like ""5F3*""", ""
End If
If (.FiltrosClave = 17) Then
DoCmd.ApplyFilter "", "[Clave] Like ""5F9*""", ""
End If
If (.FiltrosClave = 18) Then
DoCmd.ApplyFilter "", "[Clave] Like ""5F4*""", ""
End If
If (.FiltrosClave = 19) Then
DoCmd.ApplyFilter "", "[Clave] Like ""5P8*""", ""
End If
If (.FiltrosClave = 20) Then
DoCmd.ApplyFilter "", "[Clave] Like ""3R*""", ""
End If
If (.FiltrosClave = 21) Then
DoCmd.ApplyFilter "", "[Clave] Like ""8U0*""", ""
End If
If (.FiltrosClave = 26) Then
DoCmd.ApplyFilter "", "[Clave] Like ""1[KQ]*""", ""
End If
If (.FiltrosClave = 27) Then
' Mostrar todos los registros.
DoCmd.ShowAllRecords
End If
If (.RecordsetClone.RecordCount > 0) Then
' Si se devuelven registros para la letra seleccionada, ir al control NombreCompañía.
DoCmd.GoToControl "Clave"
' Detener la macro.
Exit Function
End If
If (.RecordsetClone.RecordCount = 0) Then
' Si no se devuelve ningún registro para la letra seleccionada, mostrar un mensaje.
Beep
MsgBox "No hay registros para esa letra.", vbInformation, "No Records Returned"
' Mostrar todos los registros.
DoCmd. ShowAllRecords
' Presionar el botón Todos.
.FiltrosClave = 27
End If
End With

Buscar_reguistro1_Exit:
Exit Function

Buscar_reguistro1_Err:
MsgBox Error$
Resume Buscar_reguistro1_Exit

End Function

1 respuesta

Respuesta
1

Sin profundizar en el código y asì a primera vista se me ocurre que puede ser:

Tu pones:

DoCmd.ApplyFilter "", "[Clave] Like ""6J3*""", ""

No veo el sentido de la coma y las comillas finales,""

Prueba con:

DoCmd.ApplyFilter "", "[Clave] Like ""6J3*"""

Este formato lo aplicas a todos y si no te funciona me miro más profundamente el conjunto

Ya me comentarás: Jacinto

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar registros.

Tengo un formulario en el cual puedo introducir cuatro palabras que luego utilizo como criterio de búsqueda para filtrar los registros que contengan alguna de esas palabras en el campo Descripción. El código se dispara al hacer clic a un botón. En...
1 respuesta

Aplicar filtro formulario access

Necesito ayuda para resolver un problema con <span>applyFilt</span>er Tengo un formulario con un listado de registros y tengo dos TxtBox independientes donde al introducir valores en ambos, por medio de un botón me filtra aquellos registros que...
1 respuesta

Búsqueda en access tipo google

Tengo una base de datos en access y cuando busco por palabra tengo que anotar el código del registro para después poder imprimirlo o editarlo. Lo que quiero hacer es introducir una palabra y que los registros me aparezcan en forma de listado puede...
3 respuestas

Añadir función acentos a búsqueda con cuadro combinado

En un formulario tengo un botón que busca a partir de lo que selecciono en un combo e indico un valor de texto en un textbox: Private Sub cmdBusca_Click() Dim vCamp As String, vText As String Dim miFiltro As String vCamp = Nz(Me.cboCampo.Value, "")...
1 respuesta

Filtros en formularios dependiendo de cuadros de texto

Como puedo aplicar varios filtros en un formulario dependiendo de lo que digite en varios cuadros de texto, he encontrado el siguiente código pero solamente me filtra lo que digite en el cuadro y no me deja filtrado los otros cuadros si tienen algún...
1 respuesta

Access, ¿Cómo hacer una consulta masiva?

He ingresado los parámetros de búsqueda o criterios para poder filtrar los registros, usando para el caso dos formularios distintos para lo cual he realizado un formulario de parámetros, y otro con la consulta con criterios haciendo referencia al...
1 respuesta

Copiar una columna en otra de una consulta access

Te comento: Tengo una función con la que numero cada registro de una consulta del 1 al ultimo. El problema es que en la vista hoja de datos de la consulta si me paso de registros y muevo la barra de desplazamiento se actualiza la numeración (no se...
1 respuesta

Recorrer un subformulario

Que tal expertos tengo un formulario principal llamado categorías y un subformulario que se llama percepciones el campo principal tengo un campo llamado salario, quiero que el evento después de recorra el subformulario buscando la clave 2001 y el...
1 respuesta

Filtrar por contenido de campo

Quiero filtrar una consulta por el contenido de un cuadro de textode un formulario, pero unas veces que me busque los registros con lo que yo ponga y otras lo que sea distinto a lo que yo ponga. Para eso pongo una casilla de verificación en la que...
1 respuesta

¿Cómo interceptar el error de registros duplicados para poner yo mi mensaje?

Al ocupar el comando ACNEW para dar de alta registros, ¿Cómo intercepto el error de registros duplicados para poner yo mi mensaje y evitar que el usuario vea el mensaje de error de access?
1 respuesta