[Resolvido]Imagem de uma tabela como icon APP

Olá Pessoal,

É possível em vez de utilizar-mos a configuração do Access para inserir um ICON na app criada por nós, faze-la através de VBA?
Estava a pensar em duas opções:

1. Através de um link escolhido que pode ser actualizado para a imagem pretendida pelo utilizador (admin do sistema)
   
2. Adicionar a imagem num campo de uma tabela e utilizar como icon.
   

Isto é possível?

Obrigado

Geralmente eu Crio uma pasta No mesmo local do APP, e insiro a Imagem la do Assistente mesmo, e cancelo a parte que pede para localizar a imagem...

Entao, no evento ao carregar do Formulario Usamos a propriedade .Picture para Carregar a imagem no quadro criado...

Ex:

Me!btCadCli.Picture = CurrentProject.Path & "\botoes\Cliente.png"

Dessa forma se eu quiser mudar a imagem do Cadastro de clientes eu so substituo a imagem Cliente.png por outra e pronto...

Olá a todos,
Sardão, veja se é o que pretende na questão 1:

Código:

Dim db As Database
Set db = CurrentDb
db.Properties("AppIcon").Value = CurrentProject.Path & "\NomeFicheiroIcon.ico"
db.Properties("AppTitle").Value = "A minha APP..."
'usar icon forms e reports
db.Properties("UseAppIconForFrmRpt").Value = True
Application.RefreshTitleBar

Link de outro exemplo.

Quanto à questão nº 2, o icon deve estar no disco local para ser atribuido o caminho.
Quanto à possibilidade de estar numa tabela para ser atribuido, na minha opinião terá que ter código para retirar o icon (que é possivel) da tabela e criar o ficheiro, seria + ou - assim:
1) Escolher imagem pretendida (da tabela)
2) Retirar da base de dados (filestreem) e criar o ficheiro no computador
3) Atribuir Icon à aplicação (código acima).
Tem um tópico para MySQL que pode ajudar, vrja:
https://www.maximoaccess.com/t23419-resolvido-gravar-upload-arquivos-pdf-jpg-docx-xlsx-zip-em-uma-tabela-vinculada-ao-sql-server
Abraço

Olá de novo,
Pedro (Sardão), lembrei agora que o colega Avelino Sampaio tem um excelente artigo  onde usa a técnica para Ler e Gravar ficheiros (coincidentemente do tipo ICO).
Confira no link abaixo:
http://www.usandoaccess.com.br/tutoriais/video-criar-ribbons-access-imagens-campo-tipo-anexo.asp
Abraço

Olá a todos!

Desde já obrigado pelos vossos exemplos.
Vou testar e depois deixarei um comentário sobre o assunto.


Obrigado

Boas a todos mais uma vez.

Experimentei a segunda resposta e ficou 5*.
Agora só falta fazer o update ao link e está feito.

Código:

Dim link2 As String
Dim imagem As String
Dim db As Database
Set db = CurrentDb

link2 = DLookup("Linkimagem", "tbligacao")
imagem = DLookup("NomeImagem", "tbligacao")

db.Properties("AppIcon").Value = link2 & imagem
db.Properties("AppTitle").Value = "FROG teste - Ficheiro de Registo Operacional Geral"

o 1º Exemplo deu-me ideia para identificar uma imagem para quem está Online e Offline

Olá PEdro, obrigado pelo retorno.
Quanto à "ideia" mão à obra.
Abraço