[Resolvido]Formulario Com acesso diferenciado ( Login Utilizador e Adm)

Ola a todos.
Começei a adaptar um programa para registo e emisão de relatorio de OEE para a fabrica em que trabalho.

So para terem uma ideia por ano em ficheiros excel tenho mais de 4,5Gb coisa que num outro tipo de configuração ness mesmo excel acupa 2,3mb.

Neste momento estou com dificuldade a criar uma area restrita para administrador e para utilizadores.

Neste momento tesnho este codigo:

Código:


Function verificaLogin(argLogin As String, argSenha As String) As Boolean

    Dim criterio As String
    
    criterio = "Usuario='" & argLogin & "' And senha='" & argSenha & "'"
    
    If Nz(DCount("Usuario", "tblUser", criterio), 0) > 0 Then
        verificaLogin = True
        setUsuarioAtual argLogin
    Else
        verificaLogin = False
    End If

End Function

Sei que podia utilizar este.

Código:

Private Sub Comando12_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_usuarios")
rs.Index = "PrimaryKey"
rs.Seek "=", Me.Texto13
If rs.NoMatch = True Then
MsgBox "Usuário não cadastrado, Acesso Negado", , "Aviso"
Me.txtFunc.SetFocus
Exit Sub
Else
If Me.txtSenha = rs("txtSenha") Then
MsgBox "Senha Confirmada com Sucesso", , "Aviso"
Me.Usuário = Me.txtFunc.Column(1)
Nivel = rs("nivel")
Select Case Nivel

Case Is = "ADM"

DoCmd.OpenForm "Administrador"

Case Is = "OP1"

DoCmd.OpenForm "frmCadastro"

Case Is = "Lei"

DoCmd.OpenForm "frmLeitor"

End Select

Else
MsgBox "Senha Inválida Acesso Negado", , "Aviso"
Me.txtSenha.SetFocus
DoCmd.Quit
End If
End If

rs.Close
DoCmd.Close acForm, "frmLogin"

End Sub

Alguem me pode aconselhar o que fazer para converter um no outro.

Obrigado

Take Charge

Já viu este ?

http://maximoaccess.forumeiros.com/t74-login-com-niveis-de-acesso

Obrigado pelo exemplo, ja o tinha visto em tempos.

Ja consegui o que queria, relativamente aos menus diferenciados.

https://www.dropbox.com/s/cg0pgigtm1aettq/Take%20Charge.mdb

Gostava era de saber pk e que um esta optimizado ao ecra agora e outro não.

Consegue-me ajudar neste detalhe.

Pass:a

Ola;

Você está a utilizar a versão de login de minha autoria e pelo que vejo está a funfar, para além de ser um código muito mais simples e com níveis de acesso.

A otimização que está a falar, não entendi.

Não sabia mas esta a trabalhar bem.

Sim simples e facil de adaptar.

Obrigado

Depois ha outros pormenores que tenho que adicionar mas não é prioritario.

Gostava de adicionar um codigo que me optimiza-se o form ao ecra.

Consegue me ajudar.

Este tópico resolvido, resolvido está;

Para a sua nova duvida uma busca por "redimensionar" lhe trará resultados interessantes, como este exemplo:

http://maximoaccess.forumeiros.com/t5429-redimensionar-formulario-de-acordo-a-resolucao-da-tela?highlight=redimensionar