Ocultar área de trabajo |
Responder |
Autor | |
Argelmoon
Nuevo Unido: 14/Enero/2021 Localización: Mexico Estado: Sin conexión Puntos: 10 |
Opciones de entrada
Gracias(0)
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 ayuda
|
|
Argel O.
|
|
lunasoft
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Habitual Unido: 04/Noviembre/2014 Localización: Graz Estado: Sin conexión Puntos: 100 |
Opciones de entrada
Gracias(0)
|
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 |
|
Argelmoon
Nuevo Unido: 14/Enero/2021 Localización: Mexico Estado: Sin conexión Puntos: 10 |
Opciones de entrada
Gracias(0)
|
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.
|
|
Argelmoon
Nuevo Unido: 14/Enero/2021 Localización: Mexico Estado: Sin conexión Puntos: 10 |
Opciones de entrada
Gracias(0)
|
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.
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |