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]Impedir o fechamento do access

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 11/9/2018, 15:40

    ola

    Qual comando devo acrescentar em meu projeto para nao permitir fechar o Access acidentalmente pelo "X" no canto superior lado direito da tela ?
    Desejo fechar o Access somente atraves de Botao "FECHAR " que criei.

    Andre
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1131
    Registrado : 07/12/2011

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  tauron em 11/9/2018, 15:52

    Na propriedade do formulario, procure por "Botão Fechar" coloque "não", isto fara que o botão fique visivel mas desabilitado.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 11/9/2018, 16:22

    Nao e o formulario e sim o proprio banco de dados. Aqui quando eu rodo meu projeto ja nao aparece as guias do Access, exceto se eu apertar o SHIFT.

    Entao la em cima aparece o "X" do Banco de dados + o "X" do Formulario que este sim desativei. Mas se eu clicar no "X"do banco de dados o Acces se fecha.

    Quero impedir isso. E somsnte se fechar por botao de comando que estara no Formulario.

    Andre
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  livio.sfranca em 11/9/2018, 17:48

    Boa tarde,

    No seu formulário Menu, no evento "Ao Descarregar", insira o seguinte código:

    Private Sub Form_Unload(Cancel As Integer)
    Dim rMsg As VbMsgBoxResult
    rMsg = MsgBox("Deseja realmente fechar o sistema?", vbYesNo, "Aviso")

    If rMsg = vbYes Then
    DoCmd.Quit
    Else
    Cancel = True
    End If
    End Sub


    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 11/9/2018, 18:08

    Oi Livio, mas este adicional fica dentro do meu Form Menu correto ?

    Mas acima deste tem outro "X" que se eu apertar ele fecha o banco todo.

    Dentro do Meu Form "MENU" eu tenho ja um botao de fechamento conforme abaixo.

    Código:


    Private Sub ImSair_Click()
    '************************************************
    'Dim s
        Dim source As String
    '    s = Split(CurrentProject.Name, ".")
        source = CurrentProject.Path & "\" & CurrentProject.Name
        destine = "E:\"
        destine2 = "C:\Gerencia\SysVendas\Backup\"
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fso2 = CreateObject("Scripting.FileSystemObject")
        destine = destine & "PDV-FazerBem " & Me.Versao.Caption & ".accdb" ' & s(1)
        destine2 = destine2 & "PDV-FazerBem " & Me.Versao.Caption & ".accdb" '& s(1)
     
     On Error Resume Next
        fso.CopyFile source, destine, True
        fso2.CopyFile source, destine2, True
        Set fso = Nothing
        MsgBox "Backup realizado com sucesso!!!"
    '************************************************
      If MsgBox("Dejesa sair do sistema?", vbYesNo + vbInformation, "Saindo") = vbYes Then
        DoCmd.Quit
        Else
        End If
    End Sub


    Aqui funciona certinho ja. Porem se eu fechar o Banco de Dados no "X", nao e o x do Form, pois este desabilitei, e sim o X do Acess, este fecha.

    Veja a imagem abaixo a qual "X"me refiro.

    [Resolvido]Impedir o fechamento do access Apagar24

    Grato

    Andre

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 11/9/2018, 18:09

    Veja que o Form MENU ja nao tem o "X" so tem o "X" do banco de dados.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6389
    Registrado : 15/03/2013

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  ahteixeira em 11/9/2018, 18:42

    Ola a todos,

    Tema ja abordado, solucao topico abaixo:
    https://www.maximoaccess.com/t34167-botao-fechar-do-access-x

    []'s
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3959
    Registrado : 06/11/2009

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  Assis em 11/9/2018, 19:00

    Teste
    Anexos
    [Resolvido]Impedir o fechamento do access AttachmentDatabase4Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 15 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 12/9/2018, 18:27

    ola Assis, so pude ver agora as 18h de hj, sem net hj dia todo.

    Andre


    Última edição por fazerbem em 13/9/2018, 08:51, editado 1 vez(es)
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 13/9/2018, 08:50

    Grande Assis, ficou na medida exata do que eu queria !

    Mais uma vez agradeço a vc, aliás a todos que de uma forma ou outra tem me ajudado e contribuido para que meu PDV ficasse da forma que eu queria.

    Abraços e com certeza até a próxima.

    André
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  fazerbem em 13/9/2018, 18:05

    Ficou Show sim!

    Conteúdo patrocinado

    [Resolvido]Impedir o fechamento do access Empty Re: [Resolvido]Impedir o fechamento do access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/12/2019, 16:49