MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Compartilhe

    edu2araujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/01/2017

    [Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  edu2araujo em 1/11/2018, 18:48

    Tenho uma aplicação multiusuário que roda em rede. E não quero que o usuário utilize o botão Fechar Principal do Access [X].
    Como eu faço isso?
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7226
    Registrado : 11/05/2010

    Re: [Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  vieirasoft em 1/11/2018, 18:57

    Olá, tente aqui no Fórum

    [Você precisa estar registrado e conectado para ver este link.]

    edu2araujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/01/2017

    Re: Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  edu2araujo em 1/11/2018, 19:21

    Vieira,
    Já tentei mas este exemplo não funciona na Access Office 365.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7226
    Registrado : 11/05/2010

    Re: [Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  vieirasoft em 1/11/2018, 19:28

    Se esta não funcionar....

    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

    Para chamar a função

    Private Sub Command0_Click()

    HideAccessCloseButton
    End Sub

    edu2araujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/01/2017

    Re: Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  edu2araujo em 1/11/2018, 19:48

    Vieira,
    Não funciona porque estou usando uma maquina 64 Bits e não estou lembrado como faço a conversão.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3467
    Registrado : 04/04/2010

    Re: [Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  Avelino Sampaio em 2/11/2018, 08:04

    Olá!

    veja neste meu artigo uma opção (copie e cole o endereço abaixo no seu navegador):

    usandoaccess.com.br/dicas/fechar-access-botoes-especificos.asp


    Bom estudo!

    edu2araujo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 6
    Registrado : 06/01/2017

    Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

    Mensagem  edu2araujo em 5/11/2018, 19:52

    Avelino Sampaio,
    Obrigado!

    Deu certo.

      Data/hora atual: 14/11/2018, 11:53