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

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

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.

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...

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