[Resolvido]Editar Rótulos dos Cabeçalhos de todos os Formulários

Bom dia, amigos do Forum.
Meu aplicativo já está quase pronto... Pretendo distribui-lo para outros usuários, mas para isso os mesmos precisarão mudar o Cabeçalho dos Formularios e dos Relatórios para os nomes especificos do serviço onde atuam. Estou precisando criar um Form que se abre por um botão "Configurar". Nesse Formulario haveria algumas caixas de texto onde o usuário preencheria os dados e automaticamente o Aplicativo já estaria configurado com os dados dele. Sem precisar abrir o Banco de dados em Modo Design para editar um por um. Alguem pode me ajudar a fazer isso? Procurei no Forum mas não encontrei o que queria.

Como é a estrutura de controle dos usuários? Tem uma tabela com nome e função do usuário bem como o nome da área? Se sim, basta buscar nessa tabela:

Código:

Me.NomeDeUmLabelQualquer.Caption = DLookup("Setor", "tblUsuarios", "ID=" & Me.IDUser & "")

Olá, Críquio.
Obrigado, mais uma vez, pela sua atenção.
Acho que não fui bem claro na minha explicação.
É o seguinte:

Nos Formularios e Relatórios do meu aplicativo tem um cabeçalho que se repete:
"Centro de Saúde de Carbonita - MG". Isso é um Rótulo (nesse caso é Rótulo77), não está em nenhuma tabela.
O que eu quero é deixar uma opção para que o usuário de outro serviço edite esse rótulo para o nome do serviço dele, por exemplo: "Centro de Saúde do Morro Azul", tanto nos Formulários quanto nos Relatorios, sem precisar entrar no modo estrutura, apenas digitando o novo nome numa caixa de texto num formulario especifico pra isso.
Ficou mais claro?

Um abraço,

Walter

Pois o jeito mais simples para isso é armazenando o dado em uma tabela, ou então deixando esse formulário oculto e utilizando ele mesmo para inserir o texto. Vamos supor que ele se chama frmConfig e o campo nele se chama txtConfig. No formulário principal você abre ele oculto:

Código:

DoCmd.OpenForm "frmConfig", , , acHidden

Aí você torna ele visível quando quiser mudar o texto:

Código:

Forms!frmConfig.Visible = True
Forms!frmConfig.SetFocus

Digita o novo título no campo txtConfig, insere o novo título nos formulários que estiverem abertos e oculta novamente o frmConfig:

Código:

Dim F As Form

For Each F In Application.Forms
    F!lblTitulo.Caption = Me.txtConfig
Next

Me.Visible = False

Aconselho a nomear todos os labels com o mesmo nome para que a função localize todas elas de uma vez só e substitua o texto. Se quiser que os formulário abram com um texto padrão, basta colocar esse texto no valor padrão do campo. Ou, para mudar apenas quando o usuário quiser, coloque o valor padrão do campo como "indefinido" por exemplo. No evento "Ao carregar" dos formulários, coloque:

Código:

If Forms!frmConfig.txtConfig <> "Indefinido"
    Me.lblTitulo.Caption = Forms!frmConfig.txtConfig
End If

Ok. Criquio.

Vou estudar essas opções e te retorno se consegui ou não. Caso tenha alguma outra ideia, por favor envie.

Walter

Bom dia, Criquio.

Usando esses métodos acima serão editados todos os formulários e relatórios que tiverem o mesmo nome? Ou apenas os que estiverem abertos no momento da edição? Nessa última hipótese (somente os que estiverem abertos são editados), significa que terei que abrir todos os Forms para que sejam editados?

Não há como editar formulários ou relatórios fechados. Para serem editados, precisam estar abertos, seja no modo estrutura ou de visualização. Mas observe que o frmConfig ficará sempre aberto ainda que invisível e o evento "Ao carregar" dos formulários e relatórios terá uma instrução para ir buscar o dado do campo no frmConfig antes de abrir. Portanto, eles abrirão já editados.

Entendi. Vou testar e te retorno.

Walter

Bom dia, Criquio.

Desculpe, mas ainda não deu certo.
Estou meio perdido com esses códigos...

Em qual evento de qual Form devo colocar o Código:

Digita o novo título no campo txtConfig, insere o novo título nos formulários que estiverem abertos e oculta novamente o frmConfig:
Código:
Dim F As Form

For Each F In Application.Forms
F!lblTitulo.Caption = Me.txtConfig
Next

Me.Visible = False



Um abraço,
Walter

Veja o exemplo em anexo. Leia os comentários no módulo "mdlVerConfig" antes de tudo e depois leia os comentários nos eventos dos formulários e do relatório e então teste.

Muito bom, Críquio.
Exatamente como eu queria. E além de tudo foi muito didático. Você está de parabéns e Forum também.

Muito obrigado, mais uma vez...


Walter

Fiz mais umas implementações para permitir que o novo "valor padrão" fique salvo. Para isso, criei funções públicas para serem chamadas aonde estava o clique que altera o valor padrão. Para mudar uma propriedade de um formulário ou relatório ou de um controle deles, é necessário que estejam abertos em modo de estrutura. No modo de estrutura não tem como passar o texto do campo do formulário para ser usado na propriedade. Então, precisamos primeiro passar esse texto do campo para uma função, depois abrir o formulário em modo Design ou estrutura, gravar o novo valor na propriedade e fechar o formulário para poder acionar o Salvamento das alterações e então abrir o formulário novamente. Tudo isso é feito pela função GravarDefault, aonde está tudo comentado. Vejam o anexo abaixo:

Críquio.
Alguém já te falou que sua inteligência é um pouquinho acima da média?

Já estava bom. Agora ficou excelente!

Muito obrigado.

Walter

Fico feliz que tenha ajudado. Quanto a ser inteligente, na verdade sou mesmo é um pouco mais curioso do que alguns