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]Alterar Propriedades Imagem defundo de formulario remoto

    Compartilhe

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 30/03/2011

    [Resolvido]Alterar Propriedades Imagem defundo de formulario remoto

    Mensagem  ton0612 em Sex 05 Fev 2016, 11:18

    Bom dia.
    não sei se o título do assunto é o certo, mas segue a minha duvida.
    Eu tenho diversos formulários e cada um tem seu comando no "Form_Load", porém são todos iguais.... e cada vez que preciso mudar algo, por exemplo a frase de carregamento ou cor de fundo preciso mudar um a um...

    Eu gostario de um código em que eu pudesse chamá-lo e ele aplicaria estas definicções exemplo:

    FormularioA

    com o código:

    Private Sub Form_Load()
    DefFLoad Me.Form.Name
    End Sub

    onde DefLoad seria uma função

    Public Function DefFLoad(NomeForm)
    TelaF = DLookup("LCaminho", "tblCaminhos", "DescCaminho='TelaFundo'")
    Forms.NomeForm.Picture = TelaF


    End Function

    mas sempre da erro.

    agrdeço desde já ...

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 30/03/2011

    Re: [Resolvido]Alterar Propriedades Imagem defundo de formulario remoto

    Mensagem  ton0612 em Sex 05 Fev 2016, 13:16

    Agradeço a todos que leram.,..
    agora consegui resolver... da seguinte forma:

    Na função:

    Public Function defF(N As String)

    Forms(N).Picture = "Caminho da Imagem"

    End Function


    no formulario:

    Private Sub Form_Load()

    'Chama a função para definir as propriedades com o formulario...
    defF Me.Form.Name

    End Sub

      Data/hora atual: Sab 03 Dez 2016, 04:34