Problema con buscar
Publicado por Dotiso4u (2 intervenciones) el 24/03/2020 16:53:43
Saludos, tengo un textBox y un Cmd para hacer una busqueda
El problema es que cuando realizo la busqueda y llega al final de los registros no empieza de 0.
Os adjunto el codigo VB de la macro
En la función "SearchForRecord" he probado a cambiar el comando "acNext" por "acFirst" pero el problema es que siempre me devuelve el primer valor y no toma el ultimo como referencia...
Alguna idea de como hacerlo?
El problema es que cuando realizo la busqueda y llega al final de los registros no empieza de 0.
Os adjunto el codigo VB de la macro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function Busqueda()
On Error GoTo Busqueda_Err
With CodeContextObject
TempVars.Add "nomCliente", .txtBuscarNombre
If (IsNull(TempVars!nomCliente)) Then
Beep
MsgBox "Necesita escribir una instalación para buscar", vbExclamation, "Mensaje"
Else
DoCmd.SearchForRecord acForm, "1_2_0_Instalaciones", acNext, "[1_2_0_Instalaciones].[nombre] LIKE '*" & TempVars!nomCliente & "*'"
TempVars.Remove "nomCliente"
End If
End With
Busqueda_Exit:Exit Function
Busqueda_Err:MsgBox Error$
Resume Busqueda_Exit
End Function
En la función "SearchForRecord" he probado a cambiar el comando "acNext" por "acFirst" pero el problema es que siempre me devuelve el primer valor y no toma el ultimo como referencia...
Alguna idea de como hacerlo?
Valora esta pregunta
0