none
Access 2016, Ocultar / mostrar el panel de navegación mediante programación. RRS feed

  • Pregunta

  • Buenos días:

    ¿Cómo puedo ocultar el panel de navegación de una base de datos Acccess 2016 mediante programación?

    Muchas gracias de antemano.

    Saludos

    miércoles, 27 de diciembre de 2017 14:19

Todas las respuestas

  • Hola!

    un grupo de opciones llamado "Marco1" con dos opciones "Ocultar" y "Mostrar" y el siguiente código te puede servir

    '*******************************************************************************
    '* Marco1_AfterUpdate
    '* muestra u oculta la ventana de la base de datos
    '* ESH 05/10/07 18:15
    '* http://www.mvp-access.es/emilio/
    '* Si utilizas este código, respeta la autoría y los créditos
    '*******************************************************************************

    Private Sub Marco1_AfterUpdate()

    On Error GoTo Marco1_AfterUpdate_TratamientoErrores

    If Me.Marco1 = 2 Then
       DoCmd.SelectObject acForm, , True
       RunCommand acCmdWindowUnhide
    ElseIf Me.Marco1 = 1 Then
       DoCmd.SelectObject acForm, , True
       RunCommand acCmdWindowHide
    End If
    Marco1_AfterUpdate_Salir:
       On Error GoTo 0
       Exit Sub
      
    Marco1_AfterUpdate_TratamientoErrores:
       Select Case Err
          Case 2046
             Resume Next
          Case Else
             MsgBox "Error " & Err & " en proc.: Marco1_AfterUpdate de Documento VBA: Form_Formulario6 (" & Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
             Resume Marco1_AfterUpdate_Salir
       End Select
      
    End Sub        ' Marco1_AfterUpdate


    Saludos a todos desde Huelva Emilio http://www.mvp-access.es/emilio/

    jueves, 28 de diciembre de 2017 20:48