Sintaxis corresta de rs.filter
Hola Amigo Experto, ojala y me puedas ayudar con este problemilla.
Sucede que al ejecutar el sig código me marca el error 3001 en la última linea y según los manuales es error en la sintaxis:
Row = 2
Do While app.Cells(Row, 4) > 0
If app.Cells(Row, 4) = 55 Then
D1.RFC = app.Cells(Row, 1)
D1.RFCCom = app.Cells(Row, 2)
D1.NoEmpleado = app.Cells(Row, 3)
D1.Concepto = app.Cells(Row, 4)
D1.AbonoCapital = app.Cells(Row, 5)
D1.AbonoInt = app.Cells(Row, 6)
rsAfiliados.MoveFirst
Set rsCloneAfiliados = rsAfiliados.Clone
FiltroAfiliados = "RFC = " & D1.RFC & " AND RFCCom = " & D1.RFCCom & " AND NoEmpleado = 0" '& D1.NoEmpleado
rsCloneAfiliados.Filter = FiltroAfiliados
De antemano Gracias por tu tiempo
Sucede que al ejecutar el sig código me marca el error 3001 en la última linea y según los manuales es error en la sintaxis:
Row = 2
Do While app.Cells(Row, 4) > 0
If app.Cells(Row, 4) = 55 Then
D1.RFC = app.Cells(Row, 1)
D1.RFCCom = app.Cells(Row, 2)
D1.NoEmpleado = app.Cells(Row, 3)
D1.Concepto = app.Cells(Row, 4)
D1.AbonoCapital = app.Cells(Row, 5)
D1.AbonoInt = app.Cells(Row, 6)
rsAfiliados.MoveFirst
Set rsCloneAfiliados = rsAfiliados.Clone
FiltroAfiliados = "RFC = " & D1.RFC & " AND RFCCom = " & D1.RFCCom & " AND NoEmpleado = 0" '& D1.NoEmpleado
rsCloneAfiliados.Filter = FiltroAfiliados
De antemano Gracias por tu tiempo
1 respuesta
Respuesta de Roberto Alvarado
1