Como Executar ALT+F4 Após Macro ser executada

[Sandro BarbosaSantos]

Dim appAccess Set appAccess = createObject("Access.Application") appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb") appAccess.Visible = True appAccess.UserControl = True appAccess.DoCmd.RunMacro "matrix" appAccess.Application.Quit 'wsh.SendKeys "%{F4}"

[Alyson Ronnan Martins]

Bom dia.

Tentou o quit?

appAccess.Quit

 

[Sandro BarbosaSantos]

Boa Tarde

Sim, coloquei logo após o comando

appAccess.DoCmd.RunMacro "matrix"

a sequência abaixo

appAccess.Application.Quit

simplesmente fica na tela, com a mensagem inserida na execução da macro, aguardando confirmar com ENTER o OK

Dim appAccess
Set appAccess = createObject("Access.Application")
appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb")
appAccess.Visible = True
appAccess.UserControl = True
appAccess.DoCmd.RunMacro "matrix"
appAccess.Application.Quit
'appAccess.Applications.SendKeys "%{F4}"

'wsh.SendKeys "%{F4}"

[Alyson Ronnan Martins]

Tenta do DoCmd:

DoCmd.Quit acQuitSaveAll

 

[Sandro BarbosaSantos]

Boa Tarde Alyson, testei sua dica, porém ainda não surtiu o efeito, continua aparecendo o OK para confirmar, o ideal é o código q insira ALT+F4

Dim appAccess
Set appAccess = createObject("Access.Application")
appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb")
appAccess.Visible = True
appAccess.UserControl = True
appAccess.DoCmd.RunMacro "matrix"
appAccess.DoCmd.Quit acQuitSaveAll

'appAccess.Application.Quit
'appAccess.Applications.SendKeys "%{F4}"
'wsh.SendKeys "%{F4}"
 

[Sandro BarbosaSantos]

?

[Alyson Ronnan Martins]

Teria como mandar uma foto do que está aparecendo para tentar algo diferente. Não acho que seja  apenas que você precisa para seu projeto.

[Sandro BarbosaSantos]

Boa Tarde

Obrigado pelo retorno.

Segue a foto da mensagem que aparece, após a execução da macro, necessito que este OK seja confirmado automaticamente, após a execução da macro.

[Sandro BarbosaSantos]

Este é meu código, até aqui na macro, executa tranquilo, aí cai na tela de OK e não sai.

[Alyson Ronnan Martins]

Boa tarde, tenta desativar as notificações do access: 

DoCmd.SetWarnings False

 

Editado Fevereiro 10, 2022 por Alyson Ronnan Martins
Código

[Sandro BarbosaSantos]

Boa Tarde

Testei mas não funcionou ainda.

[Sandro BarbosaSantos]

Alguém teria alguma idéia de solução ?

Obrigado

[Sandro BarbosaSantos]

?