MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tem como trocar o icone padrão em Bnaco de dados em access?

    Compartilhe

    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Tem como trocar o icone padrão em Bnaco 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

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.


    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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)

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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!

    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco de dados em access?

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

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

    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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!

    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.]

    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco de dados em access?

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

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

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.

    rogiel
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco de dados em access?

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

    OK!!! Obrigado!!!

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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 : 54
    Registrado : 22/01/2010

    Re: [Resolvido]Tem como trocar o icone padrão em Bnaco 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.

      Data/hora atual: 9/12/2016, 11:28