[Resolvido]Como tirar o botão fechar dos furmulários.

Bom dia!

Gostaria de saber como tirar o botão de fechamento do formulário e manter o maximizar e minimizar.

agradeço a quem poder me ajudar.

Amigo no modo Design do formulário você deve clicar 2 vezes no quadradinho preto que fica no canto esquerdo superior do formulário, dessa forma você irá abrir a folha de propriedades do formulário!

Na folha de propriedades você tem varias opções, entre elas

"Caixa de controle" coloque sim!
"Botão Fechar" coloque não!
"Botão Min Max" coloque Ambos ativados!

Assim vai ter o resultado que você deseja!
boa sorte!

Caso você queira desativar o botão fechar do canto direito do access (aquele que fecha todo o aplicativo) também é possível.

Dessa forma, o usuário só consegue fechar o access pelo menu Arquivo - Sair.

Se precisar, favor pedir o código.

Não entendo bem de códigos, mas encontrei esse. Não testei!
Crie um módulo e cole o código abaixo:

Código:

Option Compare Database

Const SC_CLOSE As Long = &HF060&
Const MIIM_STATE As Long = &H1&
Const MIIM_ID As Long = &H2&
Const MFS_GRAYED As Long = &H3&
Const MFS_CHECKED As Long = &H8&
Const WM_NCACTIVATE As Long = &H86

Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal B As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal WMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

Const xSC_CLOSE As Long = -10
Const SwapID As Long = 1
Const ResetID As Long = 2
Private hMenu As Long
Private MII As MENUITEMINFO

Sub Disable()
Dim Ret As Long
Ret = SetId(SwapID)
If Ret = 0 Then
If MII.fState = (MII.fState Or MFS_GRAYED) Then
MII.fState = MII.fState - MFS_GRAYED
Else
MII.fState = (MII.fState Or MFS_GRAYED)
End If
MII.fMask = MIIM_STATE
Ret = SetMenuItemInfo(hMenu, MII.wID, False, MII)
If Ret = 0 Then
Ret = SetId(ResetID)
End If
Ret = SendMessage(Application.hWndAccessApp, WM_NCACTIVATE, True, 0)
End If
End Sub

Private Function SetId(Action As Long) As Long
Dim MenuID As Long
Dim Ret As Long
MenuID = MII.wID
If MII.fState = (MII.fState Or MFS_GRAYED) Then
If Action = SwapID Then
MII.wID = SC_CLOSE
Else
MII.wID = xSC_CLOSE
End If
Else
If Action = SwapID Then
MII.wID = xSC_CLOSE
Else
MII.wID = SC_CLOSE
End If
End If
MII.fMask = MIIM_ID
Ret = SetMenuItemInfo(hMenu, MenuID, False, MII)
If Ret = 0 Then
MII.wID = MenuID
End If
SetId = Ret
End Function

Sub DesabilitaBotFechar()
Dim Ret As Long
Dim hwnd As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
MII.cbSize = Len(MII)
MII.dwTypeData = String(80, 0)
MII.cch = Len(MII.dwTypeData)
MII.fMask = MIIM_STATE
MII.wID = SC_CLOSE
Ret = GetMenuItemInfo(hMenu, MII.wID, False, MII)
Disable
End Sub

Para chamar:

Código:

Call DesabilitaBotFechar

Fonte: http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/746605751

Boa tarde!

Realmente o que estou precisando e para desativar o fechar do access.
thiaginho1 será que não existe um codigo menor, como os que coloca no formulário ao abrir que desabilita.

Obrigado a todos que enteressaram a me ajudar.

Olá spp,

O colega thiaguinho1 já indica como fazer.

Crie um módulo e cole o código.

depois no evento load do form coloque:
Call DesabilitaBotFechar

Conforme também mencionado na mensagem do colega thiaguinho1.

Em 1 minuto está feito...

Bom Dia!

Bitabit e Thiaguinho1
Obrigado por me ajudar, funcionou perfeitamente.