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

3 participantes

    [Resolvido]formatar controles com array

    avatar
    fernandesacs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/01/2020

    [Resolvido]formatar controles com array Empty [Resolvido]formatar controles com array

    Mensagem  fernandesacs 13/10/2020, 22:18

    Olá boa tarde.
    Tenho um formulário em que eu gostaria de formatar alguns controles no evento 'ao abrir' do formulário.
    Tentei algo como tornar as propriedades como array:

    a0 = "borderStyle = 1"
    a1 = "borderColor = 255"
    a2 = "backStyle = 1"
    a3 = "backColor = 16777215"
    a4 = "fontName = arial"

    então eu tentei o seguinte:

    'loop em seis controles
    for i = 0 to 6

    'loop das propriedades
    for f = 0 to 4
    me.controls("botao" & i).& a&f
    next f

    next i

    Contudo não obtive resultado. Gostaria de saber se é possível algo dessa forma para dinamizar minha function
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]formatar controles com array Empty Re: [Resolvido]formatar controles com array

    Mensagem  Avelino Sampaio 14/10/2020, 17:23

    Olá!

    veja se desta forma atende:

    Dim a(5, 2) As Variant
    Dim i As Byte
    a(0, 0) = "BorderStyle":    a(0, 1) = "1"
    a(1, 0) = "BorderColor":    a(1, 1) = "255"                
    a(2, 0) = "BackStyle":      a(2, 1) = "1"              
    a(3, 0) = "BackColor":      a(3, 1) = "16777215"      
    a(4, 0) = "FontName":       a(4, 1) = "arial"        

    For i = 0 To 4
       Me("botao" & i).Properties(a(i, 0)) = a(i, 1)
    Next i


    Aguardamos


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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/01/2020

    [Resolvido]formatar controles com array Empty formatar controles com array

    Mensagem  fernandesacs 14/10/2020, 21:42

    Caro Professor,
    funcionou perfeitamente, do jeito que eu precisava, uma Honra ser atendido por Vossa Senhoria.

    Obrigado,

    Edson Fernandes.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]formatar controles com array Empty Re: [Resolvido]formatar controles com array

    Mensagem  Alexandre Neves 14/10/2020, 21:59

    Boa noite,
    Faltou marcar o botão "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    fernandesacs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/01/2020

    [Resolvido]formatar controles com array Empty Re: [Resolvido]formatar controles com array

    Mensagem  fernandesacs 14/10/2020, 22:08

    Verifica se agora tá certo.

      Data/hora atual: 22/9/2021, 05:45