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

2 participantes

    Como alterar a Label das colunas no subformulário via VBA

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 02/08/2018

    Como alterar a Label das colunas no subformulário via VBA Empty Como alterar a Label das colunas no subformulário via VBA

    Mensagem  mfmaiafilho 28/10/2021, 14:28

    Bom dia Srs.

    Estou desenvolvendo um gerenciador de layouts e já consegui faze-lo funcionar em grande parte

    porém eu estou na parte de personalizar colunas, ou seja independente de está o nome da coluna "Padrão" permitir que Usuário altere o nome da coluna.

    eu andei pesquisando mas sem êxito de uma coisa concreta, já bati bastante cabeça pra tentar alterar e nada...

    até então eu só consigo capturar a Label de cada controle,

    Código:
    ctl.Controls.Item(0).Caption
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3455
    Registrado : 21/04/2011

    Como alterar a Label das colunas no subformulário via VBA Empty Re: Como alterar a Label das colunas no subformulário via VBA

    Mensagem  Marcelo David 28/10/2021, 19:32

    Boa tarde,
    O cabeçalho dos campos folha de dados estão relacionados seus respectivos rótulos.
    Se altera o caption do rótulo, altera da respectiva coluna da folha de dados e isso pode
    ser feito via VBA normalmente.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    Como alterar a Label das colunas no subformulário via VBA Marcel11
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 02/08/2018

    Como alterar a Label das colunas no subformulário via VBA Empty Re: Como alterar a Label das colunas no subformulário via VBA

    Mensagem  mfmaiafilho 28/10/2021, 21:21

    Boa tarde Marcelo espero que esteja tudo bem!

    Amigo, eu até entendo, mas eu estou tentando fazer algo um pouco mais dinamico...

    Como por exemplo

    For Each ...
    If ctl.Name = rs!CTL_NOM Then
    ctl.Caption = "Novo nome"
    End If

    Next...
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3455
    Registrado : 21/04/2011

    Como alterar a Label das colunas no subformulário via VBA Empty Re: Como alterar a Label das colunas no subformulário via VBA

    Mensagem  Marcelo David 28/10/2021, 21:43

    mfmaiafilho escreveu:Amigo, eu até entendo, mas eu estou tentando fazer algo um pouco mais dinamico...
    Sim, por isso falei que poderá fazer via VBA e dependendo da versão do office há a propriedade que relaciona o rótulo
    ao controle, o que já facilita muito no código. Mas fazendo um loop pelos campos do recordset é possível também relacionar
    qual rótulo irá ter seu caption alterado, usando algo parecido com o código que você mostrou anteriormente.

    Agora estou saindo escritório, talvez a noite eu faça alguns testes e se obtiver algum resultado posto aqui. Se não conseguir
    a noite, tentarei amanhã (caso ainda não tenha conseguido chegar em uma conclusão).

    Mas gostei da sua ideia. Vou ver as possibilidades Very Happy


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    Como alterar a Label das colunas no subformulário via VBA Marcel11

    mfmaiafilho gosta desta mensagem


      Data/hora atual: 30/11/2021, 00:09