Guardar registro actual, borrar filtro y pasar al siguiente registro
Publicado por Painzer (19 intervenciones) el 17/01/2019 18:23:12
Hola a todos.
Tengo un formulario al cual accedo desde otro que me ejecuta un filtro sobre este (según que seleccione en el anterior). Necesito que al darle al botón siguiente me pase al siguiente registro al actual. Hasta ahora solo he conseguido que al darle al botón me quite el filtro y me va al primer registro...
Aquí mi código:
Muchas gracias de antemano.
Un saludo,
Jesús.
Tengo un formulario al cual accedo desde otro que me ejecuta un filtro sobre este (según que seleccione en el anterior). Necesito que al darle al botón siguiente me pase al siguiente registro al actual. Hasta ahora solo he conseguido que al darle al botón me quite el filtro y me va al primer registro...
Aquí mi código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Siguiente_Registro_Click()
If Me.FilterOn = True Then
Dim finca As String
Dim rst As DAO.Recordset
id= Me.ID
Me.FilterOn = False
Set rst = Me.RecordsetClone
rst.FindFirst "[ID]=" & id
End If
If Me.FilterOn = False Then
DoCmd.GoToRecord , , acNext
End If
End Sub
Muchas gracias de antemano.
Un saludo,
Jesús.
Valora esta pregunta
0