[Resolvido]Ícone do aplicativo

Meu colegas, boa tarde. Desculpa mas um tópico com o mesmo assunto.
Já tem tempo de pesquisa e códigos novos sobre colocar ícone na barra de tarefas, mas não consigo colocar. Alguns códigos coloca na área de trabalho, mas não na barra.
Em algumas versão o código não funciona nem tão pouco alterar pelo Access.
Se eu alterar com a opção - colocar como ícone na barra e formulários e relatórios, não adianta porque se eu colocar mais 3 sistema com ícones diferente os 3 sistema irão ficar com os mesmo ícones.

Como pode ver tem 2 sistemas aberto com ícones alterados , mas na barra ficam os mesmo.
Isso da muito problema com quem trabalha com equipes diferente dentro de um núcleo de secretaria. Ou seja,  um abrindo o sistema errado ...
estou com um secretaria dentro dele tenho Equipes exclusivas (Mandado judicial e administrativo - Jurisdição - medicamentos municipal - Relacionamento de comunicação- Assistência Social TDF - Assistência Social Home-Care e outros).
Preciso dessa ajuda para desembolar esse transtorno.

Crisostomo

Veja esse projeto.

Não tem nada nele, mas  se abrir vai exibir

o ícone no cabeçalho do aplicativo e na barra de tarefas.

Caso não exibir no teu computador, algo está interferindo.

Veja o caminho do ícone se está correto.

Balem

Noob, bom dia.
Vou ver isso, agora estou com problema no meu computador. Assim que consertar eu te retorno

Aqui abriu normal com os ícones na barra de tarefas e la em cima o ícone do aplicativo

mas tive que mudar o caminho do ícone em arquivo opções banco de dados atual
eu fiz assim com outros exemplos aí o ícone que apareceu foi só o o ícone do aplicativo lá em cima a sua esquerda

Porque não foi alterado na barra de tarefas?

Roberto

Lógico que tem que mudar o caminho do ícone para o do teu computador.

O fato de colocar o ícone do aplicativo nas opções do banco de dados atual,

exibe no ato o ícone no cabeçalho do aplicativo e na barra de tarefas.

E como disse, se não estiver aparecendo, tem algo errado no seu computador.

Verifique as configurações da barra de tarefas.

Eu uso o Windows 10.

Balem

Primeiro tem que programar para depois ficar automático.

Creio que isso seja óbvio, certo?

Voltei.
Rapaz quando fiz a validação de chaves de ativação do Windows e do pacote Office, rapaz deu um problemão que nunca tinha visto ate então, fiquei 5 dias tentando resolver isso. Alguns chkdisk e outro codigo deu um melhorada para caramba, mas depois o problema retornou que travou meus USBs todo e varias coisas.
Bélem, tentarei amanhã no trabalho.
Muito estranho, pois no meu computador mesmo ficando no mesmo caminho ele abre com os ícones apontado pelo código.

Cryso


Faça uma cópia do teu projeto sem nada, somente com
a opção do icone do aplicativo, assim como eu fiz, para eu testar.

Aguardo...

Belém, bom dia.
Acho que achei o problema.
Vou esperar 2 dias para ver se o erro volta.

voltou com erro.
Quando eu abro o programa ele coloca o ícone apontado, mas depois muda para outro.
mesmo trocando caminho criando outra logica, não da certo

Código:


credito Teixerira
Private Sub btAtalho_Click()
    Dim oWSH As Object, oAtalho As Object
    Dim sCaminhoDesktop, sAtalho, sCaminhoBD As String
    sCaminhoBD = "C:\teste.accdb"
   
    Set oWSH = CreateObject("WScript.Shell")
    sCaminhoDesktop = oWSH.SpecialFolders("Desktop")
    sAtalho = sCaminhoDesktop & "\Serviço Social.lnk"
   
    Set oAtalho = oWSH.CreateShortcut(sAtalho)
      With oAtalho
          .TargetPath = Chr(34) & SysCmd(9) & "MSACCESS.EXE" & Chr(34)
          .Arguments = Chr(34) & sCaminhoBD & Chr(34)
          .Description = "parte22_Mandado_Judicial"""
          .IconLocation = "C:\icone\Organizar.ico"
          .Save
      MsgBox "O atalho foi criado", vbExclamation, "Serviço Social"
        DoCmd.Quit
 End With

Oi tem esse exemplo  do amigo AhTeixeira https://www.maximoaccess.com/t33894-icon-e-titulo-da-aplicacao-e-criar-atalho-no-ambiente-de-trabalho
baseado nele fiz essa adaptação mais simplificada
e aqui pra mim funciona bacana lisinho