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

    [Resolvido]Capturar nome do aplicativo com extensão

    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Capturar nome do aplicativo com extensão Empty Capturar nome do aplicativo com extensão

    Mensagem  lupe 19/7/2012, 22:46

    Olá pessoal!

    Caso já tenham discutido o assunto no fórum, me desculpem. Procurei por varias palavras chave e não encontrei.

    O que preciso é de um código que capture o nome do aplicativo (arquivo front-end) com a extensão. Por exemplo: "Projeto.accdb"

    Depois armazene em um campo texto, pois, preciso exibir essa informação do meu formulario principal.

    Alguém tem algo parecido que possa me ajudar?

    Desde já, obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  Luís Augusto 20/7/2012, 01:51

    Veja se é o que pretendes.
    Anexos
    [Resolvido]Capturar nome do aplicativo com extensão AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 19 vez(es)
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  lupe 20/7/2012, 11:28

    Olá Luis!

    Era exatamente isso que eu precisava...

    Muito obrigado!

    Abraço!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  lupe 20/7/2012, 13:56

    Tinha dado o tópico como resolvido, porém, surgiu um probleminha...

    No exemplo esta a funcionar no perfeito, mas no meu projeto esta apresentando erro e seta para a linha:

    StringArray = Split(NomeBD, "\")

    A mensagem de erro diz que a variavel StringArray não foi definida.

    Sabes o que ocorre?


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  lupe 20/7/2012, 14:03

    Defini a variavel conforme abaixo e funcionou:

    Dim StringArray

    Consegui resolver dessa forma. Caso haja outra forma mais eficaz por favor me informe.


    Obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  Luís Augusto 20/7/2012, 21:09

    Desculpe pelas vias tortas que lhe passei, ainda estou aprendendo. Embarassed
    Estudei o Application e constatei o seguinte.

    Se fosse o Mestre João Paulo, ele falaria assim. Razz
    "Veja o simples."
    Nome evento ao carregar do seu formulário.

    Me.SuaCaixadeTexto = Application.CurrentProject.Name 'Nome com extensão

    ou

    Me.SuaCaixadeTexto = Application.CurrentProject.FullName 'Caminho completo

    Até mais.
    Ps: Descupe a brincadeira mestre João Paulo.
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  lupe 20/7/2012, 22:26

    Que é isso Luis, não tem nada que se desculpar.

    Só tenho a te agradecer muito pela impagavel ajuda.

    Eu também prefiro o simples. Pra mim quanto mais simples melhor.

    E o simples que você me passou funcionou perfeitamente.

    Obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.

    Conteúdo patrocinado


    [Resolvido]Capturar nome do aplicativo com extensão Empty Re: [Resolvido]Capturar nome do aplicativo com extensão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:19