[Resolvido]Trocar o Icone padrão em Banco de dados em access

Bom
eu tenho um banco de dados e salvei numa pasta mais eu queria saber se tem coomo trocar o icone do access.

Abrs

Boa Noite Rogiel

Efectivamente não. O ícone do Access não pode ser trocado. Podemos colocar ícones nos objectos como nos formulários na barra ou até na barra da aplicação, se é a isto que se refere.

Simples. Em um módulo, cole:

Option Compare Database

Option Explicit
Public strCaminho As String
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_GETICON = &H7F
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0
Private Const ICON_BIG = 1
Private Const IMAGE_BITMAP = 0
Private Const IMAGE_ICON = 1
Private Const IMAGE_CURSOR = 2
Private Const IMAGE_ENHMETAFILE = 3
Private Const LR_DEFAULTCOLOR = &H0
Private Const LR_MONOCHROME = &H1
Private Const LR_COLOR = &H2
Private Const LR_COPYRETURNORG = &H4
Private Const LR_COPYDELETEORG = &H8
Private Const LR_LOADFROMFILE = &H10
Private Const LR_LOADTRANSPARENT = &H20
Private Const LR_DEFAULTSIZE = &H40
Private Const LR_LOADMAP3DCOLORS = &H1000
Private Const LR_CREATEDIBHeader = &H2000
Private Const LR_COPYFROMRESOURCE = &H4000
Private Const LR_SHARED = &H8000
Function CurrentDbDir() As String
Dim strName As String
strName = Currentdb.Name
CurrentDbDir = Left(strName, Len(strName) - Len(Dir(strName)))
End Function
Function DefinirNomeAplicativo()
Dim intX As Integer
strCaminho = CurrentDbDir + "\Imagens\Icon.ico"
intX = AlterarPropriedade("AppTitle", dbText, "Título aqui")
intX = AlterarPropriedade("AppIcon", dbText, strCaminho)
RefreshTitleBar
End Function
Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
On Error Resume Next
Dim prp As Property, DB As DAO.Database
Const conPropNotFoundError = 3270
Set DB = Currentdb
On Error GoTo Change_Err
DB.Properties(strPropName) = varPropValue
AlterarPropriedade = True
Change_Bye:
Set DB = Nothing
Exit Function
Change_Err:
If Err = conPropNotFoundError Then '
Set prp = DB.CreateProperty(strPropName, varPropType, varPropValue)
DB.Properties.Append prp
Resume Next
Else
AlterarPropriedade = False
Resume Change_Bye
End If
End Function

No formulário principal, coloque no evento "Ao carregar":

Call DefinirNomeAplicativo

Essa função muda o ícone e o título da janela do Access, caso ela esteja visível, bem como do botão na systray.
Observe as duas linhas em azul. Na parte vermelha dessas linhas você configura isso.

Ok obrigado!!
Vieira,
Posso lhe enviar o banco de dados para vc corrigir os erros que estão dando nos formulario e nos botões de pesquisa.

Abraços!!!

Parece-me que o Rogiel quer trocar o ícone do Access padrão e nºao colocar um ícone na aplicação????ou entendi errado??u tenho um banco de dados e salvei numa pasta mais eu queria saber se tem coomo trocar o icone do access. Vai uma diferença enorme!

Vieira vc esta certo, é isso mesmo que eu quero, vc não esta errado.

Ok, Rogiel, coloque lá a BD aqui para ver isso

Aqui esta o banco de dados.
Te,as comsultas que tambem estão dando erros.

Só para que conste. Quando digo que não é possível mudar o ícone do access na nossa aplicação, efectivamente assim é, no entanto é possível sim e só para os experts:

1- Aceder ao registry do Windows e criar uma nova extensão que não coincida com nenhuma outra existente no windows.

2- Entrar com as chaves necessárias e associar um ícone à extensão

3- Fechar o registry, rezar para que não tenhamos cometido nenhum erro, abrir a pasta da nossa aplicação, e mudar a extensão .mdb para a nossa .xxx. O ícone não é associado logo....reiniciar o pc....aceder à pasta da nossa app e clicar no novo ícone e extensão. O Windows vai-nos perguntar uma única vez...Com qual o programa deseja abrir? nós respondemos...Microsoft Access...e pronto,,,aí temos uma nova aplicação. Evidentemente que existe maneira de efectuar engenharia reversa...Mas isto que coloquei aqui, só deve ser feito por quem tenha muito à vontade com o registry, pois caso contrário pode correr o risco de rebentar com o sistema. Cuidado!

Esse é o banco de dados que vc falou que eu podia enviar para vc corrigir.

Rogiel

Você tem que ter cuidado ao mexer nas instruções SQL, pois um ponto ou uma vírgula mal colocada e pum...o form receita estava em parafuso, amigão. Agora está a funcionar de novo.

Relativamente ao botão pesquisa, ele insere um novo registo, logo não pode popular os campos abaixo, esses ficam em branco para serem preenchidos uma vez que não existem dados para os prencher. Você não deve usar este botão como pesquisa. Adicionei um botão novo para pesquisar registos

http://db.tt/VFnMvsF

E como é que eu faço para corrigir esses erros?

Sempre que lhe surgir uma situação dessas, aceda à origem dos registos e verifique se algum item diz "Expressão" ao invés de ter o nome do campo normalmente.

OK!!! Obrigado!!!

Sucesso

Boa tarde, testei hoje a função disponibilizada pelo Criquio, e gostaria de informar que a mesma funcionou corretamente.

obrigado.

Boa Noite Rogiel!!!

Achei esses dois tópicos aqui no fórum, espero que ajude, abraços, fica na Paz do Senhor Jesus!!!

https://www.maximoaccess.com/t29754-resolvidotirando-o-icone-desenho-do-access?highlight=icone

https://www.maximoaccess.com/t26846-resolvidowindows-10-nao-exibe-o-icone-personalizado-do-bd?highlight=icone

Estou tentando a tempo no Access 2010 32 ele não altera

Olá Crysostomo, só tentei a partir do 2013, não testei no 2010.

A situação é que eles não funciona para 32 bits só no 64.

O jeito é tentar adaptar!!!