MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Grande problema com atalho que impedi o outro sistema

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  crysostomo em 15/8/2020, 03:48

    Meus amigos boa noite.
    Eu tenho descobri agora um problema.
    eu tenho 3 sistema,( A,b,c ) com mesmo código de atalho si eu colocar  o atalho para o sistema A , os outros sistemas que tenho não irar abrir , ou seja se ele clicar nos sistemas B ou C ele irá abrir o A.
    não consiguí a solução para tal.
    Podem me ajudar?

    Código:
       Dim sCaminhoDesktop, sAtalho, sCaminhoBD As String
        sCaminhoBD = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name   'pode-se alterar por caminhoCompleto\nomeBaseDados.ext
        
        Set oWSH = CreateObject("WScript.Shell")
        sCaminhoDesktop = oWSH.SpecialFolders("Desktop")
        sAtalho = sCaminhoDesktop & "\EstacionAQUI.lnk"
        
        Set oAtalho = oWSH.CreateShortcut(sAtalho)
           With oAtalho
              .TargetPath = Chr(34) & SysCmd(9) & "MSACCESS.EXE" & Chr(34)
              .Arguments = Chr(34) & sCaminhoBD & Chr(34)
              .Description = "Descrição da minha APP"
              .WorkingDirectory = Application.CurrentProject.Path
              .IconLocation = Application.CurrentProject.Path & "\" & "icon.ico"   'pode-se alterar por caminhoCompleto\nomeIcon.ico
              .Save
           End With
        
         MsgBox "Atalho criado no Ambiente de Trabalho (Desktop) com sucesso.", vbInformation, ""
    misericórdia , bemdo fazendo muitos sistemas com esse código e agora que me deparei com esse problema


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6956
    Registrado : 15/03/2013

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  ahteixeira em 15/8/2020, 10:59

    Olá Gilliard,

    Continua a fazer das suas, o tópico foi movido para sala adequada (estava em repositorio de exemplo) Shocked

    Quanto à dúvida, deve comecar a explorar os códigos e tentar perceber o que eles fazem e como estão a fazer, talvez fazendo testes e experiencias.
    Esse código é de um exemplo que partilhei, lebro que deve manter os créditos do respetivo programador.

    Por último, se usa o mesmo código para três aplicativos, então vai ter três atalhos, ora os atalhos não podem ter o mesmo nome.
    Resumindo, deve alterar no código o nome do atalho que vai ser criado.
    Poderia dizer facilmente qual a linha do código que deve alterar, mas acho que deve meter a mão na massa até descobrir.

    Abraço
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  crysostomo em 15/8/2020, 12:17

    Bom dia teixira lembrei dese e ia excluir esse tópico e procurar aquela tópico, mas voce já respondeu. Surprised
    O Teixeira Eu ia excluir esse e fazer a busca do original.
    Peço lhe desculpa novamente amigo, me desculpa cara.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6956
    Registrado : 15/03/2013

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  ahteixeira em 15/8/2020, 18:07

    Olá Gilliard,

    Não precisamos de eliminar, porque a sua dúvida pode ser a de outro membro.
    Na minha última mensagem está a resposta.
    Se encontrou, partilhe aqui a solução e pode dar o tópico como encerrado.

    Abraço
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  crysostomo em 15/8/2020, 20:46

    Boa tarde.
    Teixeira peço desculpas pelo impulso de problema que aparecem e acabo não conseguindo não resolver por quase nos dias de entregar o projeto .com algumas adaptações e acrescentando outras eu acabo impedindo a execução de outras funções.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6956
    Registrado : 15/03/2013

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  ahteixeira em 15/8/2020, 23:12

    Olá Gilliard,

    Tranquilo, desculpas aceites, mas não vamos fugir da questao.

    Como resolveu, já consegue usar o código para três aplicativos diferentes?
    Aguardo a resposta da solução.

    Abraço
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1462
    Registrado : 23/01/2018

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  crysostomo em 16/8/2020, 03:57

    Boa noite Teixeira.
    Uma parte não compreendo, o porque coomo em 1 icone ele abria os 3 sistema irei testar mais uma vez com versão diferente.
    parei de mexer com essalinha .
    Código:
    IconLocation = Application.CurrentProject.Path & "\" & "icon.ico"
    colocava o ícone em outra pasta o access não executa colocando a imagem ( ficava branco) em outro pc ele abria outro sistema, ja os outro código que acrescentava ja não está gravado não compreendo porque essa linha so mexe com a imagem


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6956
    Registrado : 15/03/2013

    [Resolvido]Grande problema com atalho que impedi o outro sistema Empty Re: [Resolvido]Grande problema com atalho que impedi o outro sistema

    Mensagem  ahteixeira em 16/8/2020, 10:23

    Olá Gilliard,

    Faz bem parar de mexer nessa linha, essa linha apenas vai indicar o caminho e nome do ficheiro do icon.
    Deve mexer se desejar ter outro icon diferente.

    Por exemplo se voce tiver 2 aplicativos (stocks e bancos) pode criar um icon diferente para cada.
    Vamos imaginar que tinha os ficheiros  stocks.ico e bancos.ico, lógicamente vai ter duas bases de dados.

    No aplicativo dos stocks o código ficava:
    IconLocation = Application.CurrentProject.Path & "\" & "stocks.ico"

    No aplicativo dos bancos o código ficava:
    IconLocation = Application.CurrentProject.Path & "\" & "bancos.ico"

    Por último se tiver dúvidas do que é "Application.CurrentProject.Path" selecione no editor do código e aperte a tecla F1

    Continue a estudar o código, está quase!
    Se não souber escolha outra linha de código para testar, vou dar uma dica, preste atenção no nome que tem o atalho criado.

    Abraço

    crysostomo gosta desta mensagem


      Data/hora atual: 29/11/2020, 16:37