MS Access 2003: ocultar el botón de cierre en un programa de Access

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Access 2003: ocultar el botón de cierre en un programa de Access

Este tutorial de MSAccess explica cómo ocultar el botón de cierre en un programa de Access en Access 2003 (con capturas de pantalla e instrucciones paso a paso).

P: En Microsoft Access 2003/XP/2000/97, proporciono un botón de comando para cerrar la base de datos. Estoy tratando de averiguar cómo deshabilitar el botón de cierre (x) en la esquina superior derecha para que el usuario tenga que usar el botón de comando.

R: Puede deshabilitar el botón de cierre en un programa de Access usando el código VBA.

Abra su base de datos de Access, haga clic en la pestaña Módulos y cree un nuevo módulo. Pegue el siguiente código:

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Sub HideAccessCloseButton()

   Dim lngStyle As Long

   lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
   lngStyle = lngStyle And Not WS_SYSMENU
   Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
   Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)

End Sub

Ahora, cuando mira su programa de Access, puede ver que el botón de cerrar en la esquina superior derecha está visible.

Ahora, ejecute el siguiente código VBA:

Private Sub Command0_Click()

   HideAccessCloseButton

End Sub

Ahora, cuando ve un programa de Access, el botón de cierre en la esquina superior derecha ya no está visible.

Este tutorial de MSAccess explica cómo mostrar el botón de cerrar en un programa de Access.