[Resolvido]Mudar todo o cabeçalho de acordo com o usuário

Estou trabalhando em uma base de dados onde usuários de vários setores irão imprimir os mesmos formulários.
Acontece que cada setor tem seu cabeçalho específico com logo e texto.

Existe uma forma de inserir um cabeçalho a um relatório de acordo com o usuário?

Ou terei que fazer tudo no estilo mostrar/ocultar?

Por enquanto são apenas 3 setores. Mas e se aparecerem mais?

Atenciosamente,

Bom dia Renato.

Algo parecido com isso...

Crie a função abaixo, no primeiro formulário a ser aberto.

Function usuarioAtivo() As String

usuarioAtivo = Environ("USERNAME")

End Function

No mesmo formulário,depois em uma caixa de texto,desacoplada, na origem do controle dela coloque:
=usuarioAtivo()

Coloque o nome dessa caixa de texto como TxtUser.

Indo para o relatório no modo desing, propriedades eventos, ao formatar do cabeçalho algo parecido com isso.
Coloque aqui também a caixa de texto desacoplada que recebe o nome do usuário, mas no modo oculto.

select case as user
case txtuser="nomedousuario"
me.lblcaption.txt="o texto que deseja aqui"

case txtuser="nomedooutrousuario"
me.lbl.caption.txt= " outro texto aqui"

end select.


Obs. não fiz nenhum teste. portanto se funfar ou não me avise.

Silvio, obrigado pela dica. Vou testar.

Acredito, inclusive, que funcione. Já guardo uma variável global com os dados dos usuários e isso vai me ajudar.

Porém, eu estava pensando em algo tipo selecionar um cabeçalho inteiro (com texto e imagens).

Consegui.

No evento ao ativar, inseri o seguinte código:

Código:


Private Sub Report_Activate()
    If validarSessao = True Then
        Me.logoDepartamento.Picture = "U:\sistema-imagens\logo-" & departamentoUsuario & ".png"
        Select Case departamentoUsuario
            Case "proppg"
                Me.lbl_departamento.Caption = "DEPARTAMENTO DE VENDAS E ORÇAMENTO"
            Case "proex"
                Me.lbl_departamento.Caption = "DEPARTAMENTO DE PESSOAL E RELAÇÕES HUMANAS"
            Case "prograd"
                Me.lbl_departamento.Caption = "DEPARTAMENTO DE CONTROLE DE ESTOQUE"
        End Select
    End If
End Sub


Por enquanto são apenas 3 departamentos, se aparecer mais é só aumentar no Case.

Exatamente....apenas aumente o case.

Bons estudos.