[Resolvido]Restringir formulário cadastro de usuário de acordo com o nível de acesso

Boa tarde companheiros, sempre grato pela força e apoio dos senhores...

Tenho a seguinte dúvida,

Tenho um formulário Cadastro de Usuário... Gostaria de deixar ele habilitado só para o nível ADMINISTRADOR...

É possível fazer isso?

Ex: quando o usuário Inciante entrar com sua senha, e clicar no Botão Usuário, ao invés do Formulário abrirá uma mensagem:

"Área restrita, você não tem autorização para acessar!"

Desde já agradeço a ajuda...

Abraço a todos...

Bom dia Avelino,

Desde já obrigado pela dica...

Na realidade já estou usando Usuários com nível de acesso simples...

O que estou procurando é uma função que seja usada no próprio botão do menu, para ao clicar, verificar e se estiver logado como Administrador, abra o form caso contrário não.

No seu exemplo vi, vou adaptar para outro aplicativo que pretendo desenvolver... Nesse agora seria essa função.

Se você tiver algum script que possa me ajudar, ficarei grato...

Desde já agradeço a todos o apoio... Aos pouquinhos chego lá...

Bom dia cjsilva2013.

no seu sistema deve ter um cadastro de usuário que tenha os campo: nome, senha e permissões como 1, 2, 3, 4 e etc .
ao entra no sistema ele busca o formulário de login, você entra com login e senha, se estiver certo, o formulário de login deve fica oculto, então vai abrir o formulário principal que é um formulário que venha abrir outros e nele tem vários butões e cada butão tem a chamada de formulário, sendo que cada um formulário tem permissão, é isso mesmo?
Se for creio que você de usar na propriedade de cada butão, no evento ao Clicar.

On Error Resume Next
If Forms![frmLogin]!Per = 1 Then
DoCmd.OpenForm "FORMcadCLIENTE"
ElseIf Forms![frmLogin]!Per = 2 Then
DoCmd.OpenForm "FORMcadCLIENTE"
ElseIf Forms![frmLogin]!Per = 3 Then
MsgBox "Sem Permissão.", vbInformation, "Aviso ao Usuário"
DoCmd.CancelEvent
ElseIf Forms![frmLogin]!Per = 4 Then
MsgBox "Sem Permissão.", vbInformation, "Aviso ao Usuário"
DoCmd.CancelEvent
End if

Embora você tente isso eu acho a sugestão do Avelino excelente, é o que eu uso nos meus formulários com ribbom

Boa tarde, João Afonso...

Desde já, obrigado pelo apoio e dica... Tanto sua quanto do companheiro Avelino...

Sou aprendiz. Estou engatinhando no desenvolvimento com Access e VBA...

Aceito sua sugestão e do Avelino. No próximo já vou fazer com usuários avançado e Ribbons ao invés de botões literais...

Gosto de dar um designers diferente na aplicação, mais a segurança é imprescindível para o Cliente...

Obrigado desde já. Vou testear e te dou retorno...

Boa noite,

Estou usando essa função...

If DLookup("[3]", "tblUsuarios", "[Login] ='" & Forms!frmLogin![Login] & "'") = 3 Then
MsgBox "Voce não tem acesso a este Formulário!"

ElseIf DLookup("[3]", "tblUsuarios", "[Login] ='" & Forms!frmLogin![Login] & "'") = 3 Then
DoCmd.OpenForm "frmUsuários", , , , acFormReadOnly

ElseIf DLookup("[2]", "tblUsuarios", "[Login] ='" & Forms!frmLogin![Login] & "'") = 2 Then
DoCmd.OpenForm "frmUsuários", , , , acFormAdd

ElseIf DLookup("[1]", "tblUsuarios", "[Login] ='" & Forms!frmLogin![Login] & "'") = 1 Then
DoCmd.OpenForm "frmUsuários", , , , acFormEdit

End If

Mais não está startando...

Coloquei no Botão do menu para abrir o Formulário... Ao clicar abre a mensagem... quando é o Nivel 1 que é Administrador ele nao abre o Formulário...

Se alguém poder me ajudar com essa função, ficarei mais uma vez grato...

Desde já, muito obrigado!

Se você poder zipar seu banco e nos enviar, desta forma fica melhor para ajudar-lhe com seu sistema.

Bom dia,

Consegui resolver com a dica do companheiro Avelino...

Obrigado a todos desde já...

Deus os Abençoe...

Boa tarde
O link que Mestre Avelino disponibilizou na msg 02 tá off.
Alguém teria um link válido, dica ou exemplo?

Obrigado