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


    [Resolvido]Erro em Função para Carregar ícone App

    avatar
    Convidado
    Convidado


    [Resolvido]Erro em Função para Carregar ícone App Empty Erro em Função para Carregar ícone App

    Mensagem  Convidado Ter 05 Nov 2013, 15:33

    Boa tarde Amigos.

    Tenho esta função que está funcionando perfeitamente em Windows 7 64 Bits.
    Porem um cliente ao rodar em Windows 7 32 Bits ela dá erro..

    Caso alguem saiba o que está acontecendo fico grato por compartilhar


    Function CarregaIconeApp()
    Dim MyIcon As String

    MyIcon = CurrentProject.Path & "\Icons\SysControl.ico"
    CurrentDb.Properties("AppTitle") = "SysControl"
    CurrentDb.Properties("AppIcon") = MyIcon
    Application.RefreshTitleBar
    End Function


    Esta função está sendo chamada através da macro AutoExec, primeira linha através do comando
    Executar Código  >> CarregaIconeApp()


    Grato.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Erro em Função para Carregar ícone App Empty Re: [Resolvido]Erro em Função para Carregar ícone App

    Mensagem  Avelino Sampaio Ter 05 Nov 2013, 15:47

    Olá, Hary!

    A propriedade "AppTitle" não é criada inicialmente pelo Access, por isso o erro.  Não me recordo se para o a propriedade "AppIcon" acontece o mesmo
    Se vc for pelas "Opções do Access > banco de dados atual" e preencher o título manualmente o Access irá se encarregar de criar a propriedade.  Depois então vc poderá alterar pelo VBA tranquilamente.

    Veja neste meu artigo como proceder para criar estas duas propriedades pelo VBA

    http://www.usandoaccess.com.br/dicas/dica26.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidado
    Convidado


    [Resolvido]Erro em Função para Carregar ícone App Empty Re: [Resolvido]Erro em Função para Carregar ícone App

    Mensagem  Convidado Ter 05 Nov 2013, 18:43

    Então levando em consideração esta lógica eu poderia chamar esta função em algum formulário de inicialização do sistema correto?

    Irei estudar seu tutorial Mestre.

    Me dou por satisfeito.

    Obrigado.
    avatar
    Convidado
    Convidado


    [Resolvido]Erro em Função para Carregar ícone App Empty Re: [Resolvido]Erro em Função para Carregar ícone App

    Mensagem  Convidado Ter 05 Nov 2013, 18:54

    Boas Avelino.. na funçào a seguir está dando erro: Tipos incompatíveis..

    O que pode ser?

    Public Sub fncListaPrp()
    On Error Resume Next
    Dim prpNew As Property
    Dim prpLoop As Property
    For Each prpLoop In CurrentDb.Properties
       With prpLoop
          Debug.Print .Name & " Type: " & .Type & " Value: " & .Value
       End With
    Next prpLoop
    End Sub


    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Erro em Função para Carregar ícone App Empty Re: [Resolvido]Erro em Função para Carregar ícone App

    Mensagem  Convidado Ter 05 Nov 2013, 19:03

    Se puder também Avelino, ajudar-me a concluir esta função na parte em vermelho:

    Public Sub fncCarregaIconeApp(Caminho As String)
    Dim prpNovo As Property
    On Error Resume Next
    Application.RefreshTitleBar
    CurrentDb.Properties("AppIcon") = Caminho
    If err.Number = 3270 Then 'Se a propriedade não existir acusa erro 3270
       Set prpNovo = CurrentDb.CreateProperty("AppIcon", dbText, Nz(Caminho, Application.Name))
       CurrentDb.Properties.Append prpNovo
       err.Clear
    End If
    End Sub

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Erro em Função para Carregar ícone App Empty Re: [Resolvido]Erro em Função para Carregar ícone App

    Mensagem  Convidado Ter 05 Nov 2013, 19:13

    Sobre a função da lista de propriedades resolvi da seguinte forma:


    Public Sub fncListaPrp()
        On Error Resume Next
        Dim Db As DAO.Database, prp As DAO.Property
        Set Db = DBEngine(0)(0)
        For Each prp In Db.Properties
            Debug.Print prp.Name, prp.Value
        Next
       
        Set Db = Nothing
        Set prp = Nothing
    End Sub


    Se puder me ajudar na função do ícone fico grato Avelino.

    Cumprimentos.

    Conteúdo patrocinado


    [Resolvido]Erro em Função para Carregar ícone App Empty Re: [Resolvido]Erro em Função para Carregar ícone App

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 29 Mar 2024, 02:52