Abrir Emulador Attachment via Banco de Dados

Srs., boa tarde!

O código abaixo funciona em algumas máquinas, mas em outras não e já verifiquei com diversas pessoas do suporte técnico mas sem sucesso.
O travamento ocorre no trecho

Código:

 GetObject(caminho)

, mas não entendo o motivo. O access simplesmente para sem mensagem informando que o caminho está errado. Só destrava quando encerro o processo do Access e do objeto criado.
Se tiverem alguma idéia do que pode ser, por favor, informar.

Código:


Function AbrirEmulador()
    dbName = Replace(Mid(CurrentDb.Name, 29, 2), ".", "")
    dbName = 1
    Set System = CreateObject("EXTRA.System")
    caminho = CurrentProject.Path & "\CBD" & dbName & ".edp"
    
'    Set extraa = GetObject("C:\Program Files\E!PC\Sessions\CBD" & dbName & ".edp")
    Set EXTRAA = GetObject(caminho)
    'EXTRAA.Visible = False
    'EXTRAA.Visible = FALSE
 '   'DoEvents
    EXTRAA.Visible = True
 Set EXTRAA = Nothing
    'EntrarProducao
End Function


Chanrley

Está faltando a segunda barra no caminho:

caminho = CurrentProject.Path & "\CBD\" & dbName & ".edp"

Digamos que dbName seja meuDB.edp

o access está lendo assim:

CurrentProject.Path & "\CDBmeuDB.edp"

[ ]'s

Noozezinho, boa tarde!

Muito obrigado pelo retorno, mas não é isso, pois o concatenei a sstring de maneira correta.
Segue abaixo como ficaria o caminho sem concatenação que também não funciona.

Código:


Function AbrirEmulador()
    dbName = Replace(Mid(CurrentDb.Name, 29, 2), ".", "")
    dbName = 1
    Set System = CreateObject("EXTRA.System")
    caminho = CurrentProject.Path & "\CBD" & dbName & ".edp"
    caminho = "C:\Users\389260\Desktop\MACROS DIÁRIAS\CBD1.edp"
'    Set extraa = GetObject("C:\Program Files\E!PC\Sessions\CBD" & dbName & ".edp")
    Set EXTRAA = GetObject(caminho)
    'EXTRAA.Visible = False
    'EXTRAA.Visible = FALSE
 '  'DoEvents
 
    EXTRAA.Visible = True
 Set EXTRAA = Nothing
    'EntrarProducao
End Function


Sabe depurar o código?

Se não, faça assim:

Clique na linha abaixo e aperte F9.

Function AbrirEmulador()

Ela ficará pintada de marrom, mostrando que colocou um
ponto de interrupção de código, nessa linha.

Ou seja o código irá parar ai, ficando essa linha também em amarelo.

Execute o código

Agora, cada vez que apertar F8 será executado uma linha.

Dessa maneira poder ir observando e descobrir onde está o erro.

Mas antes de fazer a depuração, mude a pasta.

Já tive problemas com aplicativos dentro da pasta "C:\User"

[ ]'s

E então, conseguiu?