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]módulo ou função para inserir imagens em botões automaticamente

    Compartilhe

    notliada
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/11/2015

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  notliada em Ter 05 Jul 2016, 12:47

    Boa noite, antes de buscar ajuda necessária, gostaria de agradecer `a todos do fórum, pela sua valiosa colaboração, onde muito se ajudam, de verdade, OBRIGADO!
    Esta é minha primeira participação direta, minha necessidade é a seguinte, tenho vários formulários e com botões idênticos, para carregar as imagens uso o código abaixo, no evento ao carregar do formulário, funciona muito bem, mesmo trocando o programa de lugar as imagens carregam normalmente. O que eu queria saber se é possível, criar um módulo para que eu não precisasse escrever o código em todos os formulários, e sim apenas chamasse o módulo, ou função... tipo:
    Call Nome da função ou módulo ( se é que é possível.)
    ----------------------------------------------
    Private Sub Form_Load()
          Me.BtnPrimeiro.Picture = CurrentProject.Path & "\imagens\primeiro.png"
           Me.BtnAnterior.Picture = CurrentProject.Path & "\imagens\anterior.png"
           Me.BtnProximo.Picture = CurrentProject.Path & "\imagens\proximo.png"
           Me.BtnUltimo.Picture = CurrentProject.Path & "\imagens\ultimo.png"
           Me.BtnNovo.Picture = CurrentProject.Path & "\imagens\novo.png"
    já pesquisei porém não encontrei algo do tipo.
    Desde já muito obrigado.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  Avelino Sampaio em Qua 06 Jul 2016, 23:36

    Olá!

    Experimente:

    Public sub fncMontaSeq(frm as form) 
      frm.BtnPrimeiro.Picture = CurrentProject.Path & "\imagens\primeiro.png"
      frm.BtnAnterior.Picture = CurrentProject.Path & "\imagens\anterior.png"
      frm.BtnProximo.Picture = CurrentProject.Path & "\imagens\proximo.png"
      frm.BtnUltimo.Picture = CurrentProject.Path & "\imagens\ultimo.png"
      frm.BtnNovo.Picture = CurrentProject.Path & "\imagens\novo.png"
    end sub


    No evento ao abrir de cada formulário

    call fncMontaSeq(me)

    Aguardamos


    Última edição por Avelino Sampaio em Qui 07 Jul 2016, 14:47, editado 2 vez(es)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    notliada
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/11/2015

    módulo ou função para inserir imagens em botões automaticamente

    Mensagem  notliada em Qui 07 Jul 2016, 12:40

    Bom dia,
    Coloquei em um formulário o seu código, e no evento ao abrir do formulário usei
    call fncMontaSeq(me), o código funcionou perfeito, so tive que trocar o end if pelo end sub.
    Aproveitando, não sei se entendi certo, terei que colocar o código e a chamada em cada formulário?
    ou tem como colocar o código em um local específico e nos formulários usar somente a chamada
    call fncMontaSeq(me)? Muito obrigado.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  Avelino Sampaio em Qui 07 Jul 2016, 14:46

    Olá!

    A função deve ficar num módulo global e não em cada formulário. Em cada formulário perderia o propósito

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    notliada
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/11/2015

    módulo ou função para inserir imagens em botões automaticamente

    Mensagem  notliada em Qui 07 Jul 2016, 18:17

    Boa tarde,
    funcionou perfeitamente.
    Muito obrigado.

      Data/hora atual: Qua 07 Dez 2016, 18:16