¡Hola!
Una duda avanzada para mí, seguramente para ustedes los expertos será fácil.
Tengo una base de datos configurada para ocultar la interfaz al inicio, mostrando un formulario índice a partir del cual, pulsando en botones de comando, se van desplegando el resto de formularios del sistema en ventanas emergentes.
El código usado para ocultar la interfaz es el siguiente:
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 "0_Panel_Principal", windowmode:=acDialog End Sub Private Sub Form_Unload(Cancel As Integer) Dim lngRetCode As Long lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED) End Sub
Si los formularios están configurados en modal "Sí": todo funciona perfectamente con la interfaz visible u oculta pero no puedo abrir dos formularios al mismo tiempo, tengo que cerrar el que estoy ocupando para que el sistema me permita hacer clic en el formulario índice para seleccionar otro formulario. Si configuro los formularios en modal "No": todo funciona perfectamente con la interfaz visible, pero cuando trabajo con ella oculta el sistema abre el formulario índice, pero no permite acceder a ninguno de los formularios a través de los botones de comando, cuando pulso simplemente no hace nada.
¿Alguien sabría por qué sucede esto y cómo se puede solucionar?
Gracias de antemano por la ayuda.
Un saludo.
|