[Resolvido]Como fechar um banco chamando outro banco

colegas boa noite, estou querendo abrir outro acess fechando o sistema que chamou , ele abre mais não fecha o 1ª

Código:

Dim strcmd As String
Dim objaccess As ACCESS.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "c:\eclesis.mdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("c:\eclesis.mdb")
'DoCmd.Quit ' aqui dar erro na classe
End Sub

Olá Gilliard,

Tente assim:

Código:

Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "c:\eclesis.mdb"
Call Shell(strcmd, vbNormalFocus)
DoCmd.Quit
DoEvents


Abraço

Bom dia Teixeira
Funcionou, mas não entendi o funcionamento.
Bom andei pesquisando aqui e em outros, mas não encontrei um procedimento do Access fazer backup zipando e colocando senha.
Bom a minha ideia em abrir o outro é o seguindo , eu fiz uma extensão bat que já pega tudo o que está na pasta zipa e coloca a senha, ma tem hora que o sistema não fecha na hora do backup e ai não faz todo.Resolvi colocar ele para chamar um banco que aciona o bat ja fechando o sistema atual para que ele jaz todo o backup.

Bom dia Teixeira
Funcionou, mas não entendi o funcionamento.
Bom andei pesquisando aqui e em outros, mas não encontrei um procedimento do Access fazer backup zipando e colocando senha.
Bom a minha ideia em abrir o outro é o seguindo , eu fiz uma extensão bat que já pega tudo o que está na pasta zipa e coloca a senha, ma tem hora que o sistema não fecha na hora do backup e ai não faz todo.Resolvi colocar ele para chamar outro banco que aciona o bat ja fechando o sistema atual para que ele jaz todo o backup.

Olá Gilliard,

Respondi apenas ao que perguntou, já funciona, Perfeito!

Pode dar o tópico como resolvido e não deve misturar questões.
No fórum existe muitos exemplos para backup, mas se tem dúvidas abra um tópico com os detalhes do que pretende fazer.

Abraço

Bom noite Teixeira, uai, tinha clicado no resolvido e não entrou. Desculpa ai Teixeira, eu tinha clicado como resolvido....