MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Abrir Emulador Attachment via Banco de Dados

    Compartilhe

    Chanrley Ferreira
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/11/2015

    Abrir Emulador Attachment via Banco de Dados

    Mensagem  Chanrley Ferreira em Qui 26 Nov 2015, 19:14

    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Noobezinho em Qui 26 Nov 2015, 19:32

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Chanrley Ferreira
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/11/2015

    Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Chanrley Ferreira em Qui 26 Nov 2015, 19:47

    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Noobezinho em Qui 26 Nov 2015, 21:02

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Noobezinho em Sab 28 Nov 2015, 10:35

    E então, conseguiu?


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qua 07 Dez 2016, 20:13