Formularios independientes y Consultas
Publicado por José Maria (139 intervenciones) el 12/06/2015 22:17:29
Muy buenas,
Tengo un Formulario independiente el cual tiene un cuadro de texto independiente que hace la función de buscador.
Me funciona perfecto con:
El Problema es que el formulario tiene como Origen una consulta y al abrir el formulario me abre tambien los 1,000 registros que tiene lo cual hace que vaya lento y de vez en cuando salga el famoso (No Responde).
Por lo que mi idea es poner el formulario de forma independiente, que no cargue nada y que solamente al poner el texto a buscar en ese cuadro de texto me rellene luego la consulta.
Mi problema es que no sé mediante VB como Conectar un formulario a una consulta.
Gracias
Tengo un Formulario independiente el cual tiene un cuadro de texto independiente que hace la función de buscador.
Me funciona perfecto con:
1
2
3
4
5
6
7
8
9
10
11
Dim vTexto As String
vTexto = Nz(Me.txtN_Expediente.Text, "")
If vTexto = "" Then
Me.FilterOn = False
Else: With Me
.Filter = "[N_Expediente] LIKE '*" & vTexto & "*'"
.FilterOn = True
.txtN_Expediente.SetFocus
.txtN_Expediente.SelStart = Len(vTexto)
End With
End If
El Problema es que el formulario tiene como Origen una consulta y al abrir el formulario me abre tambien los 1,000 registros que tiene lo cual hace que vaya lento y de vez en cuando salga el famoso (No Responde).
Por lo que mi idea es poner el formulario de forma independiente, que no cargue nada y que solamente al poner el texto a buscar en ese cuadro de texto me rellene luego la consulta.
Mi problema es que no sé mediante VB como Conectar un formulario a una consulta.
Gracias
Valora esta pregunta
0