[Resolvido]Controle de Acesso, liberação de telas....

bom dia galera tenho um projeto que ainda está em andamento porém, preciso ter esse controle de acesso

já tenho uma tela de Login, porém não serve pra nada, apenas pra deixar restrito uma das telas com outras autorizações.

queria colocar na tela principal a tela de Login, porém no Frm Menu queria mostrar o nome do usuario que está logado...

Boa noite

Código:

Forms!Aqui o formulário que você vai abrir !Aqui o campo que vai mostrar o usuário logado= Forms!aqui o formulário do login!o campo do nome do usuario

Obs o frm login tem que ficar  aberto

nao tem uma maneira de ficar registrado no campo mesmo com a frm_login fechada ?

Bom dia!

Código:

Forms!Menu.lbl_usuario.Caption = "Administrador"

Menu = Formulário de capa contendo o Menu.
lbl_usuario = Campo de texto criando no formulário (não contem vínculo com nenhuma tabela)

Não precisa manter aberto, tela de login

Segue abaixo programação de uma tela de login + Menu.

Código:

Private Sub btn_login_Click()
Dim nivel
    If IsNull(Me.txt_usuario) Then
        MsgBox "Preencha o campo usuário", vbInformation, "Preencha os Campos"
        Me.txt_usuario.SetFocus
        ElseIf IsNull(Me.txt_senha) Then
        MsgBox "Preencha o campo senha", vbInformation, "Preencha os Campos"
        Me.txt_senha.SetFocus
        Else
        If (IsNull(DLookup("[usuario]", "Usuarios", "[usuario] = '" & Me.txt_usuario.Value & "' And senha = '" & Me.txt_senha.Value & "'"))) Then
            MsgBox "Senha ou usuário incorreto", vbInformation, "Dados Incorretos"
            Else
            nivel = DLookup("[nivel]", "Usuarios", "usuario = '" & Me.txt_usuario.Value & "'")
            If nivel = 1 Then
                 MsgBox "Bem vindo Administrador", vbInformation, "Entrar"
                 DoCmd.Close
                 DoCmd.OpenForm "Menu"
                 Forms!Menu.lbl_usuario.Caption = "Administrador"
                      Else
                          MsgBox "Bem vindo Usuário", vbInformation, "Entrar"
                          DoCmd.Close
                          DoCmd.OpenForm "Menu"
                          Forms!Menu.lbl_usuario.Caption = "Usuário"
            End If
        End If
    End If
End Sub

Boa noite , com a janela do login fechado ele não vai encontrar o campo .
O  login coloca ele invisível , ou seja quando der ok no login para abrir o formulário do "painel" coloco assim
no botão de abrir

Código:

Private Sub Comando0_Click()
    DoCmd.OpenForm "from2"
    DoCmd.OpenForm "form1", , , , , acHidden
End Sub


Quando for voltar para o formulario principal não coloca o acHidden

Obs: Na próxima vez eu recomendo você anexar a parte do arquivo que pretende ser corrigida/suporte, para que seja mais rápida a ajuda.

obrigado por ajudarem !

Sucesso