ACCESS FORMULARIO EN PANTALLA COMPLETA

CODIGO ACCESS PARA PRESENTAR UN FORMULARIO EN PANTALLA COMPLETA

Y SIN BOTONES DE DESPLAZAMIENTO

·         ACCESS
·         PROBLEMA:

Se requiere presentar los formularios en pantalla completa al momento de realizar una aplicación utilizando access, solo tiene que aparecer el formulario en pantalla.

·         SOLUCION

ü  Abrir formulario en modo diseño, propiedades de formulario, todas, emergente (si).

ü  Propiedades de formulario, Eventos, Al activar Registro, macro, acción (maximizar).

ü  Propiedades de formulario, Eventos, Al abrir,  introducir el código quedando asi:

Private Sub Form_Open(Cancel As Integer)

fSetAccessWindow (2)

End Sub

ü  Crear un modulo y colocar el siguiente código

Option Compare Database

Option Explicit

Global Const SW_HIDE = 0

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim iox As Long

Dim ioForm As Form

iox = apiShowWindow(hWndAccessApp, nCmdShow)

End Function

ü  Elimine la barra de desplazamiento de debajo de los formularios, propiedades de formulario, Formato, Botones de desplazamiento (no).

Se recomienda el uso de un panel de control para crear el efecto de aplicación, colocando un macro autoexec que señale la apertura de este, así logrará navegar entre los diferentes formularios.