MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Botao fechar do Access (x)

    msilveir
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 13/03/2011
    • Mensagem nº1

    [Resolvido]Botao fechar do Access (x) Empty [Resolvido]Botao fechar do Access (x)

    Mensagem  msilveir Sáb 01 Set 2018, 14:47

    ola Pessoal

    nao consegui desabilitar ou bloquer o botao
    por favor se tiver um exemplo me ajuda access 2016

    obrigado
    • Ir para o topo
    =>Nois
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012
    • Mensagem nº2

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  =>Nois Sáb 01 Set 2018, 17:04

    tente este:

    cole em módulo

    e chame no evento ao abrir do formulário

    call DesabilitaBotFechar

    Código:
    Option Compare Database
    Option Explicit
    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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    • Ir para o topo
    msilveir
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 13/03/2011
    • Mensagem nº3

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  msilveir Sáb 01 Set 2018, 21:38

    boa noite

    ola colega

    esta dando a mensagem abaixo

    erro de compilação

    sub ou function nao definida
    • Ir para o topo
    =>Nois
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012
    • Mensagem nº4

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  =>Nois Seg 03 Set 2018, 08:53

    em anexo, teste.
    Anexos
    [Resolvido]Botao fechar do Access (x) AttachmentDatabase4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 57 vez(es)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    • Ir para o topo
    msilveir
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 13/03/2011
    • Mensagem nº5

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  msilveir Seg 10 Set 2018, 19:58

    ola Amigo

    desculpe a demora consegui bloquer o botao do access

    obrigado pelo seu exemplo
    • Ir para o topo
    Alvaro Teixeira
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7922
    Registrado : 15/03/2013
    • Mensagem nº6

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  Alvaro Teixeira Ter 11 Set 2018, 03:07

    Olá a todos,

    Marcio, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    • Ir para o topo
    msilveir
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 13/03/2011
    • Mensagem nº7

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  msilveir Qui 27 Set 2018, 16:45

    ola pessoal

    consegui resolver com exemplo




    muito obrigado pela atenção
    • Ir para o topo
    Alvaro Teixeira
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7922
    Registrado : 15/03/2013
    • Mensagem nº8

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  Alvaro Teixeira Qui 27 Set 2018, 17:46

    cheers
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº9

    [Resolvido]Botao fechar do Access (x) Empty Re: [Resolvido]Botao fechar do Access (x)

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Seg 20 maio 2024, 09:53