MaximoAccess

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

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 : 272
    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 : 272
    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 24 Jun 2017, 14:50