Buscar en este blog

Cargando...

como ocultar la ventana de access

En esta ocacion hablaremos acerca de la necesidad de ocultar la ventana de access cuando corremos una aplicacion, asi nuestra aplicacion tendra una apariencia mas profesional al momento de ser presentada, para eso recurriremos a las API de windows donde encontraremos lo necesario para hacer esta implementacion.



Paso 1: Crear un Modulo Nuevo y ponerle el nombre de ocultaventanaaccess
Paso 2: Colocar el siguiente codigo:

''''
' Start Code '
''''
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long
    
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If
End Function
'''
' End Code
'
'''

Paso 3: En el formulario con el que iniciamos la aplicacion, colocan en el evento "Al Abrir" o "On Open" , la llamada de la funcion para ocultar la ventana de access de la siguiente manera:

fAccessWindow ("Show", False, False)

Listo!! con esto conseguiremos ocultar la ventana de access y solamente mostrar nuestra propias ventanas.

5 comentarios:

  1. Hola, eh creado el modulo pero al declarar la variable en el formulario de inicio no me permite avanzar, me dice que esta mal declarada, alguna solución?

    ResponderEliminar
  2. fAccessWindow ("Show", False, False), quitale los paréntesis y listo

    ResponderEliminar
  3. Consulta esto solo funciona para 32 bits? si necesito para ambos? Es decir algunas PC tienen 32 Bits y otras 64 cmo puedo hacer?
    saludos y muchas gracias

    ResponderEliminar
    Respuestas
    1. te recomiendo leas esta solucion

      http://aulaclick-access.blogspot.com/2011/07/atributo-ptrsafe-en-ms-access-64-bits.html

      Eliminar

Entradas populares