Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Mostrar un boton de "siguiente pestaña" formulario access

Access - Mostrar un boton de "siguiente pestaña" formulario access

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Jose
Val: 1
Ha aumentado su posición en 20 puestos en Access (en relación al último mes)
Gráfica de Access

Mostrar un boton de "siguiente pestaña" formulario access

Publicado por Jose (1 intervención) el 15/01/2019 23:56:31
Saludos a todos.

Tengo un formulario un poco extenso que lo dividí en pestañas (fichas), cada una es una parte del mismo y deseo colocarle un Botón en la parte inferior para que el usuario lo pulse y lo lleve directamente a la siguiente pestaña. En la imagen se ejemplifica lo que deseo

Grancias de antemano


Ejemplo
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 Norberto
Val: 1.094
Oro
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Mostrar un boton de "siguiente pestaña" formulario access

Publicado por Norberto (753 intervenciones) el 16/01/2019 12:15:29
Hola:

No se distingue si el botón está dentro de la propia pestaña y piensas poner uno en cada una de ellas. Si es así, sería muy sencillo:

1
2
3
4
5
6
7
8
9
Private Sub cmdIrAFicha2_Click()
    Me.Fichas.Pages(1).SetFocus
End Sub
 
Private Sub cmdIrAFicha3_Click()
    Me.Fichas.Pages(2).SetFocus
End Sub
 
...

Y así para cada uno de ellos.

Si quieres poner un único botón ten en cuenta que:

El control Fichas tiene una propiedad .Value que indica cuál está seleccionada (entre 0 y n - 1). Esta es la propiedad implícita por lo que se puede omitir.
Podemos hacer referencia a una ficha por su nombre (Pages("nombre de la ficha") o por su índice, entre 0 y n - 1 (Pages(n)).
Que podemos activar una ficha usando su método SetFocus.

1
2
3
4
5
6
7
8
Sub cmdSiguienteFicha()
    If Me.Fichas.Pages < Me.Fichas.Pages.Count Then
        Me.Fichas.Pages(Me.Fichas + 1).SetFocus
    Else
        'O no hacer nada o que vaya a la primera

        Me.Fichas.Pages(0).SetFocus
    End If
End Sub

Un saludo,

Norberto.
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