MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


5 participantes

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

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 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: www.vcssistemas.com.br

    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.

    crysostomo gosta desta mensagem

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    Convidado
    Convidado


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

    Mensagem  Convidado 21/12/2010, 00:13

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 21/12/2010, 00:15

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


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

    Mensagem  Convidado 21/12/2010, 00:34

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    Convidado
    Convidado


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

    Mensagem  Convidado 21/12/2010, 00:51

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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

    http://db.tt/VFnMvsF
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 21/12/2010, 12:09

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    Convidado
    Convidado


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

    Mensagem  Convidado 21/12/2010, 14:11

    OK!!! Obrigado!!!
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 21/12/2010, 14:12

    Sucesso
    avatar
    alanrodrigo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  alanrodrigo 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.
    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robystanley 24/6/2018, 00:41

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 31/3/2021, 18:02

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robystanley 2/4/2021, 22:15

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 3/4/2021, 13:27

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Robystanley 11/4/2021, 06:38

    O jeito é tentar adaptar!!!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 03:54