MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6767
    Registrado : 15/03/2013

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  ahteixeira em 26/7/2018, 22:29

    Olá a todos, partilho exemplo para:

    A) Criar ou alterar Icon e Título da aplicação.
    Código:
    Private Sub cmdIconTitulo_Click()
    'AHTEIXEIRA 2018 para MaximoAccess
    On Error GoTo Trata_Erro

        Dim iTrataErr As Integer
        Dim NomeProp, ValorProp As String

        'guarda valor tratamento de erros e altera para modo classe
        iTrataErr = Application.GetOption("Error Trapping")
        Application.SetOption "Error Trapping", 1

        'nome do projeto (base de dados)
        NomeProp = "AppTitle"
        ValorProp = "A minha APP..."     '*** alterar nesta linha ***
        CurrentDb.Properties(NomeProp) = ValorProp
        
        
        'Icon do projeto (base de dados)
        NomeProp = "AppIcon"
        ValorProp = CurrentProject.Path & "\icon.ico"     '*** alterar nesta linha ***
        CurrentDb.Properties(NomeProp) = ValorProp
        
        Application.RefreshTitleBar

        MsgBox "Alteração concluída.", vbInformation, ""

    Sair_Sub:
        'repoe valor tratamento erros
        Application.SetOption "Error Trapping", iTrataErr
        Exit Sub
        
    Trata_Erro:
        If Err.Number = 3270 Then 'caso nao exista
                Dim AppPrp As Property
                Dim db As Database
                Set db = CurrentDb
                Set AppPrp = db.CreateProperty()
                
                AppPrp.Name = NomeProp
                AppPrp.Type = dbText
                AppPrp.Value = ValorProp
                db.Properties.Append AppPrp
                db.Properties(NomeProp) = ValorProp
                
                Set AppPrp = Nothing
                Set db = Nothing
            Resume Next
        Else
            MsgBox "Erro # " & Err.Number & vbCrLf & vbLf & Err.Description
            Resume Sair_Sub
        End If

    End Sub


    B) Criar atalho no Ambiente de Trabalho (DeskTop)
    Código:
    Private Sub cmdCriarAtalho_Click()
    'AHTEIXEIRA 2018 para MaximoAccess
        
        Dim oWSH As Object, oAtalho As Object
        Dim sCaminhoDesktop, sAtalho, sCaminhoBD As String
          
        sCaminhoBD = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name   'pode-se alterar por caminhoCompleto\nomeBaseDados.ext
        
        Set oWSH = CreateObject("WScript.Shell")
        sCaminhoDesktop = oWSH.SpecialFolders("Desktop")
        sAtalho = sCaminhoDesktop & "\MinhaAPP.lnk"
        
        Set oAtalho = oWSH.CreateShortcut(sAtalho)
           With oAtalho
              .TargetPath = Chr(34) & SysCmd(9) & "MSACCESS.EXE" & Chr(34)
              .Arguments = Chr(34) & sCaminhoBD & Chr(34)
              .Description = "Descrição da minha APP"
              .WorkingDirectory = Application.CurrentProject.Path
              .IconLocation = Application.CurrentProject.Path & "\" & "icon.ico"   'pode-se alterar por caminhoCompleto\nomeIcon.ico
              .Save
           End With
        
        MsgBox "Atalho criado no Ambiente de Trabalho (Desktop), verifique.", vbInformation, ""
        DoCmd.Quit
        
    End Sub

    Abraço
    Anexos
    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho AttachmentIcon_e_Criar_atalho_desktop.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 269 vez(es)


    Última edição por ahteixeira em 31/7/2018, 09:27, editado 1 vez(es)
    luizzlcs
    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 26/07/2011

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  luizzlcs em 30/7/2018, 14:47

    muito bom! Parabéns!

    Show! vou implementar em minhas palicações!
    adm.nneto
    adm.nneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 28/11/2012

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  adm.nneto em 30/7/2018, 15:33

    Obrigado por compartilhar certamente será muito útil.

    Abraço.
    avatar
    TiagoDM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 22/01/2015

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  TiagoDM em 1/8/2018, 12:26

    Obrigado! Resultou na perfeição. Agora só tenho de alterar o código para colocar a aplicação numa pasta diferente do que o desktop... eu infelizmente desenvolvi a aplicação baseando-me sempre no caminho do desktop.. para exportar relatórios, documentos, etc,etc,etc... vou ter agora muito trabalho pela frente para alterar o diretório padrão (desktop) para colocar o executável noutra pasta.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6767
    Registrado : 15/03/2013

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  ahteixeira em 3/8/2018, 00:15

    Olá a todos,

    Obrigado pelo retorno, é sempre gratificante.

    Abraço e bons estudos com o MaximoAccess Wink
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 01/04/2016

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  raijeweb em 14/11/2019, 20:36

    Muito bom, bem elaborado, excelente obrigado por partilhar
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1204
    Registrado : 07/12/2011

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  tauron em 10/5/2020, 12:33

    Galera, alguem sabe como executar esse aplicativo ao ser instalado (pelo instalador criado pelo winrar). Até hoje não precisei de criar instalador por criar somente no local de trabalho mas agora tenho um cliente que está muito distante.

    Minha ideia é a seguinte: Criando o instalador, coloco o modelo o ahTeixeira na pasta, após a instalação, ele deverá abrir o modelo, criando assim o atalho na área de trabalho.

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6767
    Registrado : 15/03/2013

    Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho Empty Re: Icon e Título da aplicação e Criar Atalho no Ambiente de Trabalho

    Mensagem  ahteixeira em 10/5/2020, 12:51

    Olá todos,

    Tauron, tenha atenção com as Regras do Fórum

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    Esta mensagem e a sua anterior serão eliminadas.

    Abraço

      Data/hora atual: 11/7/2020, 11:40