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

Boa tarde!

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

Boa tarde!

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

Att, Delson

Boa tarde delsonk!

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

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

Boa noite!

Não resolve

consegue nos detalhar mais para qual seria a finalidade?

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

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

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

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

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

Boa noite Damasceno!

Obrigado pela solução. Funcionando.