Anónimo
Formularios access
Hola buenos:
Estoy realizando una base de datos en ACCESS y me surge un problema:
Me gustaría presentarla sin barras de desplazamiento, botones, ... Pero no maximizada, si no de un tamaño predefinido ocupando aproximadamente un 40% de la pantalla. Hasta aquí he conseguido mi propósito pero el problema me surge al verse por detrás Access.. Me gustaría que no se viera, ¿es posible quitarlo?
Tengo otra preguntilla, le he dicho a access que al abrir se me abra en un formulario, pero siempre sale una ventana emergente si deseo bloquear o desbloquear.. ¿es posible quitar ese mensaje? ¿Y si lo quito pasaría algo?
Espero contestación. Muchas gracias
Estoy realizando una base de datos en ACCESS y me surge un problema:
Me gustaría presentarla sin barras de desplazamiento, botones, ... Pero no maximizada, si no de un tamaño predefinido ocupando aproximadamente un 40% de la pantalla. Hasta aquí he conseguido mi propósito pero el problema me surge al verse por detrás Access.. Me gustaría que no se viera, ¿es posible quitarlo?
Tengo otra preguntilla, le he dicho a access que al abrir se me abra en un formulario, pero siempre sale una ventana emergente si deseo bloquear o desbloquear.. ¿es posible quitar ese mensaje? ¿Y si lo quito pasaría algo?
Espero contestación. Muchas gracias
1 Respuesta
Respuesta de manuelpacha
1
Con respecto a las barras de desplazamiento en vista diseño pulsas botón derecho sobre zona gris, pulsas propiedades y en la pestaña de FORMATO tienes diversas posibilidades de ocultar ciertas caracterésticas. Con respecto a ocultar access sería a través de código visual basic detallado a continiación.
Crea un módilo con este código:
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 'GAD
Declare Function Ejecuta Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Declare Function apiReleaseCapture Lib "user32" _
Alias "ReleaseCapture" () As Long
Public Declare Function apiSendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_SYSCOMMAND As Long = &H112
Public Const SC_MOVE_MOUSE As Long = &HF012&
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
------------------------------------
Al abrir el formulario de inicio ejecuta
fSetAccessWindow (0)
------------------------------------------------
Con respecto al mensaje de Bloqueo se elimina en Herramientas>Macro>Seguridad y lo situamos en BAJO.
Una aperta.
Crea un módilo con este código:
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 'GAD
Declare Function Ejecuta Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Declare Function apiReleaseCapture Lib "user32" _
Alias "ReleaseCapture" () As Long
Public Declare Function apiSendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_SYSCOMMAND As Long = &H112
Public Const SC_MOVE_MOUSE As Long = &HF012&
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
------------------------------------
Al abrir el formulario de inicio ejecuta
fSetAccessWindow (0)
------------------------------------------------
Con respecto al mensaje de Bloqueo se elimina en Herramientas>Macro>Seguridad y lo situamos en BAJO.
Una aperta.