** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Ocultar área de trabajo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Ocultar área de trabajo

 Responder Responder
Autor
Mensaje
Argelmoon Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 14/Enero/2021
Localización: Mexico
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Argelmoon Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Ocultar área de trabajo
    Enviado: 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.
Arriba
lunasoft Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 04/Noviembre/2014
Localización: Graz
Estado: Sin conexión
Puntos: 15
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lunasoft Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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
Si sabes que no sabes nada... ya sabes algo
Arriba
Argelmoon Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 14/Enero/2021
Localización: Mexico
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Argelmoon Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable