Access - crear filtros en access

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

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

gracias Neckkito...