[Resolvido]Reiniciar Aplicação

Boa tarde,

Necessito ajuda pra conseguir atraves de VBA reiniciar a aplicação, seja atraves de um simples codigo para reiniciar, seja atraves de codigo para compactar/reparar e reiniciar.

Já verifiquei varios posts aqui que foram colocados sobre este tema no entanto nenhum tem funcionado e consegui encontrar uma forma simples para o fazer e que não resulta totalmente => [SendKeys "%(FMC)", False]

Tenho configurada a BD da seguinte forma:
StartUpShowDBWindow = false
allowshortcutmenus = False
allowbuiltintoolbars = False
allowfullmenus = False

Neste caso o SendKeys necessita do AllowFullMenus=TRUE caso contrario não tem acesso ao menu para fazer o Compact/Repair. Mesmo alterando primeiro o AllowFullMenus colocando-o a TRUE, e depois fazer o SendKeys, o access apenas abre o access não abre a applicacao porque precisa sempre de efetuar primeiro o restart para tornar efetivas as alteracaoes uma vez que o menu do access ainda não está ativo.

Existe a possibilidade atraves do comando [ DoCmd.RunCommand (acCmdStartupProperties) ] e depois aceder as configurações do Access sair da aplicação e voltar abrir a aplicação.

A ideia era fazer isso de uma vez só, atraves de VBA, sem usar acCmdStartupProperties alterando para TRUE as configurações acima e depois reiniciar a aplicação.

Obrigado
M.Caldeira

Bom dia,

Utilize a seguinte função em um módulo:

Código:

Public Sub reiniciarAccess()
    Dim strLocal As String
    Dim objWs As Object
   
    'reiniciando
    Set objWs = CreateObject("wscript.shell")
    strLocal = CurrentProject.Path & "\" & CurrentProject.Name
    strLocal = Chr(34) & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & strLocal & Chr(34)
   
    '0 = oculto / 5 = visível
    objWs.Run strLocal, 5, "false"
   
    'fecha atual
    Application.Quit acQuitSaveAll
End Sub

Abraço.

Miguel

Tinha respondido,mas a solução do Cassio é melhor

[ ]'s

Boa tarde,

Obrigado Noobzinho... Funcionou direitinho!!!
Ficou resolvido

M.Caldeira

Não fui eu, e sim o Cassio

Valeu o retorno!

Boa sorte!

Boa tarde Amigos

Cassio

Criei o modulo e chamei a função num botão ao fazer click .

call reiniciarAccess


Mas não reconhece. fica a AZUL " Call reiniciarAccess "

Office 2013 32 bits


Obrigado

Boa tarde,

Assis, testei aqui e está funcionando correntamente. Segue modelo.

Abraço.

Obrigado Cassio

Resolvi e vi onde estava a errar.

Só para poupar um click a seguir a Msgbox ??????


Private Sub Comando65_Click()

If MsgBox("Quer Mudar o Caminho das Tabelas Vinculadas ?", vbYesNo, "Aviso") = vbYes Then
Dim DB As DAO.Database, rs As Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tblCaminhoBe", dbOpenDynaset)
rs.Edit
rs("Path_0") = Null
rs.Update
rs.Close
Set rs = Nothing
Set DB = Nothing

MsgBox "O Programa será Fechado" & vbNewLine & "Abrirá Automáticamente" & vbNewLine & "Para Selecionar o Novo Caminho das Tabelas Para Conclusão Da Nova Configuração.", vbInformation, "Aviso"

'DoCmd.Quit ' deu para alterar este comando e ficou ótimo.
Call reiniciarAccess

End If
End Sub

Caríssimos,

De acordo com o script do Cassio, na primeira mensagem dele, que funciona muito bem, se o aplicativo tiver senha como proceder?

Tenho uma base que, quando tiro a senha, reiniciou muito bem com esse script, porém com senha tem que digitar a mesma. Preciso que outra pessoa reinicie, mas não posso compartilhar a senha.

Muito grato.