[Resolvido]Fechar um aplicativo dentro Access

Bom dia a todos,

Preciso encerrar um programa dentro do Access antes que ele acesse determinado formulário.
Ele precisa identificar que o programa está aberto e solicitar o fechamento, pois se ele estiver aberto não é possivel acessar o formulário para atualização, porque tem uma tabela vinculada a ele.
Tentei com o código abaixo, fornecido pelo JPaulo:

Sub FechaAplicacao(strAplicacao As String)

AppActivate strAplicacao
SendKeys "%{F4}", True

End Sub

'............................................................................

Fecha Calculadora

Private Sub SeuBotao_Click()
FechaAplicacao ("calc")
End Sub

Fecha IE

Private Sub SeuBotao_Click()
FechaAplicacao ("Internet Exeplorer")
End Sub

No exemplos citados acima funcionou beleza, mas para fechar o que preciso não deu certo.

O programa que preciso fechar está na pasta abaixo:

c:\arquivos de programas\firebird\henry\henry7x.exe

Como devo proceder?

Grato pela atenção

Menezes

Uma forma de se fechar uma aplicação pode ser tambem encerrando o processo no gerenciador de tarefas. Já tentou por aí? Mas precisa ter certeza de que ela pode ser fechada, que isso não irá causar problemas para outros processos ou outros computadores na rede, se for o caso.

Bom dia Criquio,

O sistema que está aberto gerencia meu sistema de catraca, portanto não há qualquer problema em fecha-lo. É que criei uma forma de acessar a tabela para efetuar o bloqueio de todos os clientes em atraso, mas como a tabela esta neste sistema firebird e vinculada ao meu Access, ele não permiti abri o formulário para bloqueio se o mesmo estiver aberto.
Poderia ate fecha-lo direto sem problema, só gostaria de implementar esta opção porque se tentar abrir o formulário que tem a tabela vinculada ele dá a msg de que o banco já está conectado em outra instancia e começa dar erro de macro. Se eu for fazer direto o bloqueio neste sistema firebird tenho que fazer um a um, e pelo access posso efetuar de uma unica vez todos.

Abraço

Menezes

Não seria só fechar a conexão? De que forma você acessa os dados desse aplicativo? Utilizando ADO? Talvez só precise fazer o processo inverso para finalizar a conexão, sem precisar encerrar o processo.

A conexão é via ODBC.

Poste os códigos para visualizarmos melhor.

Não utilizei códigos, só a instalação do Firebird e solicitei o vinculo da tabela via ODBC. Só que não consigo editar a tabela se o sistema estiver aberto. Poderia simplesmente informar ao usuário para fechar o sistema antes de atualizar, mas estou tentando facilitar a vida dele, se for possivel.

Tente o seguinte:

Vá no Gerenciador de Tarefas e veja que nome o processo figura lá;

De posse do nome do processo, substitua a parte NomeDoProcesso no código abaixo por esse nome e teste:

Código:

Dim NomeProcesso As Object

Set NomeProcesso = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_Process Where Name = 'NomeDoProcesso.exe'")

For Each Processo In NomeProcesso
    Processo.Terminate
Next

Grande Criquio,

Foi perfeito, funcionou de primeira, era isso que eu queria.

Um grande abraço e muito obrigado.

Menezes

O fórum agradece o retorno.