Resultado en formulario Sí busqueda exacta NO con like ???
Publicado por Joaquin (38 intervenciones) el 30/04/2013 09:24:37
Hola gente..alguien cree en las brujas ?? yo hasta ahora no....pero...
Tengo dos tablas: expedientes y contratos. Una consulta con esas dos tablas.
Un formulario y un subformulario. En el formulario tengo 5 campos de busqueda (independientes)
Y un subformulario para mostrar los resultados.
(Solo he probado a buscar en uno de los campos..cuando funcione ya lo haré con busquedas concurrentes sobre varios campos..)
Si en el campo nombre: Busco "Jose Rodriguez" en el subformulario me muestra todos los registros de Jose Rodriguez
Pero si en el campo nombre busco "Jose" (porque el usuario desconoce el apellido) en el subformulario NO muestra ningun registro....
He ejecutado paso a paso el codigo y no me da error....
Private Sub cmd_buscar_Click()
Dim stemp As String
Me.Filter = ""
Me.FilterOn = False
buscar_Nombre_RazonSocial.SetFocus
If Len(buscar_Nombre_RazonSocial.Text) > 1 Then
stemp = "Nombre_RazonSocial Like '*" & buscar_Nombre_RazonSocial & "*'"
Me.Filter = stemp
Me.FilterOn = True
End If
Por mas que reviso y reviso no encuentro porque no me muestra en el formulario el resultado.....De veras que ya no puedo más...
Tengo dos tablas: expedientes y contratos. Una consulta con esas dos tablas.
Un formulario y un subformulario. En el formulario tengo 5 campos de busqueda (independientes)
Y un subformulario para mostrar los resultados.
(Solo he probado a buscar en uno de los campos..cuando funcione ya lo haré con busquedas concurrentes sobre varios campos..)
Si en el campo nombre: Busco "Jose Rodriguez" en el subformulario me muestra todos los registros de Jose Rodriguez
Pero si en el campo nombre busco "Jose" (porque el usuario desconoce el apellido) en el subformulario NO muestra ningun registro....
He ejecutado paso a paso el codigo y no me da error....
Private Sub cmd_buscar_Click()
Dim stemp As String
Me.Filter = ""
Me.FilterOn = False
buscar_Nombre_RazonSocial.SetFocus
If Len(buscar_Nombre_RazonSocial.Text) > 1 Then
stemp = "Nombre_RazonSocial Like '*" & buscar_Nombre_RazonSocial & "*'"
Me.Filter = stemp
Me.FilterOn = True
End If
Por mas que reviso y reviso no encuentro porque no me muestra en el formulario el resultado.....De veras que ya no puedo más...
Valora esta pregunta
0