Access - DESHABILITAR BOTON CERRAR ACCESS 2016

Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)

  ' Comments: Control the Access close button.

  '           Disabling it forces the user to exit within the application

  ' Params  : pfEnabled       TRUE enables the close button, FALSE disabled it

  ' Owner   : Copyright (c) FMS, Inc.

  ' Source  : Total Visual SourceBook

  ' Usage   : Permission granted to subscribers of the FMS Newsletter

  On Error Resume Next

  Const clngMF_ByCommand As Long = &H0&

  Const clngMF_Grayed As Long = &H1&

  Const clngSC_Close As Long = &HF060&

  Dim lngWindow As Long

  Dim lngMenu As Long

  Dim lngFlags As Long

  lngWindow = Application.hWndAccessApp

  lngMenu = GetSystemMenu(lngWindow, 0)

  If pfEnabled Then

    lngFlags = clngMF_ByCommand And Not clngMF_Grayed

  Else

    lngFlags = clngMF_ByCommand Or clngMF_Grayed

  End If

  Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)

End Sub

Private Sub Form_Load()

Call AccessCloseButtonEnabled(False)

End Sub

Private Sub Form_Close()

Call AccessCloseButtonEnabled(True)

End Sub