MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Abrir Emulador Attachment via Banco de Dados

    avatar
    Chanrley Ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    Abrir Emulador Attachment via Banco de Dados Empty Abrir Emulador Attachment via Banco de Dados

    Mensagem  Chanrley Ferreira 26/11/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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Abrir Emulador Attachment via Banco de Dados Empty Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Noobezinho 26/11/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Chanrley Ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    Abrir Emulador Attachment via Banco de Dados Empty Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Chanrley Ferreira 26/11/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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Abrir Emulador Attachment via Banco de Dados Empty Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Noobezinho 26/11/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Abrir Emulador Attachment via Banco de Dados Empty Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Noobezinho 28/11/2015, 10:35

    E então, conseguiu?


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Abrir Emulador Attachment via Banco de Dados Empty Re: Abrir Emulador Attachment via Banco de Dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:53