[Resolvido]Dificuldade em mudar aspecto de formulário conforme usuário

Boa noite

Criei o seguinte código de modo a mostrar ou não uma página de formulário de acordo com o utilizador em questão

Option Compare Database
Public strUsuario As String

Private Sub Form_Load()

Select Case strUsuario
Case Utilizadores
Me.Gestão_de_dados.visible = False
Case Else
Me.Gestão_de_dados.visible = True

End Select

End Sub

Só que estou com um problema ao qual não oconsigo dar a volta: quando entro na aplicação só dá isto Me.Gestão_de_dados.visible = False
Alguém me pode explicar com se pode alternar de usuário e as instruções do código acompanharem essa mudança?

Antecipadamente obrigado a quem me possa ajudar.

A variável strUsuario está carregando o tipo de usuário? Ou seja, buscando na tabela usuário o tipo do usuário?

Os usuários são escolhidos num campo combobox. No formulário login escrevi o seguinte código:
Private Sub combouser_AfterUpdate()
strUsuario = Me.combouser

'combouser é o nome da combobox

Só tenho 2 usuários possíveis que são Administrador e Utilizadores

Depois no formulário em que quero esconder uma página coloquei strUsuario como variável global.

E na combo tem o campo que diz qual o tipo de usuário? Se tiver você precisa colocar o índice desse campo:

strUsuario = Me.combouser.Column(1) ' ou o índice em que estiver essa informação.

Eu já tinha o strUsuario como variável global num módulo de personalização da ribbon e afuncionar bem. De qualquer modo acrecentei a coluna ao código e persiste o problema.
Penso que o código como está construido devia esconder e mostrar a página do formulário em questão conforme o utilizador. Estou errado?
Penso que o problema está mesmo na variável global mas não estou a dar com o problema

Tente mudar o Public para Dim, deixando a variável como local para ver.

Não resolve. Continuo a não conseguir esconder a página.

Eduardo,
Não tenho certeza, mas, teste por favor:

Dim strUsuario As String

strUsuario = Utilizadores

Select Case strUsuario
Case “Utilizadores”
Me.Gestão_de_dados.visible = False
Case Else
Me.Gestão_de_dados.visible = True

End Select


precisaria ver as declarações do módulo global ao que você faz a referência.

Obrigado pela ajuda mas não resultou

Os códigos do formulário login são os seguintes:

Option Compare Database

Private Sub Comando4_Click()
Dim Identificacao As Integer

If Me.Texto2.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.combouser & "'") Then
Identificacao = DLookup("[NivelSegurança]", "[TBLUsers]", "[User] = '" & Me.combouser & "'")
Select Case Identificacao
Case 1
stDocName = "splash"
Case 2
stDocName = "splash"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
objRibbon.Invalidate

Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.Texto2.Value = ""
Exit Sub
End If

End Sub

Private Sub combouser_AfterUpdate()
strUsuario = Me.combouser.Column(0)
Me.Texto2.SetFocus
End Sub

Private Sub Texto2_AfterUpdate()
Comando4_Click
End Sub

Eduardo, gostaria das informações do módulo global onde consta as declarações e variáveis, lá poderíamos ver a que o strUsuario está se referindo, não consigo ver o que strUsuario significa.

Eduardo,

Gestão_de_dados é um botão?
Qual o nome do formulário que estás a colocar esse código e em qual evento?

Não é necessário criar uma variável global?
Neste código estão campos de formulários diferentes e não são reconhecidos. Acho que a variável global teria que ser Me.Gestão_de_dados mas não sei a forma correcta de a declarar. Ou terá que ser identificação?

Gestão de dados é um separador de formulário. Quero que esse separador e seus campos só estejam visíveis para o administrador.
O último código que mostrei está no formulário login

No seu formulário que tipo de objeto é o Gestão_de_dados.???

Eu estou crente que é um botão, que chama o formulário de gestão dos dados e só quem tem acesso é o nível 1.

Se Gestão_de_dados não for um botão, esse código não vai dar certo mesmo.

Não é um botão de comando é um separador que eu criei no formulário. Se preferir para o raciocínio já experimentei o código com uma textbox e o resultado foi o mesmo. Não consegui que funcionasse.

Ok amigo olhei aqui e vi que a condição if não tinha nada a ver,

teste novamente.


On Error Resume Next

Dim Identificacao As Integer

Identificacao = DLookup("NivelSeguranca", "TBLUsers")


If Identificacao = 1 Then
Me.Gestão_de_dados.Visible = True
Else
Me.Gestão_de_dados.Visible = False
End If

Se não conseguir, poderia disponibilizar o banco ou parte dele para eu dar uma olhada?

Penso que tenho que colocar este código no formulário login. O problema é que sem uma variavel global há campos do código que dão erro visto não serem reconhecidos, por pertencerem a um formulário diferente.

A solução está na cara veja:

Esse código que postou, suspeito que seja de autoria do João Paulo.

Faça o seguinte

Você tem 2 formulários:

Formulário chamado FrmAdministrador que conterá a gestão dos dados e só os cadastrados com o nível 1 terão acesso;

Formulário chamado FrmUtilizador que não conterá a gestão dos dados e só os funcionários com o nível 2 terão acesso;




Dim Identificacao As Integer

If Me.Texto2.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "frmAdministrador" 'Abrirá se for o administrador e terá a gestão dos dados
Case 2
stDocName = "frmUtilizador" 'Só os utilizadores e não terão acesso a gestão de dados
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

Entendeu ae
Você terá um formulário para gestão dos dados e outro que não terá.
Na hora do login ele já direciona no select case, observe e veja que é o melhor caminho.

Se calhar é melhor eu enviar-lhe o projecto para perceber melhor a minha dúvida. Talvez eu não tenha conseguido explicar bem. Esta sugestão que me está a fazer implica alterar significativamente o projecto.
Ele no arranque mostra um formulário login onde escolho o usuário. Após escolher ele mostra o splash screen e fica depois numa página de apresentação com a ribbon totalmente alterada. É a partir da ribbon e seus botões personalizados que se faz toda a navegação. Essa ribbon tem botões só visiveis para o administrador.Esses botões controlam os usuários, etc.

Neste caso só olhando o seu projeto, continuar é arriscar no escuro. Se puder disponibilizar parte dele? darei uma olhada ok

Dilson, muito obrigado pela sua ajuda mas resolvi o problema.
Foi simples. Estava a declarar a variavel global strUsuario de forma repetida. Ela já estava declarada por causa da ribbon e estava e entrar em conflito. Logo que anulei essa repetição o código ficou a funcionar bem.

Mais uma vez obrigado pelo seu tempo e paciência.

Por nada amigo, sempre poderá contar comigo, colocarei o tópico como resolvido.

O fórum agradece.