MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Função para encerrar o access via ribbon

    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Função para encerrar o access via ribbon Empty [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Edelson Vieira em 9/5/2020, 19:39

    Boa tarde!

    Preciso de uma função que eu possa chamar para encerrar o access, alguém poderia me ajudar?
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  delsonk em 9/5/2020, 20:06

    Boa tarde!

    Que tal QuitAccess, ele salva o projeto e encerra o Access.

    Att, Delson
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Edelson Vieira em 9/5/2020, 20:49

    Boa tarde delsonk!

    Mas eu preciso em uma função onde eu possa chama la de qualquer lugar. Como eu faria?
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 189
    Registrado : 26/11/2013

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  delsonk em 9/5/2020, 22:01

    Veja se estas mensagem postadas pelo colega ahteixeira ajudam:

    taltech.com/support/entry/opening_and_closing_an_application_from_vba
    ou
    google.pt/#q=ms+access+vba+kill+process

    Att, Delson
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Edelson Vieira em 9/5/2020, 22:26

    Boa noite!

    Não resolve
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 261
    Registrado : 07/02/2018

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  alozs em 9/5/2020, 23:35

    consegue nos detalhar mais para qual seria a finalidade?
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Edelson Vieira em 10/5/2020, 00:10

    Criei uma ribbon com o botão sair, ao clicar nesse botão desejo que a aplicação seja encerrada. A chamada do botão é na escrita da XML "OnAction". Para os formulários e relatórios eu criei as funções. Com as funções abaixo consigo chamar os formulários no evento OnAction="=fncCadastro('frmCliente')" ou OnAction="=fncRelatorio('rltCliente')". Não sei como referenciar a aplicação na função.

    Public Function fncCadastro(strOjeto As String)

    DoCmd.OpenForm strOjeto

    End Function

    Public Function fncRelatorio(strObjeto As String)

    DoCmd.OpenReport strObjeto, acViewReport

    End Function
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7672
    Registrado : 05/11/2009

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Alexandre Neves em 10/5/2020, 10:41

    Bom dia
    No código de execução da fita (ribon) coloque
    docmd.quit


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Edelson Vieira em 10/5/2020, 14:23

    Bom dia Amigos!

    Também não resolve. Encontrei uma solução que não é a mais prática, mas funciona. Como eu criei uma função para chamar os formulários, criei um formulário auxiliar e criei também uma função sem argumentos com a linha de comando DoCmd.Quit AcSave, não consigo chamar essa função da XML, mas consigo chamar o formulário, então no evento ao carregar do formulário auxiliar criei um bloco if com uma msgbox que pergunta se deseja encerrar o programa, se a resposta for sim, chamo a função que criei para encerrar o access se a resposta for não o formulário auxiliar abre, então coloquei no evento ao abrir do formulário auxiliar DoCmd.Close. No evento OnAction na XML chamo o formulário auxiliar. Desta forma se clicar em sim encerra o access e se clicar em não o formulário auxiliar abre e fecha, mas é imperceptível. Dessa forma resolve a questão, porém continuo sem saber como referenciar uma aplicação na XML. Vou dar o tópico como encerrado, se alguém souber como referenciar a aplicação posta aí. Segue o código:

    Public Function fncSair()

    DoCmd.Quit acSave

    End Function

    Private Sub Form_Load()

    If MsgBox("Deseja Encerrar o Programa?", vbYesNo + vbQuestion, "Encerrar") = vbYes Then

    fncSair

    End If

    End Sub

    Private Sub Form_Open(Cancel As Integer)

    DoCmd.Close

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  DamascenoJr. em 10/5/2020, 15:57

    Tópico movido e título alterado para melhor esclarecimento da dúvida.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  DamascenoJr. em 10/5/2020, 16:03

    Não há segredo.

    Na ribbon tenha um botão que chame pela função fncOnAction

    exemplo
    Código:
    <button
    id = "btSair"
    imageMso = "CancelRequest"
    label = "Sair"
    size="large"
    onAction = "fncOnAction"
    />

    Se já possuir a função em um de seus módulos basta adaptar. Se não tiver, cole o código abaixo em um módulo global.

    Código:
    Public Sub fncOnAction(control As IRibbonControl)
    On Error GoTo trataErro

        Select Case control.Id

            Case "btSair" 'o id do botão sair
               
                call beep
                if msgbox("Deseja sair?", vbQuestion + vbYesNo, "Encerrar")=vbYes then
                    call docmd.quit
                end if
               
            Case Else
           
                Call MsgBox("Funcionalidade em desenvolvimento...", vbInformation, "Aviso")
               
        End Select
       
    sair:
        Exit Sub
       
    trataErro:
        Call MsgBox(Err.Description, vbCritical, "fncOnAction - Erro nº: " & Err.Number)
        Resume sair
       
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Função para encerrar o access via ribbon Empty Re: [Resolvido]Função para encerrar o access via ribbon

    Mensagem  Edelson Vieira em 10/5/2020, 22:51

    Boa noite Damasceno!

    Obrigado pela solução. Funcionando.

      Data/hora atual: 13/8/2020, 15:47