Name: 🆕 Como utilizar FORMULARIOS DE ARRANQUE, PANEL DE CONTROL 🔥 OCULTAR ÁREA DE TRABAJO DE ACCESS 🔥Tip 4
Uploaded: 2022-01-08T13:38:54+00:00
Duration: 8 min 27 s
Description: 🆕 Como utilizar FORMULARIOS DE ARRANQUE 🔥 PANEL DE CONTROL 🔥 OCULTAR ÁREA DE TRABAJO DE ACCESS 🔥Tip 4 En este video veremos cómo utilizar Formularios de Arranque, programarlo un tiempo mediante código

4 years ago

cursosi Juan Carlos Rangel Crear Splash Screen en Access Crear pantalla de Inicio en Access Crear un formulario Splash en Access Como crear un Formulario de Arranque Como utilizar VBA en Access Programaciion VBA en Access Como crear un Panel de Control en Access Menu Principal en Access Como ocultar el área de trabajo en Access

🆕 Como utilizar FORMULARIOS DE ARRANQUE 🔥 PANEL DE CONTROL 🔥 OCULTAR ÁREA DE TRABAJO DE ACCESS 🔥Tip 4

En este video veremos cómo utilizar Formularios de Arranque, programarlo un tiempo mediante código VBA para que después de un tiempo mande llamar al panel de control que funcionara como Menu Principal, además ambos Formularios estarán programados mediante código VBA para ocultar el área de trabajo de Access.

Codigo VBA
Option Compare Database
Dim Contador As Integer
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
Contador = 0
Call ShowWindow(hWndAccessApp, SW_HIDE)
End Sub
Private Sub Form_Timer()
Contador = Contador + 1
If Contador = 100 Then
DoCmd.Close
Call ShowWindow(hWndAccessApp, SW_HIDE)
DoCmd.OpenForm "Panel de Control", acNormal
End If
End Sub