[Resolvido]Erro ao abrir outro BD

Pessoal,
Estou tentando abrir um BD de outro BD, porém esta dando o seguinte erro: "O Microsoft Access não pode localizar o arquivo de banco de dados, verifique se o caminho e o nome do arquivo foram inseridos corretamente."

Porém o caminho esta correto, segue o código abaixo:

Código:


Function MCR_IMPORTACOES3()
'On Error Resume Next
Dim strcmd As String
Dim objaccess As Access.Application
strcmd = Chr(34) & SysCmd(acSysCmdAccessDir) & "\msaccess.exe" & Chr(34) & " " & Chr(34) & " M:\Multilaser\TRADE MARKETING\03 TRADE MKT CANAL\025. B.I. 2018\03 Radar Trade Marketing\Tabelas Apoios.accdb " & Chr(34)
Call Shell(strcmd, vbNormalFocus)
DoEvents:

Set objaccess = GetObject("M:\teste\TRADE MARKETING\03 TRADE MKT CANAL\025. B.I. 2018\03 Radar Trade Marketing\Tabelas Apoios.accdb")

Agradeço desde já.

Bom dia Douglas,

Tente assim:

Código:

strcmd = Chr(34) & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & Chr(34) & " " & Chr(34) & "M:\Multilaser\TRADE MARKETING\03 TRADE MKT CANAL\025. B.I. 2018\03 Radar Trade Marketing\Tabelas Apoios.accdb " & Chr(34)

O erro pode ter acontecido por haver uma "\" a mais no seu código antes do "msaccess.exe". Retirei também um espaço antes do "M:\".

Espero que ajude!

Show funcionou, obrigado.