Access - crear filtros en access

   
Vista:

crear filtros en access

Publicado por anahi (17 intervenciones) el 20/03/2013 17:59:27
hola buenos dias alguien me pudiera explicar el siguiente codigo lo que pasa es que ando haciendo un filtro en el cual quiero que me aparesca un listado de los oficios que no se han respondido el codigo es este

Dim vCamp As String, vText As String
Dim miFiltro As String
vCamp = Nz(Me.cboCampo.Value, "")
vText = Nz(Me.txtBuscar.Value, "")
If vCamp = "" Or vText = "" Then Exit Sub
Select Case vCamp
Case "Numero de oficio"
vCamp = "numoficio"
Case "contestado"
vCamp = "ofresp"
End Select
miFiltro = "[" & vCamp & "] LIKE '*" & vText & "*'"
Me.Filter = miFiltro
Me.FilterOn = True
End Sub

por favor si son tan amables gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

crear filtros en access

Publicado por Neckkito (1104 intervenciones) el 21/03/2013 13:11:08
Hola!

Ahí lo tienes
...
'Declaramos las variables
Dim vCamp As String, vText As String
Dim miFiltro As String
'Cogemos el valor del combo cboCampo a través de vCamp. Si no hay valor devuelve una cadena vacía
vCamp = Nz(Me.cboCampo.Value, "")
'Cogemos el valor del textbox txtBuscar a través de vText. Si no hay valor devuelve una cadena vacía
vText = Nz(Me.txtBuscar.Value, "")
'Si el combo o el text box devuelven cadenas vacías salimos del proceso
If vCamp = "" Or vText = "" Then Exit Sub
'Analizamos el valor del combo
Select Case vCamp
'Si el valor introducido es "Número de oficio"...
Case "Numero de oficio"
'...determinamos que vCamp coja el valor "numoficio"
vCamp = "numoficio"
'Si el valor introducido es "contestado"...
Case "contestado"
'...determinamos que vCamp coja el valor "ofresp"
vCamp = "ofresp"
End Select
'Creamos el filtro sobre el campo de la tabla que coincida con vCamp y buscamos por
'aproximación en función del valor introducido en el textbox
miFiltro = "[" & vCamp & "] LIKE '*" & vText & "*'"
'Indicamos que el filtro el formulario es el filtro que acabamos de crear
Me.Filter = miFiltro
'Activamos el filtro
Me.FilterOn = True
End Sub
...

Saludos,


http://neckkito.siliconproject.com.ar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

crear filtros en access

Publicado por anahi (17 intervenciones) el 21/03/2013 17:44:24
gracias Neckkito...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar