Ocultar botão de fechar do ACCESS e não o botão do formulario principal.

Bom dia!
Por gentileza, vi alguns posts sobre ocultar/desabilitar o botao da ferramenta ACCESS, mas nao consegui implantar de forma alguma.

Como devo usar o comando ShowWindow(Application.hWndAccessApp, SW_HIDE) para que nao seja possível fechar o ACCESS pelo X?

Boa tarde.

para que nao seja possível fechar o ACCESS pelo X? escreveu:

Só entrar na propriedade do formulário e desabilitara-lo.
Entre na folha de propriedade  na aba Todos desça a barra de rolagem até encontrar  Botão Fechar e coloque Não.

Boa tarde Crysostomo, agradeço o retorno, mas nao é isso.
Vejo que você tem postado essa resposta algumas vezes em outras postagens, mas o que preciso é que nao seja possível clicar no X no próprio aplicativo e não no formulário.

Se você viu ok, mas eu não faço assim, eu trabalho com auto Transparência, que oculta todo o Access e só deixa o sistema criado.
Seu caso é converter para accde/.accdr, agora se você está mexendo com menu horizontais, também acho que isso pode te ajudar.

Pega esse

Código:

Option Compare Database
Option Explicit
#If VBA7 Then

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
#Else
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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

#End If
Function AccessTransparente(Nivel As Integer)
'Adaptación:    Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo:      Ajustar el nivel de transparencia de la ventana principal
'               de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long

    If Nivel < 0 Or Nivel > 250 Then Exit Function
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function

Código:

Private Sub Form_Open(Cancel As Integer)
  Call AccessTransparente(0)
End Sub

muito obrigado

Olá a todos,

Fábio Ricardo, tema já abordado diversas vezes.
Não falta exemplos no forum, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja estes por exemplo:
https://www.maximoaccess.com/t34628-resolvidocomo-desabilitar-o-botao-fecharx-principal-do-access-no-office-365
https://www.maximoaccess.com/t39269-resolvidodesabilitar-botao-fechar-da-janela-principal-do-access

Abraço