MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 20/12/2010, 23:48

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

    Abrs
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 00:00

    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.
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11241
    Registrado : 30/12/2009

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

    Mensagem  criquio em 21/12/2010, 00:04

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 21/12/2010, 00:05

    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!!!


    Última edição por rogiel em 21/12/2010, 00:10, editado 1 vez(es)
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 00:09

    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!
    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 21/12/2010, 00:13

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 00:15

    Ok, Rogiel, coloque lá a BD aqui para ver isso
    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 21/12/2010, 00:34

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 00:44

    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!
    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 21/12/2010, 00:51

    Esse é o banco de dados que vc falou que eu podia enviar para vc corrigir.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 01:32

    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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 21/12/2010, 12:09

    E como é que eu faço para corrigir esses erros?
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 13:48

    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.
    avatar
    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 30/11/2010

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

    Mensagem  rogiel em 21/12/2010, 14:11

    OK!!! Obrigado!!!
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7146
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 21/12/2010, 14:12

    Sucesso

    alanrodrigo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 22/01/2010

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

    Mensagem  alanrodrigo em 21/3/2016, 19:20

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

    obrigado.
    avatar
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/12/2015

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

    Mensagem  Robystanley em 13/2/2018, 01:32

    Olá Alanrodrigo.

    Vc poderia disponibilizar um banco teste com a modificação que fez, para eu possa dar uma olhada nos caminhos que alterou?

    Desde já agradeço, abraços.
    avatar
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/12/2015

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

    Mensagem  Robystanley em 24/6/2018, 00:41

    Boa Noite Rogiel!!!

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

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    crysostomo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  crysostomo em 17/7/2018, 15:52

    Boa tarde , nao consigo fazer a troca de ícone de jeito nenhum , alguem pode ver meu erro?

    ja tentei de toda a forma , videos e tutoriais, e outros buscas, estou fazendo esse trabalho na secretaria da minha igreja. Realmente ja tentei de tudo , poderia me ajudar , necessito dessa troca para que o vice presidente que é responsável da secretaria, ficar sabendo de qual programa ele está mexendo no momento.
    att..

      Data/hora atual: 16/8/2018, 07:36