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

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

Olá Gilliard,

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

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

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

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

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.

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

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

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