No logro obtener resultados con un filtro
Publicado por Sasha (3 intervenciones) el 12/12/2016 00:50:29
Por algún motivo que escapa a mi entendimiento el código que sigue no me arroja resultados para COAUTOR:
¿Qué puedo hacer para corregir?
En el adjunto tengo una captura del formulario.
Cabe aclarar que el lstbox se actualiza con .rowsource en el mismo formulario.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ACTIVA_FILTRO()
On Error GoTo ERRH
miFiltro = ""
X = M_AUTOR.Value
Select Case X
Case 1
miFiltro = "[AUTOR] = '" & Me.txtFiltro.Value & "'"
Case 2
miFiltro = "[COAUTOR] = '" & txtFiltro & "'"
End Select
MsgBox "Caso: " & X & vbLf & miFiltro
Me.Filter = miFiltro
Me.FilterOn = True
Call INFORMA
ERRH:If Err.Number = 3075 Or Err.Number = 0 Or Err.Number = 94 Then
Else
ENTORNOERR = "Form_" & Me.Name & ".ACTIVA_FILTRO"
Mensajes.ERR_GENERAL_BY_NEnd If
End Sub
¿Qué puedo hacer para corregir?
En el adjunto tengo una captura del formulario.
Cabe aclarar que el lstbox se actualiza con .rowsource en el mismo formulario.
- Capturas.zip(35,3 KB)
Valora esta pregunta
0