Imprimir página | Cerrar ventana

Ocultar área de trabajo

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85736
Fecha de impresión: 29/Marzo/2024 a las 13:17


Tema: Ocultar área de trabajo
Publicado por: Argelmoon
Asunto: Ocultar área de trabajo
Fecha de publicación: 14/Enero/2021 a las 01:14
Hola, tengo una base de datos con formularios, oculte el área de trabajo para que solo se muestren los formularios, todo funciona perfecto pero guarde el trabajo como ejecutable (ACCDE) y al hacer esto entonces ya no me oculta el área de trabajo. Puedo ocultarla como ejecutable o esto no es posible?

Gracias por su ayudaSmile 


-------------
Argel O.



Respuestas:
Publicado por: lunasoft
Fecha de publicación: 17/Enero/2021 a las 10:41
Hola Argelmoon.
Cómo ocultaste el área de trabajo en el ACCDB?

Tal vez en función de cómo lo hiciste podemos encontrar una solución.

Saludos

-------------
Juanjo Luna (Lunasoft)
Microsoft MVP 2023

----------------

https://www.luna-soft.es/

https://www.youtube.com/ACCESSoTOTAL

https://github.com/ACCESSoTOTAL


Publicado por: Argelmoon
Fecha de publicación: 19/Enero/2021 a las 00:30
Hola,

Gracias por responder, tengo este codigo que tengo para ocultarlo, en accdb me funciona bien, pero en accde ya no se oculta.

Option Compare Database

Option Explicit

 Const SW_HIDE = 0
 Const SW_NORMAL = 1
 Const SW_MINIMIZED = 2
 Const SW_MAXIMIZED = 3

Private Declare PtrSafe Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
   Call ShowWindow(hWndAccessApp, SW_HIDE)
   DoCmd.OpenForm "Menu", windowmode:=acDialog
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
   lngRetCode = ShowWindow(hWndAccessApp, SW_MINIMIZED)

End Sub






-------------
Argel O.


Publicado por: Argelmoon
Fecha de publicación: 10/Febrero/2021 a las 21:44
Hola,

Gracias por responder, tengo este codigo que tengo para ocultarlo, en accdb me funciona bien, pero en accde ya no se oculta.

Option Compare Database

Option Explicit

 Const SW_HIDE = 0
 Const SW_NORMAL = 1
 Const SW_MINIMIZED = 2
 Const SW_MAXIMIZED = 3

Private Declare PtrSafe Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
   Call ShowWindow(hWndAccessApp, SW_HIDE)
   DoCmd.OpenForm "Menu", windowmode:=acDialog
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
   lngRetCode = ShowWindow(hWndAccessApp, SW_MINIMIZED)

End Sub


-------------
Argel O.



Imprimir página | Cerrar ventana