Como fazer Permissao de Usuário?

[Leandro_Pirozzi]

Boa tarde, tenho uma tabela de Usuários e senhas os campos são, USUARIO, SENHA E CODUSER.

SE CODUSER = 1 USUÁRIO TEM ACESSO DE ADM CASO CODUSER SEJA = 2 SEU ACESSO É DE USUÁRIO COMUM.

SENDO ASSIM, SERIA POSSÍVEL FAZER UMA PERMISSAO DE ACESSO, RESTRINGINDO ALGUMAS TAREFAS Q JÁ TENHO NO SISTEMA?

OBRIGADO!!

[Macêdo]

Com certeza, se já existe uma tabela com os usuarios e os tipos é só você por um if antes de executar qualquer procedimento, exemplo:

digamos que seja abrir um form que só os administradores devem ter acesso

Private sub cmd_abrir_form_adm

if coduser = 1 then
form_adm.show
else
msgbox "Você não possui permissão para visualizar esta área"
end if

End Sub

[Leandro_Pirozzi]

não precisa chamar o RECORDSET?

[Macêdo]

para não ficar toda hora chamando o recordset você cria uma variavel num modulo, e joga nela o valor do coduser assim que o usuário for logado

No modulo

Public CodUser as Long

Então quando o usuario fizer o logon você joga o valor do recordset do coduser da tabela nesta variavel

CodUser = Rs!coduser

agora você está com o coduser do usuario para usar em qualquer form, qualquer procedimento, sem precisar ter que carregar um recordset toda hora.

[Leandro_Pirozzi]

para não ficar toda hora chamando o recordset você cria uma variavel num modulo, e joga nela o valor do coduser assim que o usuário for logado

No modulo

Public CodUser as Long

Então quando o usuario fizer o logon você joga o valor do recordset do coduser da tabela nesta variavel

CodUser = Rs!coduser

agora você está com o coduser do usuario para usar em qualquer form, qualquer procedimento, sem precisar ter que carregar um recordset toda hora.

Macêdo, vlw mesmo cara a força.

Consegui dar as permissões utilizando a variável, muito mais fácil para chamar.

Obrigadão mesmo!!

Confesso que já estava entrando em desespero!!!